XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Control: Text- und Hintergrundfarbe festlegen (2)
DEF GETSYSCOLOR(1) !USER32,GetSysColor
CLS GETSYSCOLOR(15)

Proc COLORSTATIC

    declare colst&,c.dm&
    parameters c.hwnd&,c.txt$,c.x&,c.y&,c.b&,c.h&,c.hwcol&,c.txtcol&,FT$,gr&,bold&
    mcls c.b&,c.h&
    STARTPAINT -1
    cls c.hwcol&
    usefont FT$,gr&,0,bold&,0,0
    textcolor c.txtcol&,-1
    Drawtext 2,2,c.txt$
    savebmp DUM.BMP,0,0-c.b&,c.h&
    ENDPAINT
    c.dm& = CREATE(HPIC,-1,DUM.BMP)
    colst&=Create(BITMAP,%HWND,c.dm&,c.x&,c.y&)
    Assign #1,DUM.BMP
    Erase #1
    return colst&

ENDPROC

declare static1&,static2&
COLORSTATIC %HWND,Willkommen zum hypergeilen Setup,0,0,width(%hwnd),35,RGB(255,255,255),RGB(0,0,255),MS SANS SERIF,30,1
STATIC1&=&(0)
WAITINPUT