Panel de Couleur Ecriture By Le-Chieur
Panel de Couleur Ecriture By Le-Chieur
- Code:
;Pour l'ouvir allez ensuite dans votre menubar ;)
menu menubar {
Couleur d'écriture:/dialog -m couleurs couleurs
}
dialog couleurs {
title "Changer de couleur d'écriture"
size 1 -1 300 400 350
text "Choisis la couleur:" 2, 100 5 90 19
text "Première lettre:" 3, 100 25 90 19
button "Rouge" 4, 100 40 90 19
button "Bleu" 5, 100 60 90 19
button "Vert" 6, 100 80 90 19
button "Noire" 7, 100 100 90 19
text "Texte:" 8, 100 180 90 19
button "Noir" 9, 100 195 90 19
button "Bleu" 10, 100 215 90 19
button "Rouge" 11, 100 235 90 19
button "Vert" 12, 100 255 90 19
button "OK" 13, 100 365 90 30, ok
button "Gras" 14, 5 55 90 19
button "Sans gras" 15, 5 75 90 19
text "Gras/Sans gras:" 16, 5 25 90 30
text "Gras text/Sans gras:" 17, 5 180 95 30
button "Gras" 18, 5 210 90 19
button "Sans gras" 19, 5 230 90 19
text "Souligné/Pas souligné:" 20, 210 25 90 28
button "Souligné" 21, 195 55 90 19
button "Pas souligné" 22, 195 75 90 19
text "Souligner le text/Pas [...] :" 23, 195 180 90 28
button "Souligner" 24, 195 210 90 19
button "Pas souligner" 25, 195 230 90 19
button "Réinitialiser" 26, 5 365 90 30
button "Tester" 27, 195 365 90 30
button "Gris" 28, 100 120 90 19
button "Orange" 29, 100 140 90 19
button "Violet" 30, 100 160 90 19
button "Gris" 31, 100 275 90 19
button "Orange" 32, 100 295 90 19
button "Violet" 33, 100 315 90 19
}
on *:dialog:couleurs:sclick:*:{
if ($did == 1) { /dialog -m couleurs couleurs }
if ($did == 4) {
set %premierelettre 4
}
if ($did == 5) {
set %premierelettre 12
}
if ($did == 6) {
set %premierelettre 3
}
if ($did == 7) {
set %premierelettre 1
}
if ($did == 9) {
set %text 1
}
if ($did == 10) {
set %text 12
}
if ($did == 11) {
set %text 4
}
if ($did == 12) {
set %text 3
}
if ($did == 14) {
set %graspl
}
if ($did == 15) {
set %graspl
}
if ($did == 18) {
set %grastext
}
if ($did == 19) {
set %grastext
}
if ($did == 21) {
set %soulettre
}
if ($did == 22) {
set %soulettre
}
if ($did == 24) {
set %soutext
}
if ($did == 25) {
set %soutext
}
if ($did == 26) {
unset %soulettre
unset %premierelettre
unset %graspl
unset %text
unset %grastext
unset %soutext
echo -at Couleurs réinitialisées - Couleur par défaut
}
if ($did == 27) {
echo -at 4(Test de la couleur) %soulettre $+ %premierelettre $+ %graspl $+ L $+ %soulettre $+ %graspl $+ %text $+ %grastext $+ %soutext $+ e-Chieur Color
}
if ($did == 28) {
set %premierelettre 14
}
if ($did == 29) {
set %premierelettre 7
}
if ($did == 30) {
set %premierelettre 6
}
if ($did == 31) {
set %text 14
}
if ($did == 32) {
set %text 7
}
if ($did == 33) {
set %text 6
}
}
on *:input:*: {
if ($left($1-,1) != /) && ($left($1-,1) != !) && ($left($1-,1) != =) && ($left($1-,1) != &) && ($left($1-,1) != ^) && ($left($1-,1) != -) && ($left($1-,1) != +) && ($left($1-,1) != :) && ($left($1-,1) != ;) {
say $+(%soulettre $+ %premierelettre $+ %graspl $+ $left($1-,1)) $+ $+ %soulettre $+ %graspl $+ %text $+ %grastext $+ %soutext $+ $mid($1-,2)) $+ | halt
}
}
Panel testé est Opérationel
Cordialement Le-Chieur , Bon usage à vous
Le-Chieur- Messages : 21
Date d'inscription : 04/12/2009
Age : 34
Localisation : Finistère
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|