XProfan

- Seite 2 -

rainerhoefs

Hallo Michael,

was meinst Du mit einem Rahmen-Control?

Rainer

Michael
Wodrich

Stell es Dir wie einen Bilderrahmen vor. Das äußere Control versiehst Du mit den gewünschten Rahmen-Effekten (SS_Sunken z.B.). Darin platzierst Du das Inline-Control. Hierbei mußt Du dann darauf achten das dieses innere Control die Rahmenlinien nicht überschreibt (positionieren). Da das äußere Control nicht scrollt bleibt der Rahmen-Effekt also intakt.
Das innere Control sollte dann ganz rahmenlos sein, damit nicht auffällt das hier mehrere Controls geschachtelt sind.
Selbst Microsoft verwendet solche geschachtelten Controls...

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

rainerhoefs

Hallo Michael,

wenn ich den Source von iF richtig lese, wird zuerst eine Listbox gezeichnet, die einen Rahmen hat. Dann wird darin ein Static gezeichnet, das wahrscheinlich auch einen Rahmen hat, Und dann wird nochmal ein Stati cauf das Static gesetzt. Ich habe schon mit alle Stilen herumprobiert, der Sprung belibt. Auch wenn man die Positionierung der Statics innerhalb der Listbox ändert, springt das Bild. Es schein hier keine Lösung zu geben.

Rainer

Rolf
Koch

und wenn Du es mit einem Browser versuchst?
Hab grad mal schnell mit ROC ein Webbrowser erstellt und dort z.B. eine übergrosse BMP angezeigt. Butterweiches Scrollen halt wie hier im Forum

rainerhoefs

Hallo Rolf,

soll ich jetzt zugeben das ich zu blöd bin den Satz mit dem Browser sofort in Source umzusetzen.

Ja muß ich wohl.

Kannst du da bitte etwas konkreter werden?

Danke

Rainer

Jörg
Sellmeyer

Hier was aus meinem Archiv. Ich glaube von Uwe Pascal Niemeyer:
Kompilieren Markieren Separieren

 $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&)
Freedll Atl&

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

- Seite 3 -

rainerhoefs

HalloJ. Sellmeyer

THATS IT!!

Vielen Dank liebe Profaner!

Das ist es.

Noch eine Frage: Sind die Beschreibungen in der API oder gibt es dazu eine gesonderte Doku? Ichmöchte natürlich geren dei Bilddatei zuordnen ohne jedesmal ein neues Fenster zu kreiren.

Danke nochmal

Jörg
Sellmeyer

Hallo Rainer,
Schau mal, ob Du hier durchsteigst:

[...]

Außerdem noch eine Headerdatei (wohl auch von Uwe):
Kompilieren Markieren Separieren

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;

Gruß
Jörg

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

Michael
Wodrich

Das nachfolgende Beispiel habe ich unter v7.0 getestet.
2 Bildboxen
Kompilieren Markieren Separieren

-------------------- 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&
End

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

13.08.2006 ▲

rainerhoefs

Hallo Michael,

habe Deine Source als Vorlage genommen und mir nur wenigen Zeilen in mein Programm eingebaut. Damit ist mein Problem gelöst.

Dir und allen anderen Profanern herzlichen Dank für die Hilfe.

Rainer

16.08.2006 ▲

Jörg
Sellmeyer

Wie hast Du denn das Menü der rechten Maustaste ausgeschaltet?

Gruß
Jörg

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

16.08.2006 ▲