Bon, voila, c'est mon premier dialog de système couleur :)
Source / Exemple :
System Color by SkY_175 | ZaiBaTsU-ScripT
alias clr dialog -m color color
dialog color {
title "Système de Couleurs"
size -1 -1 400 320
box "Couleurs", 1, 5 4 390 70
combo 2, 35 30 140 80, drop
combo 3, 220 30 140 80, drop
box "Options", 4, 100 80 200 100
text "Gras", 5, 160 100 40 20
text "Souligné", 6, 150 125 60 20
text "1ère lettre en Majuscule", 7, 117 150 150 20
button "On", 8, 185 97 25 20
button "Off", 9, 210 97 25 20
button "On", 10, 195 122 25 20
button "Off", 11, 220 122 25 20
button "On", 12, 235 147 25 20
button "Off", 13, 260 147 25 20
box "Décorations", 14, 53 185 295 65
text "Gauche :", 15, 65 210 43 20
edit %decog, 16, 117 208 80 20, autohs, center
text "Droite : ", 17, 210 210 37 20
edit %decod, 18, 255 208 80 20, autohs, center
button "Ok", 19, 175 270 40 30, ok
}
On *:DialoG:color:edit:*:{
if ($did == 16) { set %decog $did(color,16) }
if ($did == 18) { set %decod $did(color,18) }
}
On *:DialoG:color:sclick:*:{
if ($did == 8) { set %gras }
if ($did == 9) { set %gras $null }
if ($did == 10) { set %soul }
if ($did == 11) { set %soul $null }
if ($did == 12) { set %maj on }
if ($did == 13) { set %maj off }
if ($did(2).seltext == Blanc) { set %color 0 }
if ($did(2).seltext == Noir) { set %color 1 }
if ($did(2).seltext == Bleu Clair) { set %color 11 }
if ($did(2).seltext == Bleu) { set %color 12 }
if ($did(2).seltext == Bleu Foncé) { set %color 2 }
if ($did(2).seltext == Cyan) { set %color 10 }
if ($did(2).seltext == Vert Clair) { set %color 9 }
if ($did(2).seltext == Vert Foncé) { set %color 3 }
if ($did(2).seltext == Rouge) { set %color 4 }
if ($did(2).seltext == Marron) { set %color 5 }
if ($did(2).seltext == Violet) { set %color 6 }
if ($did(2).seltext == Orange) { set %color 7 }
if ($did(2).seltext == Jaune) { set %color 8 }
if ($did(2).seltext == Rose) { set %color 13 }
if ($did(2).seltext == Gris Foncé) { set %color 14 }
if ($did(2).seltext == Gris Clair) { set %color 15 }
if ($did(2).seltext == Aucune) { set %color }
if ($did(2).seltext == Couleur d'écriture) { set %color }
if ($did(3).seltext == Blanc) { set %color.fond ,0 }
if ($did(3).seltext == Noir) { set %color.fond ,1 }
if ($did(3).seltext == Bleu Clair) { set %color.fond ,11 }
if ($did(3).seltext == Bleu) { set %color.fond ,12 }
if ($did(3).seltext == Bleu Foncé) { set %color.fond ,2 }
if ($did(3).seltext == Cyan) { set %color.fond ,10 }
if ($did(3).seltext == Vert Clair) { set %color.fond ,9 }
if ($did(3).seltext == Vert Foncé) { set %color.fond ,3 }
if ($did(3).seltext == Rouge) { set %color.fond ,4 }
if ($did(3).seltext == Marron) { set %color.fond ,5 }
if ($did(3).seltext == Violet) { set %color.fond ,6 }
if ($did(3).seltext == Orange) { set %color.fond ,7 }
if ($did(3).seltext == Jaune) { set %color.fond ,8 }
if ($did(3).seltext == Rose) { set %color.fond ,13 }
if ($did(3).seltext == Gris Foncé) { set %color.fond ,14 }
if ($did(3).seltext == Gris Clair) { set %color.fond ,15 }
if ($did(3).seltext == Aucune) { set %color.fond $null }
if ($did(3).seltext == Couleur du fond) { set %color.fond $null }
}
On *:DialoG:color:init:*:{
did -i color 2 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18
did -i color 2 1 Couleur d'écriture
did -i color 2 2 Blanc
did -i color 2 3 Noir
did -i color 2 4 Bleu Clair
did -i color 2 5 Bleu
did -i color 2 6 Bleu Foncé
did -i color 2 7 Cyan
did -i color 2 8 Vert Clair
did -i color 2 9 Vert Foncé
did -i color 2 10 Rouge
did -i color 2 11 Marron
did -i color 2 12 Violet
did -i color 2 13 Orange
did -i color 2 14 Jaune
did -i color 2 15 Rose
did -i color 2 16 Gris Foncé
did -i color 2 17 Gris Clair
did -i color 2 18 Aucune
did -c color 2 1
did -i color 3 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17
did -i color 3 1 Couleur du fond
did -i color 3 2 Blanc
did -i color 3 3 Noir
did -i color 3 4 Bleu Clair
did -i color 3 5 Bleu
did -i color 3 6 Bleu Foncé
did -i color 3 7 Cyan
did -i color 3 8 Vert Clair
did -i color 3 9 Vert Foncé
did -i color 3 10 Rouge
did -i color 3 11 Marron
did -i color 3 12 Violet
did -i color 3 13 Orange
did -i color 3 14 Jaune
did -i color 3 15 Rose
did -i color 3 16 Gris Foncé
did -i color 3 17 Gris Clair
did -i color 3 18 Aucune
did -c color 3 1
}
On *:InpuT:*:{
if ($left($1,1) == / ) || ($left($1,1) == ! ) || ($left($1,1) == + ) || ($left($1,1) == - ) || (%maj == on) { goto fin }
msg $chan %decog $+(%soul,%gras,%color,%color.fond,$1-,) %decod | halt
:fin
if ($left($1,1) == / ) || ($left($1,1) == ! ) || ($left($1,1) == + ) || ($left($1,1) == - ) { goto stop }
if (%maj == on) {
var %textmaj = $+($upper($left($1-,1)),$right($1-,$calc($len($1-) - 1)))
msg $chan %decog $+(%soul,%gras,%color,%color.fond,%textmaj,) %decod | halt
}
:stop
}
Conclusion :
Expliquez moi les défaut pour que je progresse, même si c'est pas sympas :o
Donnez un appréciation et une note sur 10 pliz
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.