XProfan

Proc Faerbestatic

    Declare Wfb#,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#,(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