XProfan

cls
var bt1&=TextColorButton(%hwnd,"Beispiel",0,RGB(RND(256),RND(256),RND(256)),RGB(RND(256),RND(256),RND(256)),10,10,150,25)
var bt2&=TextColorButton(%hwnd,"Beispiel",1,RGB(RND(256),RND(256),RND(256)),RGB(RND(256),RND(256),RND(256)),10,40,150,40)
var bt3&=TextColorButton(%hwnd,"Beispiel",3,RGB(RND(256),RND(256),RND(256)),RGB(RND(256),RND(256),RND(256)),10,85,250,70)

mientras que 1

    sleep 300
    Selección aleatoria
    SetTextColorButton(bt1&,"Beispiel",0,RGB(RND(256),RND(256),RND(256)),RGB(RND(256),RND(256),RND(256)))
    SetTextColorButton(bt2&,"Beispiel",1,RGB(RND(256),RND(256),RND(256)),RGB(RND(256),RND(256),RND(256)))
    SetTextColorButton(bt3&,"Beispiel",2,RGB(RND(256),RND(256),RND(256)),RGB(RND(256),RND(256),RND(256)))

Endwhile

Proc TextColorButton

    Parámetros hdl&,texto$,ausr&,bgcol&,textcol&,x1&,y1&,x2&,y2&
    var picbt&=Crear("PicButton",hdl&,0,x1&,y1&,x2&,y2&)
    SetTextColorButton(picbt&,texto$,ausr&,bgcol&,textcol&)
    Volver picbt&

ENDPROC

Proc SetTextColorButton

    Parámetros hdl&,texto$,ausr&,bgcol&,textcol&
    var hpic&=Crear("hNewPic", width(hdl&)-4, height(hdl&)-4, bgcol&,)
    StartPaint hpic&
    UseFont Arial,(height(hdl&)-4)/1.3125,0,1,0,0
    Color del texto textcol&,-1
    DrawText (height(hdl&)-4)/5, (height(hdl&)-4)/10, width(hpic&)-((height(hdl&)-4)/5), height(hpic&)-((height(hdl&)-4)/10), texto$, ausr&
    EndPaint
    SendMessage(hdl&,$F7 | 247,0,hpic&)
    deleteobject hpic&
    Volver 1

ENDPROC