Couleurs d'Écriture

Commenter

Contenu du snippet

Je crois que vous avez deja deviné a quoi sa sert ( à partir du titre )
Alt+R puis c/c dans la remote

Source / Exemple : 


alias couleurs { dialog -m couleurs couleurs }
dialog couleurs {
  title "«-Couleurs D'écriture-»"
  size -1 -1 248 176
  option dbu
  edit "", 1, 48 24 50 10
  edit "", 2, 152 24 50 10
  button "Gras", 3, 16 120 61 12, Flat
  button "Souligné", 4, 168 120 61 12, Flat
  button "Valider", 5, 98 152 53 12, ok cancel Flat
  text "...", 6, 25 144 41 16, center
  text "...", 7, 179 144 41 16, center
  button "Styles", 19, 98 40 53 20, Flat
  combo 8, 16 56 60 50, size drop
  combo 9, 168 56 60 50, size drop
  text "Style Gauche", 10, 40 14 65 8, center
  text "Style Droit", 11, 144 14 65 8, center
  text "Couleur de fond", 12, 165 45 65 8, center
  text "Couleur du text", 13, 13 45 65 8, center
  button "¤Desactiver¤", 14, 96 104 53 12, Flat
  text "...", 15, 104 72 41 16, center
}
on *:dialog:couleurs:*:*:{
  if ($devent == init) {
    didtok $dname 8 44 -Aucun-,-Noir-,-Bleu-,-Vert-,-Rouge-,-Marron-,-Mauve-,-Orange-,-Jaune-,-Vert Clair-,-Cyan-,-Bleu Clair-,-Rose-,-Gris-,-Gris Clair-
didtok $dname 9 44 -Aucun-,-Noir-,-Bleu-,-Vert-,-Rouge-,-Marron-,-Mauve-,-Orange-,-Jaune-,-Vert Clair-,-Cyan-,-Bleu Clair-,-Rose-,-Gris-,-Gris Clair-
  }
  if ($devent == sclick) {
    if ($did(couleurs,8) == -Aucun-) || ($did(couleurs,8) == $null) { set %coul.text 1 }
    if $did(couleurs,8) == -Noir- { set %coul.text 1 }
    if $did(couleurs,8) == -Bleu- { set %coul.text 2 }
    if $did(couleurs,8) == -Vert- { set %coul.text 3 }
    if $did(couleurs,8) == -Rouge- { set %coul.text 4 }
    if $did(couleurs,8) == -Marron- { set %coul.text 5 }
    if $did(couleurs,8) == -Mauve- { set %coul.text 6 }
    if $did(couleurs,8) == -Orange- { set %coul.text 7 }
    if $did(couleurs,8) == -Jaune- { set %coul.text 8 }
    if $did(couleurs,8) == -Vert Clair- { set %coul.text 9 }
    if $did(couleurs,8) == -Cyan- { set %coul.text 11 }
    if $did(couleurs,8) == -Bleu Clair- { set %coul.text 12 }
    if $did(couleurs,8) == -Rose- { set %coul.text 13 }
    if $did(couleurs,8) == -Gris- { set %coul.text 14 }
    if $did(couleurs,8) == -Gris Clair- { set %coul.text 15 }
    if $did(couleurs,9) == -Aucun- { unset %coul.fond }
    if $did(couleurs,9) == -Noir- { set %coul.fond ,1 }
    if $did(couleurs,9) == -Bleu- { set %coul.fond ,2 }
    if $did(couleurs,9) == -Vert- { set %coul.fond ,3 }
    if $did(couleurs,9) == -Rouge- { set %coul.fond ,4 }
    if $did(couleurs,9) == -Marron- { set %coul.fond ,5 }
    if $did(couleurs,9) == -Mauve- { set %coul.fond ,6 }
    if $did(couleurs,9) == -Orange- { set %coul.fond ,7 }
    if $did(couleurs,9) == -Jaune- { set %coul.fond ,8 }
    if $did(couleurs,9) == -Vert Clair- { set %coul.fond ,9 }
    if $did(couleurs,9) == -Cyan- { set %coul.fond ,11 }
    if $did(couleurs,9) == -Bleu Clair- { set %coul.fond ,12 }
    if $did(couleurs,9) == -Rose- { set %coul.fond ,13 }
    if $did(couleurs,9) == -Gris- { set %coul.fond ,14 }
    if $did(couleurs,9) == -Gris Clair- { set %coul.fond ,15 }
    if ($did == 3) { set %Gras   | if %Gras.click == 1 { %Gras.click = 0 | did -ra $dname 6 Désactivé | unset %Gras } | else { %Gras.click = 1 | did -ra $dname 6 Activé } }
    if ($did == 4) { set %Souligné  | if %Souligné.click == 1 { %Souligné.click = 0 | did -ra $dname 7 Désactivé | unset %Souligné } | else { %Souligné.click = 1 | did -ra $dname 7 Activé } }
    if ($did == 14) { unset %Gras | unset %Souligné | unset %coul.fond | unset %coul.text | unset %style.gauche | unset %style.droit }
    if ($did == 19) { set %style.gauche $did(1) | set %style.droit $did(2) | if %style.click == 1 { %style.click = 0 | did -ra $dname 15 Styles Désactivé | unset %style.gauche | unset %style.droit } | else { %style.click = 1 | did -ra $dname 15 Styles Activés } }
  }
}
on *:input:*: { 
  if ($left($1,1) != $chr(47)) && ($left($1,1) != $chr(33)) && ($left($1,1) != $chr(46)) { 
    .msg $active %Gras %Souligné %Coul.text $+ %coul.fond %style.gauche $1- %style.droit
    echo -at < $+ $iif($active ischan,$nick($active,$me).pnick,$me) $+ > %Gras %Souligné %Coul.text $+ %coul.fond %style.gauche $1- %style.droit
    halt
  }
}

Conclusion :


Je n'ai pas remarqué de bugs dans cette premiere source mais si vous en constatez avertissez moi.
J'attends vos commentaire pour améliorer mon code ;)

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_Grais)