XProfan

- Page 2 -

rainerhoefs

Hello Michael,

what mean You with a welt-Control?

Rainer

Michael
Wodrich

Stell it you How a Bilderrahmen to. the exterior Control versiehst You with the desired welt-effects (SS_Sunken z.B.). therein platzierst You, the Inline-Control. Hierbei must You then hereon respect the this inside Control The Rahmenlinien not überschreibt (positionieren). there the exterior Control not scrolls remaining the welt-effect means intakt.
the inside Control ought to then integrally rahmenlos his, lest auffällt that here several Controls geschachtelt are.
self Microsoft uses such geschachtelten Controls...

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

rainerhoefs

Hello Michael,

if I whom Source of iF correctly. read, becomes first a Listbox drawn, The a welt has. Then therein one Static drawn, the probably too a welt has, And then becomes again one Stati cauf the Static staid. I have already with any Stilen herumprobiert, the plunge belibt. even if one The Positionierung the Statics inside the Listbox changes, jumping the image. it schein here no Solution To give.

Rainer

Rolf
Koch

and if you it with a Browser attempt?
Have strain time quick with ROC one Webbrowser prepares and there z.B. a übergrosse BMP displayed. Butterweiches Scrolling hold as here in the Forum

rainerhoefs

Hello Rolf,

should I now admit that I To stupid be whom set with the Browser immediate in Source umzusetzen.

Yes must I well.

can you there Please something konkreter go?

thanks

Rainer

Jörg
Sellmeyer

here what from my archive. I faith of Uwe Pascal Niemeyer:
Compile Mark Separation

 $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 Thanks love Profaner!

this is it.

another question: are The Beschreibungen in the API or there moreover a gesonderte Doku? Ichmöchte naturally geren dei Bilddatei zuordnen without jedesmal one new Window To kreiren.

thanks again

Jörg
Sellmeyer

Hello Rainer,
look time, whether You here durchsteigst:

[...]

Also another Headerdatei (well too of Uwe):
Compile Mark Separation

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;

Greeting
Jörg

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

Michael
Wodrich

the follow up example have I under v7.0 tested.
2 Bildboxen
Compile Mark Separation

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

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

08/13/06 ▲

rainerhoefs

Hello Michael,

have your Source as Presentation taken and me only few Lines in my Program installed. so is my trouble resolved.

you and all others Profanern cordial Thanks for Help.

Rainer

08/16/06 ▲

Jörg
Sellmeyer

How have Thou the Menu the rechten Mouse button off?

Greeting
Jörg

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

08/16/06 ▲