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