Globox60
Messages postés17Date d'inscriptionvendredi 23 juillet 2004StatutMembreDernière intervention10 février 2007
-
16 sept. 2004 à 11:25
Globox60
Messages postés17Date d'inscriptionvendredi 23 juillet 2004StatutMembreDernière intervention10 février 2007
-
17 sept. 2004 à 06:35
Bonjour,
J ai un pb avec l etat d un check.
Comme je ne sais po si viens d aute chose je vous donne le source complet.
Merci d avance !!!!
dialog Couleurs {
title "Couleur et style"
size -1 -1 152 156
option dbu
combo 1, 5 16 60 14, drop
text "Couleur du texte :", 2, 5 4 50 8
text "Couleur du fond :", 3, 73 4 47 8
combo 4, 73 15 60 15, drop
check "Mettre une majuscule en debut de phrase", 5, 5 63 119 10
text "Couleur de la majuscule :", 6, 5 76 70 8, hide
combo 7, 5 86 60 13, hide disable drop
button "Ok", 8, 72 141 37 12, ok
button "Annuler", 9, 112 141 37 12, cancel
check "Caractères entourant le texte", 10, 5 105 91 10
text "Caractères de debut:", 11, 5 117 62 8, hide disable
edit "", 12, 73 115 24 10, hide disable
text "Caractères de fin :", 13, 5 128 62 8, hide disable
edit "", 14, 73 127 24 10, hide disable
check "Gras", 15, 5 40 50 10
check "Souligné", 16, 5 51 50 10
}
on *:dialog:Couleurs:init:0:{
did -a Couleurs 1 Blanc
did -a Couleurs 1 Noir
did -a Couleurs 1 Bleu Foncé
did -a Couleurs 1 Vert foncé
did -a Couleurs 1 Rouge
did -a Couleurs 1 Marron
did -a Couleurs 1 Violet
did -a Couleurs 1 Orange
did -a Couleurs 1 Jaune
did -a Couleurs 1 Vert clair
did -a Couleurs 1 Bleu-gris
did -a Couleurs 1 Turquoise
did -a Couleurs 1 Bleu clair
did -a Couleurs 1 Rose
did -a Couleurs 1 Gris foncé
did -a Couleurs 1 Gris clair
did -a Couleurs 4 Blanc
did -a Couleurs 4 Noir
did -a Couleurs 4 Bleu Foncé
did -a Couleurs 4 Vert foncé
did -a Couleurs 4 Rouge
did -a Couleurs 4 Marron
did -a Couleurs 4 Violet
did -a Couleurs 4 Orange
did -a Couleurs 4 Jaune
did -a Couleurs 4 Vert clair
did -a Couleurs 4 Bleu-gris
did -a Couleurs 4 Turquoise
did -a Couleurs 4 Bleu clair
did -a Couleurs 4 Rose
did -a Couleurs 4 Gris foncé
did -a Couleurs 4 Gris clair
did -a Couleurs 7 Blanc
did -a Couleurs 7 Noir
did -a Couleurs 7 Bleu Foncé
did -a Couleurs 7 Vert foncé
did -a Couleurs 7 Rouge
did -a Couleurs 7 Marron
did -a Couleurs 7 Violet
did -a Couleurs 7 Orange
did -a Couleurs 7 Jaune
did -a Couleurs 7 Vert clair
did -a Couleurs 7 Bleu-gris
did -a Couleurs 7 Turquoise
did -a Couleurs 7 Bleu clair
did -a Couleurs 7 Rose
did -a Couleurs 7 Gris foncé
did -a Couleurs 7 Gris clair
}
on *:dialog:Couleurs:sclick:*:{
if $did(couleurs,1).sel == 1 { set %couleurtxt 00 }
if $did(couleurs,1).sel == 2 { set %couleurtxt 01 }
if $did(couleurs,1).sel == 3 { set %couleurtxt 02 }
if $did(couleurs,1).sel == 4 { set %couleurtxt 03 }
if $did(couleurs,1).sel == 5 { set %couleurtxt 04 }
if $did(couleurs,1).sel == 6 { set %couleurtxt 05 }
if $did(couleurs,1).sel == 7 { set %couleurtxt 06 }
if $did(couleurs,1).sel == 8 { set %couleurtxt 07 }
if $did(couleurs,1).sel == 9 { set %couleurtxt 08 }
if $did(couleurs,1).sel == 10 { set %couleurtxt 09 }
if $did(couleurs,1).sel == 11 { set %couleurtxt 10 }
if $did(couleurs,1).sel == 12 { set %couleurtxt 11 }
if $did(couleurs,1).sel == 13 { set %couleurtxt 12 }
if $did(couleurs,1).sel == 14 { set %couleurtxt 13 }
if $did(couleurs,1).sel == 15 { set %couleurtxt 14 }
if $did(couleurs,1).sel == 16 { set %couleurtxt 15 }
if $did(couleurs,4).sel == 1 { set %couleurfond 00 }
if $did(couleurs,4).sel == 2 { set %couleurfond 01 }
if $did(couleurs,4).sel == 3 { set %couleurfond 02 }
if $did(couleurs,4).sel == 4 { set %couleurfond 03 }
if $did(couleurs,4).sel == 5 { set %couleurfond 04 }
if $did(couleurs,4).sel == 6 { set %couleurfond 05 }
if $did(couleurs,4).sel == 7 { set %couleurfond 06 }
if $did(couleurs,4).sel == 8 { set %couleurfond 07 }
if $did(couleurs,4).sel == 9 { set %couleurfond 08 }
if $did(couleurs,4).sel == 10 { set %couleurfond 09 }
if $did(couleurs,4).sel == 11 { set %couleurfond 10 }
if $did(couleurs,4).sel == 12 { set %couleurfond 11 }
if $did(couleurs,4).sel == 13 { set %couleurfond 12 }
if $did(couleurs,4).sel == 14 { set %couleurfond 13 }
if $did(couleurs,4).sel == 15 { set %couleurfond 14 }
if $did(couleurs,4).sel == 16 { set %couleurfond 15 }
}
on *:dialog:Couleurs:sclick:15:{
if $did(couleurs,15).state == 1
{
set %tgras 1
}
if ( $did(15).state == 0 )
{
set %tgras 0
}
}
on *:input:*:{
set %atext $1-
if %tgras == 0 {
msg $chan $+ %couleurtxt $+ , $+ %couleurfond %atext
haltdef
}