XProfan

Proc Faerbestatic

    Declare Wfb#,H&,Image$
    Parameters Statbild&,Breitobj&,Hochobj&,Hwndfarb%
    Image$="DUMMY.BMP"
    Mcls Breitobj&,Hochobj&
    Startpaint -1
    Setpixel 0,0,Hwndfarb%
    Savebmp Image$,0,0-1,1;0
    Endpaint
    Dim Wfb#,(Len(Image$) + 1)
    String Wfb#,0=Image$
    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: the Statichandle,wide the Statics, Höhe the Statics,a RGB-colour
Faerbestatic Static2&,50,50,Rgb(0,0,255)
'Parameter: the Statichandle,wide the Statics, Höhe the Statics,a RGB-colour
Faerbestatic Static3&,50,50,Rgb(0,255,64)
'Parameter: the Statichandle,wide the Statics, Höhe the Statics,a RGB-colour
Waitinput