XProfan

Proc Faerbestatic

    Déclarer Wfb#,H&,Bild$
    Paramètres Statbild&,Breitobj&,Hochobj&,Hwndfarb%
    Bild$="DUMMY.BMP"
    Mcls Breitobj&,Hochobj&
    Startpaint -1
    Setpixel 0,0,Hwndfarb%
    Savebmp Bild$,0,0-1,1;0
    EndPaint
    Faible Wfb#,(Len(Bild$) + 1)
    String Wfb#,0=Bild$
    Laisser H&=Loadimage(%Hinstance,Wfb#,0,Breitobj&,Hochobj&,$50)
    SendMessage(Statbild&,$172,0,H&)
    Dispose Wfb#
    Assign #1,"DUMMY.BMP"
    Effacer #1

ENDPROC

Def Loadimage(6) !"User32","LoadImageA"
Déclarer Static1&,Static2&,Static3&
Cls
Static1&=@Contrôle("STATIC",»,$5400110E,10,10,50,50,%Hwnd,$7918,%Hinstance)
Static2&=@Contrôle("STATIC",»,$5400110E,65,10,50,50,%Hwnd,$7918,%Hinstance)
Static3&=@Contrôle("STATIC",»,$5400110E,120,10,50,50,%Hwnd,$7918,%Hinstance)
Faerbestatic Static1&,50,50,Rgb(255,128,192)
'paramètre: cela Statichandle,Breite des Statics, Hauteur des Statics,une RGB-la couleur
Faerbestatic Static2&,50,50,Rgb(0,0,255)
'paramètre: cela Statichandle,Breite des Statics, Hauteur des Statics,une RGB-la couleur
Faerbestatic Static3&,50,50,Rgb(0,255,64)
'paramètre: cela Statichandle,Breite des Statics, Hauteur des Statics,une RGB-la couleur
Waitinput