Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 812 fois - Téléchargée 29 fois
dialog couleur { title "Configuration Couleur" size -1 -1 186 61 option dbu box "Configuration", 10, 5 2 103 37 text "1ère couleur :", 50, 10 12 44 8 combo 1, 61 10 41 36, size drop text "2ème couleur :", 60, 10 25 44 8 combo 2, 61 23 41 36, size drop button "OK", 30, 5 43 37 12, default ok button "Annuler", 40, 52 43 37 12, cancel box "Options", 20, 111 2 70 37 check "Gras", 3, 116 10 50 10 check "1ère lettre majuscule", 4, 116 18 62 10 check "Alterner", 5, 116 25 50 10 button "Enlever tout", 80, 114 42 56 9 text "© Silver Script. Tous droits réservés.", 70, 95 53 89 8 } on *:dialog:couleur:init:*:{ did -a couleur 1,2 Blanc did -a couleur 1,2 Noir did -a couleur 1,2 Bleu did -a couleur 1,2 Vert did -a couleur 1,2 Rouge Clair did -a couleur 1,2 Brun did -a couleur 1,2 Mauve did -a couleur 1,2 Orange did -a couleur 1,2 Jaune did -a couleur 1,2 Vert Clair did -a couleur 1,2 Cyan did -a couleur 1,2 Cyan Clair did -a couleur 1,2 Bleu Clair did -a couleur 1,2 Rose did -a couleur 1,2 Gris did -a couleur 1,2 Gris Clair did -c couleur 1 $calc(%fcolor + 1) did -c couleur 2 $calc(%scolor + 1) if ( %gras == 1 ) did -c couleur 3 if ( %maj == 1 ) did -c couleur 4 if ( %altern == 1 ) did -c couleur 5 } on *:dialog:couleur:sclick:30:{ if ( $calc($did(1).sel - 1) < 10 ) { set %fcolor 0 $+ $calc($did(1).sel - 1) } else { set %fcolor $calc($did(1).sel - 1) } if ( $calc($did(2).sel - 1) < 10 ) { set %scolor 0 $+ $calc($did(2).sel - 1) } else { set %scolor $calc($did(2).sel - 1) } set %gras $did(3).state set %altern $did(5).state set %maj $did(4).state } on *:dialog:couleur:sclick:80:{ set %fcolor 01 set %scolor 01 set %gras 0 set %maj 0 set %altern 0 dialog -x couleur } on *:load:{ dialog -m couleur couleur } alias couleur { dialog -m couleur couleur } menu menubar { Configurer les couleurs: dialog -m couleur couleur } menu channel { Configurer les couleurs: dialog -m couleur couleur } on *:input:#:{ if (( %altern == 1 ) && ( $left($1,1) != ! ) && ( $left($1,1) != / )) { if ( $1 ison $active ) { var %i 1 var %couleur %scolor while ( %i <= $len($2-) ) { var %t = $mid($2-, %i , 1 ) if ( %couleur == $+ %fcolor ) { %couleur = $+ %scolor } else { %couleur = $+ %fcolor } var %message = %message $+ %couleur $+ %t $+ inc %i } } else { var %i 1 var %couleur %scolor while ( %i <= $len($1-) ) { var %t = $mid($1-, %i , 1 ) if ( %couleur == $+ %fcolor ) { %couleur = $+ %scolor } else { %couleur = $+ %fcolor } if ( %t == $chr(32) ) { if ( %couleur == $+ %fcolor ) { %couleur = $+ %scolor } else { %couleur = $+ %fcolor } } var %message = %message $+ %couleur $+ %t $+ inc %i } } say $iif( $1 ison $active , 4 $+ $1 $+ > ) $iif( %gras == 1, ) $+ $iif( %maj == 1, $upper( $left(%message,4) ), $left(%message, $iif( %fcolor < 10, 5, 4 )) ) $+ $right(%message, $iif( %fcolor < 10, -5, -4 )) halt } if (( %maj == 0 ) && ( %gras == 0 ) && ( %fcolor == 01 ) && ( %scolor == 01 )) goto fin if (( $left($1-,1) == / ) || ( $left($1-,1) == ! )) goto fin var %first.letter.text $left($1,1) var %rest.of.text $right($1-,-1) if (( $1 ison $active ) && ( $2 != $null )) { var %first.letter.text $left($2,1) | var %rest.of.text $right($2-,-1) | /say 4 $+ $1 $+ > $iif( %gras == 1, ) $+ $+ %fcolor $+ $iif( %maj == 1, $upper(%first.letter.text), %first.letter.text) $+ $+ %scolor $+ %rest.of.text | halt } say $iif( %gras == 1, ) $+ $+ %fcolor $+ $iif( %maj == 1, $upper(%first.letter.text), %first.letter.text) $+ $+ %scolor $+ %rest.of.text halt :fin } on *:input:?:{ if (( %altern == 1 ) && ( $left($1,1) != ! ) && ( $left($1,1) != / )) { var %i 1 var %couleur %scolor while ( %i <= $len($1-) ) { var %t = $mid($1-, %i , 1 ) if ( %couleur == $+ %fcolor ) { %couleur = $+ %scolor } else { %couleur = $+ %fcolor } if ( %t == $chr(32) ) { if ( %couleur == $+ %fcolor ) { %couleur = $+ %scolor } else { %couleur = $+ %fcolor } } var %message = %message $+ %couleur $+ %t $+ inc %i } say $iif( %gras == 1, ) $+ $iif( %maj == 1, $upper( $left(%message,4) ), $left(%message, $iif( %fcolor < 10, 5, 4 )) ) $+ $right(%message, $iif( %fcolor < 10, -5, -4 )) halt } if (( %maj == 0 ) && ( %gras == 0 ) && ( %fcolor == 01 ) && ( %scolor == 01 )) goto fin if (( $left($1-,1) == / ) || ( $left($1-,1) == ! )) goto fin var %first.letter.text $left($1,1) var %rest.of.text $right($1-,-1) say $iif( %gras == 1, ) $+ $+ %fcolor $+ $iif( %maj == 1, $upper(%first.letter.text), %first.letter.text) $+ $+ %scolor $+ %rest.of.text halt :fin }
24 déc. 2006 à 17:52
18 févr. 2006 à 14:51
18 févr. 2006 à 14:50
7 août 2004 à 14:25
3 juil. 2004 à 16:34
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.