TUTORIAL PICWIN, APPROFONDISSEMENT

alias check {
; "on ouvre une @window (c'est toujours pareil :x) "
window -Ckdp +LetB @check 1 1 80 60
; "on dessine un carré pour faire le check "
drawrect @check 1 1 10 10 15 15
; "on dessine des cercles pour faire les radio "
drawrect -e @check 1 1 30 10 15 15
drawrect -e @check 1 1 50 10 15 15
}
menu @check {
sclick {
; "si on clique dans le rectangle bla bla bla bla : "
if $inrect($mouse.x,$mouse.y,10,10,15,15) {
; "et si la variable est sur on, on efface le contenu du check, donc on déselectionne le check "
; "on change aussi la variable de position "
if %check == on { drawrect -f @check 0 1 11 11 13 13 | set %check off }
; "sinon : on dessine un point dans le check et on change aussi la variable de position "
; "personnellement j'ai mis un point mais on peut mettre un "X" ou des lignes peut importe. "
else { drawdot @check 4 4 19 19 | set %check on }
}
; "pour les radios "
; "Si on clique dans le premier cercle (noter que j'ai quand meme mis un $inrect malgré le cercle on va pas s'embêter avec ça) "
; "on efface le point de l'autre radio correspondant et on met un point sur celui sélectionné "
if $inrect($mouse.x,$mouse.y,30,10,15,15) { drawdot @check 4 4 39 19 | drawdot @check 0 4 59 19 }
; "et inversement ;) "
if $inrect($mouse.x,$mouse.y,50,10,15,15) { drawdot @check 0 4 39 19 | drawdot @check 4 4 59 19 }
}
}