XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Bitmaps: Bitmap aus Ressource laden und auf Static ausgeben
PRFellow-Vorlage
Autor: Thomas Hölzer - Alle Rechte vorbehalten
Bitmap aus Resource laden und auf Static ausgeben
Bitte beachten:
Wenn der Resourcenname rein numerisch ist,
muß dieser als String mit vorangestellter Raute
übergeben werden.
FreeExtBmp mit dem Handle des Eltern-Static
als Parameter sollte vor Programmende aufgerufen werden.
Rückgabe ist das Handle des Elternstatic
Def LoadImage(6) !USER32,LoadImageA
Declare resname#

Proc LoadExtBmp

    Parameters file$,resname$,hparent&,x%,y%,w%,h%
    Declare hdll&,hbmp&,hstatic&
    Let hdll&=UseDLL(file$)
    Dim resname#,Add(Len(resname$),1)
    String resname#,0=resname$
    Let hbmp&=LoadImage(hdll&,resname#,0,0,w%,h%)
    Dispose resname#
    FreeDLL hdll&

    If Gt(hbmp&,0)

        Let hstatic&=Control(STATIC,,$5400000E,x%,y%,0,0,
        hparent&,$7918,%hinstance)
        SendMessage(hstatic&,$172,0,hbmp&)

    EndIf

    Return hstatic&

EndProc

Proc FreeExtBmp

    Parameters hstatic&
    DeleteObject SendMessage(&(1),$0172,0,0)

EndProc

Beispiel
Declare hstatic&
Cls
LoadExtBmp COMCTL32.DLL,#121,%hwnd,10,10,0,0
Let hstatic&=&(0)
WaitInput
FreeExtBmp hstatic&
WaitInput