Mon code sert à configurer ses couleurs.. le titre en dit assez
Source / Exemple :
dialog colors {
title "Colors par Mrud"
size -1 -1 142 164
option dbu
text "Fond du text:", 1, 6 16 35 8
text "Couleur du text :", 2, 6 30 43 8
combo 3, 50 15 52 50, size drop
combo 4, 50 29 52 50, size drop
box "Couleur banal (chan..)", 5, 2 2 138 46
check "Gras", 6, 104 16 24 8
check "Souligné", 7, 104 32 32 8
button "ok", 8, 32 148 25 10
button "no", 9, 84 148 25 10, cancel
box "Options 1ere lettre (Privé..)", 10, 2 50 138 44
check "Gras", 11, 105 78 22 10
check "Souligné", 12, 73 78 30 10
check "Majuscule", 13, 14 78 34 10
combo 14, 33 63 52 50, size drop
text "Couleur :", 15, 6 64 25 8
combo 17, 86 63 52 50, size drop
check "rand", 18, 49 78 22 10
check "", 19, 132 6 7 8
check "", 20, 132 54 7 8
box "Restant du text (Privé..)", 21, 2 96 138 46
check "Souligné", 22, 106 125 32 10
check "Gras", 23, 106 109 24 10
combo 24, 52 123 52 50, size drop
combo 25, 52 109 52 50, size drop
text "Fond du text:", 26, 8 110 35 8
text "Couleur du text :", 27, 8 124 43 8
check "Maj 1er L", 16, 104 24 34 8
}
on 1:dialog:colors:*:*: {
if ($devent = init) {
var %i 1, %cool blanc,noir,bleu-foncé,vert-foncé,rouge,marron,violet,orange,jaune,vert-clair,cyan,bleu-clair,bleu,rose,gris-foncé,gris-clair
while (%i <= 16) { did -i colors 3,4,14,17,24,25 %i $calc(%i -1) - $gettok(%cool,%i,44) | inc %i }
if (!%mgs2) { did -b colors 1,2,3,4,6,7,16 } | if ($gettok(%mgs2,$matchtok(%mgs2,,1,46),46)) { did -c colors 19 } | if ($matchtok(%mgs2,,1,46)) { did -c colors 6 } | if ($matchtok(%mgs2,,1,46)) { did -c colors 7 } | if ($gettok(%mgs2,$findtok(%mgs2,1,1,46),46)) { did -c colors 16 } | did -c colors 4 $calc($remove($gettok($matchtok(%mgs2,,1,46),1,44),$left($gettok($matchtok(%mgs2,,1,46),1,44),1)) +1) | did -c colors 3 $calc($gettok($matchtok(%mgs2,,1,46),2,44) +1)
if (%randomz1) || (%randomz2) { did -c colors 18 | did -c colors 17 $calc(%randomz2 +1) } | if (%caouleur1) { did -c colors 20 | did -c colors 14 $calc($remove($gettok(%caouleur1,1,44),$left($gettok(%caouleur1,1,44),1)) +1) | did -c colors 25 $calc($gettok(%caouleur1,2,44) +1) }
if (%caouleur2) { did -c colors 24 $calc($remove($gettok(%caouleur2,1,44),$left($gettok(%caouleur2,1,44),1)) +1) } | if (!%caouleur1) && (!%caouleur2) && (!%randomz1) && (!%randomz2) { did -b colors 10,11,12,13,14,15,17,18,22,23,24,25,26,27 } | if (!%randomz1) && (!%randomz2) { did -b colors 17 }
if ($gettok(%smgs,$findtok(%smgs,,1,46),46)) { did -c colors 23 } | if ($gettok(%smgs,$findtok(%smgs,,1,46),46)) { did -c colors 22 } | if ($gettok(%mgs,$findtok(%mgs,1,1,46),46)) { did -c colors 13 } | if ($gettok(%mgs,$findtok(%mgs,,1,46),46)) { did -c colors 11 } | if ($gettok(%mgs,$findtok(%mgs,,1,46),46)) { did -c colors 12 }
}
if ($devent = sclick) {
if ($did = 20) && (!$did(20).state) { did -b colors 10,11,12,13,14,15,17,18,22,23,24,25,26,27 }
if ($did = 20) && ($did(20).state) { did -e colors 10,11,12,13,14,15,18,22,23,24,25,26,27 }
if ($did = 19) && (!$did(19).state) { did -b colors 1,2,3,4,6,7,16 }
if ($did = 19) && ($did(19).state) { did -e colors 1,2,3,4,6,7,16 }
if ($did = 18) && (!$did(18).state) { did -b colors 17 }
if ($did = 18) && ($did(18).state) { did -e colors 17 }
if ($did = 8) {
$iif(!$did(6).state || !$did(19).state,set %mgs2 $remtok(%mgs2,,1,46),set %mgs2 $addtok(%mgs2,,46)) | $iif(!$did(7).state || !$did(19).state,set %mgs2 $remtok(%mgs2,,1,46),set %mgs2 $addtok(%mgs2,,46)) | $iif(!$did(19).state,unset %mgs2,$iif(!%mgs2,set %mgs2 $addtok(%mgs2,$+(,$calc($did(4).sel -1),$chr(44),$calc($did(3).sel -1)),46),set %mgs2 $puttok(%mgs2,$+(,$calc($did(4).sel -1),$chr(44),$calc($did(3).sel -1)),$findtok(%mgs2,$matchtok(%mgs2,,1,46),1,46),46)))
set %caouleur1 $+ $calc($did(14).sel -1) $+ , $+ $calc($did(25).sel -1) | set %caouleur2 $+ $calc($did(24).sel -1) $+ , $+ $calc($did(25).sel -1)
if ($did(18).state) { set %randomz1 $calc($did(14).sel -1) | set %randomz2 $calc($did(17).sel -1) } | if (!$did(18).state) { unset %randomz1 %randomz2 } | $iif(!$did(16).state || !$did(19).state,set %mgs2 $remtok(%mgs2,1,1,46),set %mgs2 $addtok(%mgs2,1,46))
$iif(!$did(22).state,set %smgs $remtok(%smgs,,1,46),set %smgs $addtok(%smgs,,46)) | $iif(!$did(23).state,set %smgs $remtok(%smgs,,1,46),set %smgs $addtok(%smgs,,46)) | $iif(!$did(13).state,set %mgs $remtok(%mgs,1,1,46),set %mgs $addtok(%mgs,1,46)) | $iif(!$did(11).state,set %mgs $remtok(%mgs,,1,46),set %mgs $addtok(%mgs,,46)) | $iif(!$did(12).state,set %mgs $remtok(%mgs,,1,46),set %mgs $addtok(%mgs,,46)) | if (!$did(20).state) { unset %caouleur1 %caouleur2 %randomz1 %randomz2 %mgs %smgs }
dialog -x colors
}
}
}
on 1:input:*:{
if (/ == $left($1,1)) { return }
if ($left($active,2) = #!) { say $matchtok(%mgs2,,1,46) $+ $matchtok(%mgs2,,1,46) $+ $matchtok(%mgs2,,1,46) $+ $iif(!$gettok(%mgs2,$findtok(%mgs2,1,1,46),46),$left($1-,1),$upper($left($1-,1))) $+ $mid($1-,2) }
if ($left($active,2) != #!) { say $gettok(%mgs,$findtok(%mgs,,1,46),46) $+ $gettok(%mgs,$findtok(%mgs,,1,46),46) $+ $+ $instok($iif(%randomz1 && %randomz2,$iif($rand(1,2) = 1,%randomz1,%randomz2),$gettok(%caouleur1,1,44)),$gettok(%caouleur2,2,44),2,44) $+ $iif(!$gettok(%mgs,$findtok(%mgs,1,1,46),46),$left($1-,1),$upper($left($1-,1))) $+ $gettok(%mgs,$findtok(%mgs,,1,46),46) $+ $gettok(%mgs,$findtok(%mgs,,1,46),46) $+ %caouleur2 $+ $gettok(%smgs,$findtok(%smgs,,1,46),46) $+ $gettok(%smgs,$findtok(%smgs,,1,46),46) $+ $mid($1-,2) }
}
Conclusion :
donc j'ai eu l'idée de coder ça a cause d'une source poser il y a pas longtemp sur le site :
http://www.ircfr.com/code.aspx?ID=27365 le 1er cmt de PaDa surtout qui ma fait un déclik Ôô Bref, j'en ai pas terminer avec ce code ^ ^
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.