XProfan

stEinstellungen&=Control(STATIC,,$54001106,2,30,265,280,Tab&,0,%Hinstance,$0)

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