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)

tandis que 1

    sleep 300
    Randomiser
    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

    Paramètres hdl&,text$,ausr&,bgcol&,textcol&,x1&,y1&,x2&,y2&
    var picbt&=Créer("PicButton",hdl&,0,x1&,y1&,x2&,y2&)
    SetTextColorButton(picbt&,text$,ausr&,bgcol&,textcol&)
    Retour picbt&

ENDPROC

Proc SetTextColorButton

    Paramètres hdl&,text$,ausr&,bgcol&,textcol&
    var hpic&=Créer("hNewPic", width(hdl&)-4, height(hdl&)-4, bgcol&,)
    Début de peinture hpic&
    UseFont Arial,(height(hdl&)-4)/1.3125,0,1,0,0
    Couleur du texte textcol&,-1
    DrawText (height(hdl&)-4)/5, (height(hdl&)-4)/10, width(hpic&)-((height(hdl&)-4)/5), height(hpic&)-((height(hdl&)-4)/10), text$, ausr&
    EndPaint
    SendMessage(hdl&,$F7 | 247,0,hpic&)
    deleteobject hpic&
    Retour 1

ENDPROC