J'ai installé une source pour pouvoir sélectionner ma couleur d'écriture sur mon script mais il m'écrit mon texte en double. Je ne comprends pas pourquoi. Voici la source:
menu channel,menubar {
-
Couleur: /dialog -m couleur couleur
}
dialog couleur {
title "Couleur Par ..."
size -1 -1 126 100
option dbu
box "Couleur ecriture", 2, 1 0 124 28
text " Text :", 20, 3 7 30 10
combo 21, 33 7 30 150, result drop
text " Fond :", 22, 63 7 30 10
combo 23, 93 7 30 150, result drop
check "gras", 24, 3 17 30 10
check "souligne", 25, 33 17 30 10
check "inverser", 26, 63 17 30 10
box "Deco gauche", 1, 63 29 62 20
check "activer", 10, 66 37 27 10
edit %couleur.gauche.text, 11, 93 37 30 10, autohs
box "Deco droite", 3, 1 29 61 20
check "activer", 30, 3 37 27 10
edit %couleur.droite.text, 31, 30 37 30 10, autohs
box "Option", 4, 31 80 65 19
text "desactive si", 40, 33 87 30 10
edit %couleur.strip, 41, 63 87 30 10, autohs center
box "Couleur 1ere Lettre", 5, 1 50 124 29
text " Text :", 50, 3 58 30 10
combo 51, 33 58 30 150, result drop
text " Fond :", 52, 63 59 30 10
combo 53, 93 58 30 150, result drop
check "gras", 54, 3 68 30 10
check "souligne", 55, 33 68 30 10
check "inverser", 56, 63 68 30 10
check "maj", 57, 93 68 30 10
button "OK", 6, 1 83 28 15, ok
button "Annuler", 7, 97 83 28 15, cancel
}
on *:dialog:couleur:init:*:{
if ( %couleur.gauche == 1 ) did -c couleur 10
did -a couleur 21,23,51,53 Blanc
did -a couleur 21,23,51,53 Noir
did -a couleur 21,23,51,53 Bleu foncé
did -a couleur 21,23,51,53 Vert foncé
did -a couleur 21,23,51,53 Rouge
did -a couleur 21,23,51,53 Brun
did -a couleur 21,23,51,53 Violet
did -a couleur 21,23,51,53 Orange
did -a couleur 21,23,51,53 Jaune
did -a couleur 21,23,51,53 Vert clair
did -a couleur 21,23,51,53 Vert anglais
did -a couleur 21,23,51,53 Bleu clair
did -a couleur 21,23,51,53 Bleu Ciel
did -a couleur 21,23,51,53 Rose
did -a couleur 21,23,51,53 Gris foncé
did -a couleur 21,23,51,53 Gris clair
did -a couleur 21,23,51,53 aucun
did -a couleur 51,53 identique
did -c couleur 21 $calc(%couleur.couleur1 + 1)
did -c couleur 23 $calc(%couleur.couleur2 + 1)
did -c couleur 51 $calc(%couleur.lettre.couleur1 + 1)
did -c couleur 53 $calc(%couleur.lettre.couleur2 + 1)
if (%couleur.gras == ) did -c couleur 24
if (%couleur.souligne == ) did -c couleur 25
if (%couleur.inv == ) did -c couleur 26
if (%couleur.droite == 1) did -c couleur 30
if (%couleur.lettre.gras == ) did -c couleur 54
if (%couleur.lettre.souligne == ) did -c couleur 55
if (%couleur.lettre.inv == ) did -c couleur 56
if (%couleur.lettre.maj == 1) did -c couleur 57
}
on *:dialog:couleur:sclick:6:{
set %couleur.gauche $did(10).state
set %couleur.gauche.text $did(11)
set %couleur.couleur1 $calc($did(21).sel - 1)
set %couleur.couleur2 $calc($did(23).sel - 1)
if ($did(24).state == 1) set %couleur.gras
else set %couleur.gras
if ($did(25).state == 1) set %couleur.souligne
else set %couleur.souligne
if ($did(26).state == 1) set %couleur.inv
else set %couleur.inv
set %couleur.droite $did(30).state
set %couleur.droite.text $did(31)
set %couleur.lettre.couleur1 $calc($did(51).sel - 1)
set %couleur.lettre.couleur2 $calc($did(53).sel - 1)
if ($did(54).state == 1) set %couleur.lettre.gras
else set %couleur.lettre.gras
if ($did(55).state == 1) set %couleur.lettre.souligne
else set %couleur.lettre.souligne
if ($did(56).state == 1) set %couleur.lettre.inv
else set %couleur.lettre.inv
if ($did(57).state == 1) set %couleur.lettre.maj 1
else set %couleur.lettre.maj
set %couleur.strip $did(41)
}
on *:input:*: {
if ($left($1,1) isin %couleur.strip ) goto fin
if (c isin $chan($active).mode) { msg $active $1- | halt }
set %couleur $iif(%couleur.couleur1 < 16, $+ %couleur.couleur1 $+ $iif(%couleur.couleur2 < 16,$chr(44) $+ %couleur.couleur2 $+ %couleur.gras $+ %couleur.souligne $+ %couleur.inv))
set %couleur.lettre.text $iif(%couleur.lettre.couleur1 == 17,%couleur.couleur1,$iif(%couleur.lettre.couleur1 < 16,%couleur.lettre.couleur1))
set %couleur.lettre.fond $iif(%couleur.lettre.couleur2 == 17,$chr(44) $+ %couleur.couleur2,$iif(%couleur.lettre.couleur2 < 16,$chr(44) $+ %couleur.lettre.couleur2))
set %couleur.lettre.couleur $iif(%couleur.lettre.couleur1 != 16, $+ %couleur.lettre.text $+ $iif(%couleur.lettre.couleur2 != 16,%couleur.lettre.fond))
set %couleur.lettre $iif(%couleur.lettre.couleur1 != 16,%couleur.lettre.couleur $+ %couleur.lettre.gras $+ %couleur.lettre.souligne $+ %couleur.lettre.inv)
var %out = $iif($1 ison $active,%couleur $+ $chr(32) $+ $+ $1 $+ :,$iif(%couleur.lettre.couleur1 != 16 && #! !isin $active,%couleur.lettre $+ $chr(32) $+ $iif(%couleur.lettre.maj == 1,$upper($left($1,1)),$left($1,1)) $+ %couleur.lettre $+ %couleur $+ $iif($mid($1,2,1) isnum,$chr(32)) $+ $right($1,$calc($len($1) - 1)),%couleur $+ $chr(32) $+ $1)) $2-
if (#! !isin $active) {
if (%couleur.gauche == 1) var %out = %couleur.gauche.text $+ %out
if (%couleur.droite == 1) var %out = %out $+ %couleur $+ $chr(32) $+ %couleur.droite.text
}
msg $active %out
halt
:fin
}
Voila, merci de me répondre...