PROC FAERBESTATIC
Declare wfb#,statbild&,h&,bild$
Parameters statbild&,breitobj&,hochobj&,hwndfarb%
bild$="DUMMY.BMP"
MCLS breitobj&,hochobj&
STARTPAINT -1
SetPixel 0,0,hwndfarb%
Savebmp bild$,0,0-1,1;0
ENDPAINT
Dim wfb#,Add(Len(bild$),1)
String wfb#,0=bild$
Let h&=LoadImage(%hinstance,wfb#,0,breitobj&,hochobj&,$50)
SendMessage(statbild&,$172,0,h&)
DISPOSE wfb#
ASSIGN #1,"DUMMY.BMP"
ERASE #1
ENDPROC


Def LoadImage(6) !"USER32","LoadImageA"
DECLARE STATIC1&,STATIC2&,STATIC3&
CLS
STATIC1&=@Control("STATIC","",$5400110E,10,10,50,50,%HWND,$7918,%hinstance)
STATIC2&=@Control("STATIC","",$5400110E,65,10,50,50,%HWND,$7918,%hinstance)
STATIC3&=@Control("STATIC","",$5400110E,120,10,50,50,%HWND,$7918,%hinstance)

FAERBESTATIC STATIC1&,50,50,RGB(255,128,192)
'Parameter: das Statichandle,Breite des Statics, Höhe des Statics,eine RGB-Farbe

FAERBESTATIC STATIC2&,50,50,RGB(0,0,255)
'Parameter: das Statichandle,Breite des Statics, Höhe des Statics,eine RGB-Farbe

FAERBESTATIC STATIC3&,50,50,RGB(0,255,64)
'Parameter: das Statichandle,Breite des Statics, Höhe des Statics,eine RGB-Farbe

WAITINPUT