XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Bitmaps: *.JPG et *.GIF (aussi animierte GIFs) avec qui ATL.DLL Montrer
de Michael Wodrich
-------------------- pour cela HTML-Contrôle
 $H Windows.ph
Def Atlaxwininit(0) !atl.dll,AtlAxWinInit
Def Atlaxcreatecontrol(4) !atl.dll,AtlAxCreateControl
Déclarer Atl&
Atl&=UseDLL(atl.dll)
Atlaxwininit()
--------------------
plusieurs paramètre zurückgeben: allez über une Struktur am Besten
qui vorderen Felder sommes qui paramètre, qui letzten beiden sommes qui Rückgabewerte
Struct PictBoxStru = hWnd&, X&,Y&,Width&,Height&, DlgID&, BildPfad$(260), Box&, Web&
ici qui Procédure

Proc CreatePictureBox

    Paramètres PictBoxParms&
    Déclarer WebPfad$
    pour v7.0 ist un kleiner Trick erforderlich,
    là qui Bereiche sonst pas strukturiert ansprechbar sommes
    Déclarer PictBoxParms#,Save&
    Faible PictBoxParms#, PictBoxStru  Bereich avec Struktur einrichten (aiguille sur strukturierte données)
    Save& = PictBoxParms#      cette aiguille sichern
    PictBoxParms# = PictBoxParms&  den übergebenen aiguille (sur Box1# et Box2#) avec qui Struktur versehen
    ici peux je maintenant sur qui übergebenen données zugreifen

    With PictBoxParms#

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

    EndWith

    PictBoxParms# = Save&  Original-Bereich wiederherstellen
    Dispose PictBoxParms#  et aus dem grenier entfernen

ENDPROC

-- Hauptprogramm --
Fenêtre 0,0-800,600 640,480
Fenêtre 0,0-640,480 640,480
Usermessages 16
2 Bereiche pour qui paramètre et Rückgabewerte einrichten
Déclarer Box1#, Box2#
Faible Box1#, PictBoxStru
Faible Box2#, PictBoxStru
qui Bereiche füllen

With Box1#

    .hWnd&  = %hWnd
    .X&    = 10
    .Y&    = 10
    .Width&  = 200
    .Height& = 200
    .DlgID&  = 2000
    .BildPfad$ = LoadFile$ (Bild magasin!,Bilddateien (JPG,JPEG,GIF)|*.JPG;*.JPEG;*.GIF)
    .Box& - wird dans qui CreatePictureBox zugewiesen (qui STATIC-cadre)
    .Web& - wird dans qui CreatePictureBox zugewiesen (cela HTML-Contrôle)

EndWith

With Box2#

    .hWnd&  = %hWnd
    .X&    = 220
    .Y&    = 10
    .Width&  = 200
    .Height& = 200
    .DlgID&  = 2001
    .BildPfad$ = LoadFile$ (Bild magasin!,Bilddateien (JPG,JPEG,GIF)|*.JPG;*.JPEG;*.GIF)
    .Box& - wird dans qui CreatePictureBox zugewiesen (qui STATIC-cadre)
    .Web& - wird dans qui CreatePictureBox zugewiesen (cela HTML-Contrôle)

EndWith

appel qui Procédure
CreatePictureBox Box1#
CreatePictureBox Box2#
Hauptschleife

Tandis que 1

    Waitinput
    Cas %Umessage=16:Pause

Endwhile

Freigabe qui beiden Controls je Aufruf
Destroywindow(Box1#.Web&)
Destroywindow(Box1#.Box&)
Destroywindow(Box2#.Web&)
Destroywindow(Box2#.Box&)
qui Bereiche pas oublier qc
Dispose Box1#
Dispose Box2#
qui DLL wieder entladen
FreeDLL Atl&
Fin