XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Icon auf Button zeichnen (mit Text)
DEF @LoadImage(6) !USER32,LoadImageA
Declare ICONHANDLE&,ICONHOLDER#,Mod_Name#,Brush&,Refresh_Static&,Refresh&
Windowtitle Iconbutton mit Text
Windowstyle 31+512
WINDOW 0,0-640,440
Buttons und Statics erstellen
LET Refresh&=@control(Button,<<< Testbutton,$50010100+$2000000,360,240,150,30,%Hwnd,2696,%Hinstance)
Dim ICONHOLDER#,256
String ICONHOLDER#,0=Baum
Let IconHandle&=@LoadImage(%HINSTANCE,Iconholder#,$1,18,18,$0)
LET Refresh_Static&=@control(Static,,$50000003,120,5,18,18,Refresh&,2695,%Hinstance)
@Sendmessage(Refresh_Static&,$170,IconHandle&,0)
Dispose ICONHOLDER#

While %KEY<>2

    Waitinput

wend

@Destroywindow(Refresh&)
Deleteobject IconHandle&
Fin