XProfan

- page 2 -

rainerhoefs

allô Michael,

quoi meinst Du avec einem cadre-Contrôle?

Rainer

Michael
Wodrich

Stell es Dir comment une Bilderrahmen avant. cela äußere Contrôle versiehst Du avec den gewünschten cadre-Effekten (SS_Sunken z.B.). y platzierst Du cela Inline-Contrôle. Hierbei dois Du ensuite puis achten cela cet intérieur Contrôle qui Rahmenlinien pas überschreibt (positionieren). là cela äußere Contrôle pas scrollt bleibt qui cadre-effet alors intact.
l'intérieur Contrôle sollte ensuite entier rahmenlos son, avec cela pas auffällt que voici plusieurs Controls geschachtelt sommes.
Selbst Microsoft verwendet solche geschachtelten Controls...

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

rainerhoefs

allô Michael,

si Je l' Source de iF richtig lese, wird d'abord une Listbox gezeichnet, qui une cadre hat. ensuite wird y un Static gezeichnet, cela wahrscheinlich aussi une cadre hat, et ensuite wird nochmal un Stati cauf cela Static gesetzt. j'ai déjà avec alle Stilen herumprobiert, qui Sprung belibt. aussi si on qui Positionierung qui Statics dedans qui Listbox ändert, springt cela Bild. Es billet ici aucun Solution trop donner.

Rainer

Rolf
Koch

et si Du es avec einem Browser versuchst?
Hab grad la fois vite avec ROC un Webbrowser erstellt et là z.B. une übergrosse BMP angezeigt. Butterweiches Scrollen arrêt comment ici im Forum

rainerhoefs

allô Rolf,

soll je maintenant zugeben le moi trop blöd suis den phrase avec dem Browser tout de suite dans Source umzusetzen.

oui doit je wohl.

peux du voilà quelque chose konkreter volonté?

merci

Rainer

Jörg
Sellmeyer

ici quoi aus meinem Archiv. je crois de Uwe Pascal Niemeyer:
Kompilieren Marque Séparation

 $H Windows.ph
Window 0,0-930,900
Usermessages 16
Def Atlaxwininit(0) !atl.dll,AtlAxWinInit
Def Atlaxcreatecontrol(4) !atl.dll,AtlAxCreateControl
Declare Atl&,Web&,A$
Atl&=Usedll(atl.dll)
Atlaxwininit()
A$=File:///C:MeinBildmitPfad.jpg
Web&=Control(AtlAxWin,A$,$50300000,00,0,920,550,%Hwnd,0,0,$200)-HTML-Contol anlegen

While 1

    Waitinput
    Case %Umessage=16:Break

Endwhile

Destroywindow(Web&)

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

- page 3 -

rainerhoefs

HalloJ. Sellmeyer

THATS IT!!

Vielen Dank liebe Profaner!

c'est es.

encore une Frage: sommes qui Beschreibungen dans qui API ou bien gibt es en supplément une gesonderte Doku? Ichmöchte naturellement geren dei Bilddatei zuordnen sans chaque fois un nouveau la fenêtre trop kreiren.

merci nochmal

Jörg
Sellmeyer

allô Rainer,
exposition la fois, si Du ici durchsteigst:

[...]

Aussi encore une Headerdatei (wohl aussi de Uwe):
Kompilieren Marque Séparation

IWebBrowser2.ph
IID_IUnknown={00000000-0000-0000-C000-000000000046};
QueryInterface=0;
AddRef=1;
Release=2;
IID_IWebBrowser2={D30C1661-CDAF-11d0-8A3E-00C04FC9E26E};
GetTypeInfoCount=3;
GetTypeInfo=4;
GetIDsOfNames=5;
Invoke=6;
GoBack=7;
GoForward=8;
GoHome=9;
GoSearch=10;
Navigate=11;
Refresh=12;
Refresh2=13;
Stop=14;
get_Application=15;
get_Parent=16;
get_Container=17;
get_Document=18;
get_TopLevelContainer=19;
get_Type=20;
get_Left=21;
put_Left=22;
get_Top=23;
put_Top=24;
get_Width=25;
put_Width=26;
get_Height=27;
put_Height=28;
get_LocationName=29;
get_LocationURL=30;
get_Busy=31;
Quit=32;
ClientToWindow=33;
PutProperty=34;
GetProperty=35;
get_Name=36;
get_HWND=37;
get_FullName=38;
get_Path=39;
get_Visible=40;
put_Visible=41;
get_StatusBar=42;
put_StatusBar=43;
get_StatusText=44;
put_StatusText=45;
get_ToolBar=46;
put_ToolBar=47;
get_MenuBar=48;
put_MenuBar=49;
get_FullScreen=50;
put_FullScreen=51;
Navigate2=52;
QueryStatusWB=53;
ExecWB=54;
ShowBrowserBar=55;
get_ReadyState=56;
get_Offline=57;
put_Offline=58;
get_Silent=59;
put_Silent=60;
get_RegisterAsBrowser=61;
put_RegisterAsBrowser=62;
get_RegisterAsDropTarget=63;
put_RegisterAsDropTarget=64;
get_TheaterMode=65;
put_TheaterMode=66;
get_AddressBar=67;
put_AddressBar=68;
get_Resizable=69;
put_Resizable=70;

Salut
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Michael
Wodrich

cela nachfolgende Beispiel habe je sous v7.0 getestet.
2 Bildboxen
Kompilieren Marque Séparation

-------------------- für das HTML-Control
 $H Windows.ph
Def Atlaxwininit(0) !atl.dll,AtlAxWinInit
Def Atlaxcreatecontrol(4) !atl.dll,AtlAxCreateControl
Declare Atl&
Atl&=UseDLL(atl.dll)
Atlaxwininit()
--------------------
mehrere Parameter zurückgeben: geht über eine Struktur am Besten
die vorderen Felder sind die Parameter, die letzten beiden sind die Rückgabewerte
Struct PictBoxStru = hWnd&, X&,Y&,Width&,Height&, DlgID&, BildPfad$(260), Box&, Web&
hier die Prozedur

Proc CreatePictureBox

    Parameters PictBoxParms&
    Declare WebPfad$
    für v7.0 ist ein kleiner Trick erforderlich,
    da die Bereiche sonst nicht strukturiert ansprechbar sind
    Declare PictBoxParms#,Save&
    Dim PictBoxParms#, PictBoxStru   Bereich mit Struktur einrichten (Zeiger auf strukturierte Daten)
    Save& = PictBoxParms#            diesen Zeiger sichern
    PictBoxParms# = PictBoxParms&    den übergebenen Zeiger (auf Box1# und Box2#) mit der Struktur versehen
    hier kann ich jetzt auf die übergebenen Daten zugreifen

    With PictBoxParms#

        .Box& = Control(STATIC,,$50000000,.X&,.Y&,.Width&,.Height&,.hWnd&,.DlgID&,%hInstance,$200)
        WebPfad$ = file:/// + .BildPfad$
        .Web& = Control(AtlAxWin,WebPfad$,$50300000,0,0,Width(.Box&),Height(.Box&),.Box&,0,0)-HTML-Contol anlegen

    EndWith

    PictBoxParms# = Save&    Original-Bereich wiederherstellen
    Dispose PictBoxParms#    und aus dem Speicher entfernen

EndProc

-- Hauptprogramm --
Window 0,0-800,600 640,480
Usermessages 16
2 Bereiche für die Parameter und Rückgabewerte einrichten
Declare Box1#, Box2#
Dim Box1#, PictBoxStru
Dim Box2#, PictBoxStru
die Bereiche füllen

With Box1#

    .hWnd&     = %hWnd
    .X&        = 10
    .Y&        = 10
    .Width&    = 200
    .Height&   = 200
    .DlgID&    = 2000
    .BildPfad$ = LoadFile$ (Bild laden!,Bilddateien (JPG,JPEG,GIF)|*.JPG;*.JPEG;*.GIF)
    .Box&   - wird in der CreatePictureBox zugewiesen (der STATIC-Rahmen)
    .Web&   - wird in der CreatePictureBox zugewiesen (das HTML-Control)

EndWith

With Box2#

    .hWnd&     = %hWnd
    .X&        = 220
    .Y&        = 10
    .Width&    = 200
    .Height&   = 200
    .DlgID&    = 2001
    .BildPfad$ = LoadFile$ (Bild laden!,Bilddateien (JPG,JPEG,GIF)|*.JPG;*.JPEG;*.GIF)
    .Box&   - wird in der CreatePictureBox zugewiesen (der STATIC-Rahmen)
    .Web&   - wird in der CreatePictureBox zugewiesen (das HTML-Control)

EndWith

aufrufen der Prozedur
CreatePictureBox Box1#
CreatePictureBox Box2#
Hauptschleife

While 1

    Waitinput
    Case %Umessage=16:Break

Endwhile

Freigabe der beiden Controls je Aufruf
Destroywindow(Box1#.Web&)
Destroywindow(Box1#.Box&)
Destroywindow(Box2#.Web&)
Destroywindow(Box2#.Box&)
die Bereiche nicht vergessen
Dispose Box1#
Dispose Box2#
die DLL wieder entladen
FreeDLL Atl&
Fin

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

13.08.2006 ▲

rainerhoefs

allô Michael,

habe Votre Source comme Présentation pris et mir seulement wenigen Zeilen dans mon Programme incorporé. avec cela ist mon Problem gelöst.

Dir et allen anderen Profanern herzlichen Dank pour qui Aider.

Rainer

16.08.2006 ▲

Jörg
Sellmeyer

comment la hâte Du car cela menu qui rechten Bouton de la souris ausgeschaltet?

Salut
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

16.08.2006 ▲