Tutorial picwin, approfondissement

Description

Petit tutorial sur le picwin, suite des "Bases du picwin" disponible ici http://www.ircfr.com/tutorial.aspx?id=75
Je met dans le code un exemple extrait de mon tutorial.

Source / Exemple :


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 }
}
}

Conclusion :


Tout est dit ;)
Si un screen intéresse quelqu'un, qu'il me le fasse savoir.

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.