XProfan

- Página 2 -

rainerhoefs

¡Hola Michael,

qué media Usted con un Rahmen-Control?

Rainer

Michael
Wodrich

Stell lo Usted como una Bilderrahmen antes. Das äußere Control versiehst Usted con el deseado Rahmen-Effekten (SS_Sunken z.B.). Darin platzierst Usted el Inline-Control. Hierbei mußt Usted entonces darauf achten el dieses innere Control el Rahmenlinien no überschreibt (positionieren). Como el äußere Control no scrollt restos el Rahmen-Effekt also intakt.
Das innere Control debería entonces bastante rahmenlos ser, así no auffällt que aquí mehrere Controls geschachtelt son.
Selbst Microsoft verwendet solche geschachtelten Controls...

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

rainerhoefs

¡Hola Michael,

si yo el Source de IF correcto lese, se zuerst una Listbox suscrito, el una Rahmen ha. Dann se en él una Static suscrito, el wahrscheinlich auch una Rahmen ha, Und Luego se otra vez una Stati cauf el Static gesetzt. Yo habe ya con todos Stilen herumprobiert, el Sprung belibt. Auch si uno el Positionierung el Statics innerhalb el Listbox ändert, springt el Bild. Lo schein hier no Solución a geben.

Rainer

Rolf
Koch

y si lo con un Navegador versuchst?
Hab grad veces rápidamente con ROC una Webbrowser erstellt y hay z.B. una übergrosse BMP adecuado. Butterweiches Scrollen sólo como hier en el Foro

rainerhoefs

¡Hola Rolf,

se Yo ahora zugeben el Yo a blöd bin el Satz con el Navegador inmediatamente en Source umzusetzen.

Sí muß Yo wohl.

¿Puede du como Por favor, algo konkreter voluntad?

Gracias

Rainer

Jörg
Sellmeyer

Hier qué de mi Archiv. Yo glaube de Uwe Pascal Niemeyer:
Kompilieren Marca Separación

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

- Página 3 -

rainerhoefs

HalloJ. Sellmeyer

THATS IT!!

Vielen Dank liebe Profaner!

Es lo.

Noch una Cuestión: Sind el Beschreibungen en el API oder hay dazu una gesonderte Doku? Ichmöchte natürlich geren dei Bilddatei zuordnen sin jedesmal una neues Ventana a kreiren.

Gracias otra vez

Jörg
Sellmeyer

¡Hola Rainer,
Schau veces, si Usted hier durchsteigst:

[...]

Außerdem ni Headerdatei (wohl auch de Uwe):
Kompilieren Marca Separación

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;

Saludo
Jörg

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

Michael
Wodrich

Das nachfolgende Ejemplo Yo bajo v7.0 getestet.
2 Bildboxen
Kompilieren Marca Separación

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

¡Hola Michael,

habe Su Source como Presentación genommen y me sólo wenigen Zeilen en mein Programa instalado. Damit es mein Problema gelöst.

Usted y allen otro Profanern herzlichen Dank para el Ayuda.

Rainer

16.08.2006 ▲

Jörg
Sellmeyer

Como hast Usted porque el Menü el rechten Botón del ratón ausgeschaltet?

Saludo
Jörg

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

16.08.2006 ▲