XProfan

Proc Faerbestatic

    Declarar Wfb#,H&,Bild$
    Parámetros 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&)
    Disponer Wfb#
    Asignar #1,"DUMMY.BMP"
    Borrar #1

ENDPROC

Def Loadimage(6) !"USER32","LoadImageA"
Declarar 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)
'Parámetro: el Statichandle,Breite des Statics, Höhe des Statics,una RGB-Farbe
Faerbestatic Static2&,50,50,Rgb(0,0,255)
'Parámetro: el Statichandle,Breite des Statics, Höhe des Statics,una RGB-Farbe
Faerbestatic Static3&,50,50,Rgb(0,255,64)
'Parámetro: el Statichandle,Breite des Statics, Höhe des Statics,una RGB-Farbe
Waitinput