begin process at 2010 02 10 14:16:10
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

AddOns

 > COULEUR D'ÉCRITURE EN PICWIN

COULEUR D'ÉCRITURE EN PICWIN


 Information sur la source

Note :
9 / 10 - par 4 personnes
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :AddOns Classé sous :picwin, couleurs, ecriture Niveau :Débutant Date de création :17/08/2006 Date de mise à jour :29/10/2006 10:23:03 Vu :7 209
Auteur : atlantisfr

Ecrire un message privé
Site perso
Commentaire sur cette source (12)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Cette add-ons vous permetera de personnaliser votre écriture tout simplement :)
Pour l'ouvrir tapez : /couleurs

Source

  • alias couleurs {
  • set %ccolor texte
  • set %ccombo non
  • window -BCdg0k0pRz +dl @couleurs 0 0 337 144
  • drawfill -r @couleurs $rgb(218,240,252) 1 10 10
  • drawrect -f @couleurs 2 2 0 0 337 15
  • drawtext -roc @couleurs $rgb(250,250,250) Tahoma 10 5 3 200 20 Systeme Couleurs par atlantisfr
  • drawrect @couleurs 2 2 0 15 337 129
  • drawrect -f @couleurs 4 2 323 3 11 11
  • drawrect @couleurs 0 1 323 3 11 11
  • drawrect -f @couleurs 3 2 310 3 11 11
  • drawrect @couleurs 0 1 310 3 11 11
  • drawrect -f @couleurs 15 2 5 20 100 20
  • drawrect @couleurs 2 2 5 20 100 20
  • drawrect -f @couleurs 15 2 103 20 20 20
  • drawrect @couleurs 2 2 103 20 20 20
  • drawtext -oc @couleurs 2 Webdings 12 107 20 160 12 6
  • drawtext -oc @couleurs 2 Tahoma 10 10 23 100 20 Couleurs du Texte
  • drawline @couleurs 2 2 130 20 130 75
  • drawrect -f @couleurs 0 2 137 20 20 20
  • drawrect @couleurs 2 2 137 20 20 20
  • drawrect -f @couleurs 1 2 162 20 20 20
  • drawrect @couleurs 2 2 162 20 20 20
  • drawrect -f @couleurs 2 2 187 20 20 20
  • drawrect @couleurs 2 2 187 20 20 20
  • drawrect -f @couleurs 3 2 212 20 20 20
  • drawrect @couleurs 2 2 212 20 20 20
  • drawrect -f @couleurs 4 2 237 20 20 20
  • drawrect @couleurs 2 2 237 20 20 20
  • drawrect -f @couleurs 5 2 262 20 20 20
  • drawrect @couleurs 2 2 262 20 20 20
  • drawrect -f @couleurs 6 2 287 20 20 20
  • drawrect @couleurs 2 2 287 20 20 20
  • drawrect -f @couleurs 7 2 312 20 20 20
  • drawrect @couleurs 2 2 312 20 20 20
  • drawrect -f @couleurs 8 2 137 43 20 20
  • drawrect @couleurs 2 2 137 43 20 20
  • drawrect -f @couleurs 9 2 162 43 20 20
  • drawrect @couleurs 2 2 162 43 20 20
  • drawrect -f @couleurs 10 2 187 43 20 20
  • drawrect @couleurs 2 2 187 43 20 20
  • drawrect -f @couleurs 11 2 212 43 20 20
  • drawrect @couleurs 2 2 212 43 20 20
  • drawrect -f @couleurs 12 2 237 43 20 20
  • drawrect @couleurs 2 2 237 43 20 20
  • drawrect -f @couleurs 13 2 262 43 20 20
  • drawrect @couleurs 2 2 262 43 20 20
  • drawrect -f @couleurs 14 2 287 43 20 20
  • drawrect @couleurs 2 2 287 43 20 20
  • drawrect -f @couleurs 15 2 312 43 20 20
  • drawrect @couleurs 2 2 312 43 20 20
  • drawrect -f @couleurs 15 2 180 65 12 12
  • drawrect @couleurs 2 2 180 65 12 12
  • drawtext -oc @couleurs 2 Tahoma 10 195 65 100 20 Texte
  • if (%ctexte != $null) drawrect -f @couleurs %ctexte 1 182 67 8 8
  • drawrect -f @couleurs 15 2 137 65 12 12
  • drawrect @couleurs 2 2 137 65 12 12
  • drawtext -oc @couleurs 2 Tahoma 10 152 65 100 20 Fond
  • if (%fond != $null) drawrect -f @couleurs %fond 1 139 67 8 8
  • drawline @couleurs 2 2 5 80 332 80
  • drawtext -oc @couleurs 2 Tahoma 10 5 85 110 20 Décoration à gauche :
  • drawtext -oc @couleurs 2 Tahoma 10 5 103 110 20 Décoration à droite :
  • drawrect -f @couleurs 15 2 115 83 218 17
  • drawrect @couleurs 2 2 115 83 218 17
  • if (%cedit != $null) drawtext -oc @couleurs 2 Tahoma 10 120 85 218 17 %cedit
  • drawrect -f @couleurs 15 2 110 102 223 17
  • drawrect @couleurs 2 2 110 102 223 17
  • if (%ccedit != $null) drawtext -oc @couleurs 2 Tahoma 10 115 104 223 17 %ccedit
  • drawline @couleurs 2 2 5 122 332 122
  • drawrect -f @couleurs 15 2 5 126 12 12
  • drawrect @couleurs 2 2 5 126 12 12
  • drawtext -oc @couleurs 2 Tahoma 10 20 126 100 20 Gras
  • if (%cgras == ) drawtext -oc @couleurs 2 Tahoma 12 7 124 100 20 •
  • drawrect -f @couleurs 15 2 47 126 12 12
  • drawrect @couleurs 2 2 47 126 12 12
  • drawtext -oc @couleurs 2 Tahoma 10 62 126 100 20 Souligner
  • if (%csouligner == ) drawtext -oc @couleurs 2 Tahoma 12 49 124 150 20 •
  • drawrect -f @couleurs 15 2 113 126 12 12
  • drawrect @couleurs 2 2 113 126 12 12
  • drawtext -oc @couleurs 2 Tahoma 10 128 126 100 20 Majuscule
  • if (%cmajuscule == on) drawtext -oc @couleurs 2 Tahoma 12 115 124 100 20 •
  • drawline @couleurs 2 2 180 125 180 139
  • drawrect -f @couleurs 15 2 184 125 148 15
  • drawrect @couleurs 2 2 184 125 148 15
  • drawtext -oc @couleurs 2 Tahoma 10 240 126 100 20 Valider
  • drawrect -f @couleurs 15 2 5 65 12 12
  • drawrect @couleurs 2 2 5 65 12 12
  • drawtext -oc @couleurs 2 Tahoma 10 20 65 100 20 Activer/Désactiver
  • if (%cactive == on) drawtext -oc @couleurs 2 Tahoma 12 7 63 100 20 •
  • drawrect -f @couleurs 15 2 281 65 12 12
  • drawrect @couleurs 2 2 281 65 12 12
  • drawtext -oc @couleurs 2 Tahoma 10 296 65 100 20 Aucune
  • if (%ctexte == $null) { drawtext -oc @couleurs 2 Tahoma 12 182 63 100 20 • | drawtext -oc @couleurs 2 Tahoma 12 283 63 100 20 • }
  • if (%cfond == $null) { drawtext -oc @couleurs 2 Tahoma 12 139 63 100 20 • | drawtext -oc @couleurs 2 Tahoma 12 283 63 100 20 • }
  • }
  • on *:keydown:@couleurs:*:{
  • if ($keyval != 8) {
  • if ($keyval == 32) {
  • if (%ed == 1) { set %ccedit2 %ccedit $+ $chr(160) | set %ccedit %ccedit2 | drawtext -oc @couleurs 2 Tahoma 10 115 104 218 17 %ccedit }
  • if (%ed == 2) { set %cedit2 %cedit $+ $chr(160) | set %cedit %cedit2 | drawtext -oc @couleurs 2 Tahoma 10 120 85 218 17 %cedit }
  • }
  • else {
  • if (%ed == 1) { set %ccedit2 %ccedit $+ $keychar | set %ccedit %ccedit2 | drawtext -oc @couleurs 2 Tahoma 10 115 104 218 17 %ccedit }
  • if (%ed == 2) { set %cedit2 %cedit $+ $keychar | set %cedit %cedit2 | drawtext -oc @couleurs 2 Tahoma 10 120 85 218 17 %cedit }
  • }
  • }
  • else {
  • if (%ed == 1) {
  • set %ccedit2 $left(%ccedit,$calc($len(%ccedit) - 1)) | set %ccedit %ccedit2 | drawrect -f @couleurs 15 1 110 102 223 17 | drawrect @couleurs 2 2 110 102 223 17
  • if (%ccedit) { drawtext -oc @couleurs 2 Tahoma 10 115 104 223 17 %ccedit }
  • }
  • if (%ed == 2) {
  • set %cedit2 $left(%cedit,$calc($len(%cedit) - 1)) | set %cedit %cedit2 | drawrect -f @couleurs 15 1 115 83 218 17 | drawrect @couleurs 2 2 115 83 218 17
  • if (%cedit) { drawtext -oc @couleurs 2 Tahoma 10 120 85 218 17 %cedit }
  • }
  • }
  • }
  • alias -l couleurs.move {
  • if ($window(@couleurs)) window @couleurs $calc($mouse.dx - $1) $calc($mouse.dy - $2)
  • if ($mouse.key & 1) .timer $+ $ticks -m 1 0 couleurs.move $1-
  • }
  • menu @couleurs {
  • mouse: {
  • if $inrect($mouse.x,$mouse.y,137,20,20,20) { drawrect @couleurs 14 2 137 20 20 20 }
  • else { drawrect @couleurs 2 2 137 20 20 20 }
  • if $inrect($mouse.x,$mouse.y,137,20,20,20) { drawrect @couleurs 14 2 137 20 20 20 }
  • else { drawrect @couleurs 2 2 137 20 20 20 }
  • if $inrect($mouse.x,$mouse.y,162,20,20,20) { drawrect @couleurs 14 2 162 20 20 20 }
  • else { drawrect @couleurs 2 2 162 20 20 20 }
  • if $inrect($mouse.x,$mouse.y,187,20,20,20) { drawrect @couleurs 14 2 187 20 20 20 }
  • else { drawrect @couleurs 2 2 187 20 20 20 }
  • if $inrect($mouse.x,$mouse.y,212,20,20,20) { drawrect @couleurs 14 2 212 20 20 20 }
  • else { drawrect @couleurs 2 2 212 20 20 20 }
  • if $inrect($mouse.x,$mouse.y,237,20,20,20) { drawrect @couleurs 14 2 237 20 20 20 }
  • else { drawrect @couleurs 2 2 237 20 20 20 }
  • if $inrect($mouse.x,$mouse.y,262,20,20,20) { drawrect @couleurs 14 2 262 20 20 20 }
  • else { drawrect @couleurs 2 2 262 20 20 20 }
  • if $inrect($mouse.x,$mouse.y,287,20,20,20) { drawrect @couleurs 14 2 287 20 20 20 }
  • else { drawrect @couleurs 2 2 287 20 20 20 }
  • if $inrect($mouse.x,$mouse.y,312,20,20,20) { drawrect @couleurs 14 2 312 20 20 20 }
  • else { drawrect @couleurs 2 2 312 20 20 20 }
  • if $inrect($mouse.x,$mouse.y,137,43,20,20) { drawrect @couleurs 14 2 137 43 20 20 }
  • else { drawrect @couleurs 2 2 137 43 20 20 }
  • if $inrect($mouse.x,$mouse.y,162,43,20,20) { drawrect @couleurs 14 2 162 43 20 20 }
  • else { drawrect @couleurs 2 2 162 43 20 20 }
  • if $inrect($mouse.x,$mouse.y,187,43,20,20) { drawrect @couleurs 14 2 187 43 20 20 }
  • else { drawrect @couleurs 2 2 187 43 20 20 }
  • if $inrect($mouse.x,$mouse.y,212,43,20,20) { drawrect @couleurs 14 2 212 43 20 20 }
  • else { drawrect @couleurs 2 2 212 43 20 20 }
  • if $inrect($mouse.x,$mouse.y,237,43,20,20) { drawrect @couleurs 14 2 237 43 20 20 }
  • else { drawrect @couleurs 2 2 237 43 20 20 }
  • if $inrect($mouse.x,$mouse.y,262,43,20,20) { drawrect @couleurs 14 2 262 43 20 20 }
  • else { drawrect @couleurs 2 2 262 43 20 20 }
  • if $inrect($mouse.x,$mouse.y,287,43,20,20) { drawrect @couleurs 14 2 287 43 20 20 }
  • else { drawrect @couleurs 2 2 287 43 20 20 }
  • if $inrect($mouse.x,$mouse.y,312,43,20,20) { drawrect @couleurs 14 2 312 43 20 20 }
  • else { drawrect @couleurs 2 2 312 43 20 20 }
  • if $inrect($mouse.x,$mouse.y,184,125,148,15) { drawrect -f @couleurs 15 2 186 127 144 11 | drawtext -oc @couleurs 14 Tahoma 10 240 126 100 20 Valider }
  • else { drawrect -f @couleurs 15 2 186 127 144 11 | drawtext -oc @couleurs 2 Tahoma 10 240 126 100 20 Valider }
  • if $inrect($mouse.x,$mouse.y,323,3,11,11) { drawdot -f @couleurs 0 4 330 10 | drawrect @couleurs 0 1 323 3 11 11 }
  • else { drawrect -f @couleurs 4 2 323 3 11 11 | drawrect @couleurs 0 1 323 3 11 11 }
  • if $inrect($mouse.x,$mouse.y,310,3,11,11) { drawdot -f @couleurs 0 4 317 10 | drawrect @couleurs 0 1 310 3 11 11 }
  • else { drawrect -f @couleurs 3 2 310 3 11 11 | drawrect @couleurs 0 1 310 3 11 11 }
  • }
  • sclick:{
  • if ($inrect($mouse.x,$mouse.y,5,65,12,12)) {
  • if (%cactive == $null) { drawtext -oc @couleurs 2 Tahoma 12 7 63 100 20 • | set %cactive on }
  • else { drawrect -f @couleurs 15 2 7 67 8 8 | set %cactive $null }
  • }
  • if $inrect($mouse.x,$mouse.y,184,125,148,15) { window -c @couleurs }
  • if ($inrect($mouse.x,$mouse.y,5,126,12,12)) {
  • if (%cgras == $null) { drawtext -oc @couleurs 2 Tahoma 12 7 124 100 20 • | set %cgras  }
  • else { drawrect -f @couleurs 15 2 7 128 8 8 | set %cgras $null }
  • }
  • if ($inrect($mouse.x,$mouse.y,47,126,12,12)) {
  • if (%csouligner == $null) { drawtext -oc @couleurs 2 Tahoma 12 49 124 150 20 • | set %csouligner  }
  • else { drawrect -f @couleurs 15 2 49 128 8 8 | set %csouligner $null }
  • }
  • if ($inrect($mouse.x,$mouse.y,113,126,12,12)) {
  • if (%cmajuscule == off) { drawtext -oc @couleurs 2 Tahoma 12 115 124 100 20 • | set %cmajuscule on }
  • else { drawrect -f @couleurs 15 2 115 128 8 8 | set %cmajuscule off }
  • }
  • if ($mouse.y < 15) { couleurs.move $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y) }
  • if ($inrect($mouse.x,$mouse.y,323,3,11,11)) { window -c @couleurs }
  • if ($inrect($mouse.x,$mouse.y,310,3,11,11)) { window -n @couleurs }
  • if ($inrect($mouse.x,$mouse.y,110,102,223,17)) { set %ed 1 }
  • if ($inrect($mouse.x,$mouse.y,115,83,218,17)) { set %ed 2 }
  • if ($inrect($mouse.x,$mouse.y,115,83,218,17)) { set %ed 2 }
  • if ($inrect($mouse.x,$mouse.y,110,102,223,17)) { set %ed 1 }
  • if ($inrect($mouse.x,$mouse.y,103,20,20,20)) {
  • if (%ccombo == non) {
  • set %ccombo oui | drawrect -f @couleurs 15 2 5 38 100 20 | drawrect @couleurs 2 2 5 38 100 20
  • if (%ccolor == fond) { drawtext -oc @couleurs 2 Tahoma 10 10 42 100 20 Couleurs du Texte }
  • else { drawtext -oc @couleurs 2 Tahoma 10 12 42 100 20 Couleurs du Fond }
  • }
  • else { set %ccombo non | drawrect -fr @couleurs $rgb(218,240,252) 2 5 40 100 20 }
  • }
  • if ($inrect($mouse.x,$mouse.y,12,42,100,20)) { set %ccombo non | drawrect -fr @couleurs $rgb(218,240,252) 2 5 40 100 20 }
  • if ($inrect($mouse.x,$mouse.y,12,42,100,20)) {
  • if (%ccolor == texte) { set %ccolor fond | drawrect -f @couleurs 15 2 7 22 96 16 | drawtext -oc @couleurs 2 Tahoma 10 10 23 100 20 Couleurs du Fond }
  • else { set %ccolor texte | drawrect -f @couleurs 15 2 7 22 96 16 | drawtext -oc @couleurs 2 Tahoma 10 10 23 100 20 Couleurs du Texte }
  • }
  • if ($inrect($mouse.x,$mouse.y,137,20,20,20)) {
  • if (%ccolor == texte) { set %ctexte 00 | drawrect -f @couleurs 0 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • else { set %fond 0 | set %cfond ,00 | drawrect -f @couleurs 0 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • }
  • if ($inrect($mouse.x,$mouse.y,162,20,20,20)) {
  • if (%ccolor == texte) { set %ctexte 01 | drawrect -f @couleurs 1 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • else { set %fond 1 | set %cfond ,01 | drawrect -f @couleurs 1 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • }
  • if ($inrect($mouse.x,$mouse.y,197,20,20,20)) {
  • if (%ccolor == texte) { set %ctexte 02 | drawrect -f @couleurs 2 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • else { set %fond 2 | set %cfond ,02 | drawrect -f @couleurs 2 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • }
  • if ($inrect($mouse.x,$mouse.y,212,20,20,20)) {
  • if (%ccolor == texte) { set %ctexte 03 | drawrect -f @couleurs 3 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • else { set %fond 3 | set %cfond ,03 | drawrect -f @couleurs 3 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • }
  • if ($inrect($mouse.x,$mouse.y,237,20,20,20)) {
  • if (%ccolor == texte) { set %ctexte 04 | drawrect -f @couleurs 4 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • else { set %fond 4 | set %cfond ,04 | drawrect -f @couleurs 4 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • }
  • if ($inrect($mouse.x,$mouse.y,262,20,20,20)) {
  • if (%ccolor == texte) { set %ctexte 05 | drawrect -f @couleurs 5 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • else { set %fond 5 | set %cfond ,05 | drawrect -f @couleurs 5 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • }
  • if ($inrect($mouse.x,$mouse.y,297,20,20,20)) {
  • if (%ccolor == texte) { set %ctexte 06 | drawrect -f @couleurs 6 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • else { set %fond 6 | set %cfond ,06 | drawrect -f @couleurs 6 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • }
  • if ($inrect($mouse.x,$mouse.y,312,20,20,20)) {
  • if (%ccolor == texte) { set %ctexte 07 | drawrect -f @couleurs 7 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • else { set %fond 7 | set %cfond ,07 | drawrect -f @couleurs 7 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • }
  • if ($inrect($mouse.x,$mouse.y,137,43,20,20)) {
  • if (%ccolor == texte) { set %ctexte 08 | drawrect -f @couleurs 8 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • else { set %fond 8 | set %cfond ,08 | drawrect -f @couleurs 8 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • }
  • if ($inrect($mouse.x,$mouse.y,162,43,20,20)) {
  • if (%ccolor == texte) { set %ctexte 09 | drawrect -f @couleurs 9 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • else { set %fond 9 | set %cfond ,09 | drawrect -f @couleurs 9 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • }
  • if ($inrect($mouse.x,$mouse.y,197,43,20,20)) {
  • if (%ccolor == texte) { set %ctexte 10 | drawrect -f @couleurs 10 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • else { set %fond 10 | set %cfond ,10 | drawrect -f @couleurs 10 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • }
  • if ($inrect($mouse.x,$mouse.y,212,43,20,20)) {
  • if (%ccolor == texte) { set %ctexte 11 | drawrect -f @couleurs 11 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • else { set %fond 11 | set %cfond ,11 | drawrect -f @couleurs 11 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • }
  • if ($inrect($mouse.x,$mouse.y,237,43,20,20)) {
  • if (%ccolor == texte) { set %ctexte 12 | drawrect -f @couleurs 12 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • else { set %fond 12 | set %cfond ,12 | drawrect -f @couleurs 12 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • }
  • if ($inrect($mouse.x,$mouse.y,262,43,20,20)) {
  • if (%ccolor == texte) { set %ctexte 13 | drawrect -f @couleurs 13 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • else { set %fond 13 | set %cfond ,13 | drawrect -f @couleurs 13 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • }
  • if ($inrect($mouse.x,$mouse.y,297,43,20,20)) {
  • if (%ccolor == texte) { set %ctexte 14 | drawrect -f @couleurs 14 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • else { set %fond 14 | set %cfond ,14 | drawrect -f @couleurs 14 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • }
  • if ($inrect($mouse.x,$mouse.y,312,43,20,20)) {
  • if (%ccolor == texte) { set %ctexte 15 | drawrect -f @couleurs 15 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • else { set %fond 15 | set %cfond ,15 | drawrect -f @couleurs 15 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
  • }
  • if ($inrect($mouse.x,$mouse.y,281,65,12,12)) {
  • if (%ccolor == texte) { set %ctexte $null | drawrect -f @couleurs 15 1 182 67 8 8 | drawtext -oc @couleurs 2 Tahoma 12 182 63 100 20 • | drawtext -oc @couleurs 2 Tahoma 12 283 63 100 20 • }
  • else { set %fond 15 | set %cfond $null | drawrect -f @couleurs 15 1 139 67 8 8 | drawtext -oc @couleurs 2 Tahoma 12 139 63 100 20 • | drawtext -oc @couleurs 2 Tahoma 12 283 63 100 20 • }
  • }
  • }
  • Fermer la fenêtre:window -c @couleurs
  • Minimiser la fenêtre:window -n @couleurs
  • }
  • On *:input:*:{
  • If (%cactive == on) {
  • if ($left($1,1) isin /!-+) { goto stop }
  • if (c isincs $gettok($chan($active).mode,1,32)) { goto stop }
  • if (%cmajuscule != on) {
  • msg $active  $+ %ctexte $+ %cfond $+ %cedit $+ %csouligner $+ %cgras $+ $1- $+ %csouligner $+ %cgras $+ %ccedit $+  | halt
  • }
  • :fin
  • if (%cmajuscule == on) {
  • var %textmaj = $+($upper($left($1-,1)),$right($1-,$calc($len($1-) - 1)))
  • msg $active  $+ %ctexte $+ %cfond $+ %cedit $+ %csouligner $+ %cgras $+ %textmaj $+ %csouligner $+ %cgras $+ %ccedit $+  | halt
  • }
  • :stop
  • }
  • }
alias couleurs {
  set %ccolor texte
  set %ccombo non
  window -BCdg0k0pRz +dl @couleurs 0 0 337 144
  drawfill -r @couleurs $rgb(218,240,252) 1 10 10
  drawrect -f @couleurs 2 2 0 0 337 15
  drawtext -roc @couleurs $rgb(250,250,250) Tahoma 10 5 3 200 20 Systeme Couleurs par atlantisfr
  drawrect @couleurs 2 2 0 15 337 129
  drawrect -f @couleurs 4 2 323 3 11 11
  drawrect @couleurs 0 1 323 3 11 11
  drawrect -f @couleurs 3 2 310 3 11 11
  drawrect @couleurs 0 1 310 3 11 11
  drawrect -f @couleurs 15 2 5 20 100 20
  drawrect @couleurs 2 2 5 20 100 20
  drawrect -f @couleurs 15 2 103 20 20 20
  drawrect @couleurs 2 2 103 20 20 20
  drawtext -oc @couleurs 2 Webdings 12 107 20 160 12 6
  drawtext -oc @couleurs 2 Tahoma 10 10 23 100 20 Couleurs du Texte
  drawline @couleurs 2 2 130 20 130 75
  drawrect -f @couleurs 0 2 137 20 20 20
  drawrect @couleurs 2 2 137 20 20 20
  drawrect -f @couleurs 1 2 162 20 20 20
  drawrect @couleurs 2 2 162 20 20 20
  drawrect -f @couleurs 2 2 187 20 20 20
  drawrect @couleurs 2 2 187 20 20 20
  drawrect -f @couleurs 3 2 212 20 20 20
  drawrect @couleurs 2 2 212 20 20 20
  drawrect -f @couleurs 4 2 237 20 20 20
  drawrect @couleurs 2 2 237 20 20 20
  drawrect -f @couleurs 5 2 262 20 20 20
  drawrect @couleurs 2 2 262 20 20 20
  drawrect -f @couleurs 6 2 287 20 20 20
  drawrect @couleurs 2 2 287 20 20 20
  drawrect -f @couleurs 7 2 312 20 20 20
  drawrect @couleurs 2 2 312 20 20 20
  drawrect -f @couleurs 8 2 137 43 20 20
  drawrect @couleurs 2 2 137 43 20 20
  drawrect -f @couleurs 9 2 162 43 20 20
  drawrect @couleurs 2 2 162 43 20 20
  drawrect -f @couleurs 10 2 187 43 20 20
  drawrect @couleurs 2 2 187 43 20 20
  drawrect -f @couleurs 11 2 212 43 20 20
  drawrect @couleurs 2 2 212 43 20 20
  drawrect -f @couleurs 12 2 237 43 20 20
  drawrect @couleurs 2 2 237 43 20 20
  drawrect -f @couleurs 13 2 262 43 20 20
  drawrect @couleurs 2 2 262 43 20 20
  drawrect -f @couleurs 14 2 287 43 20 20
  drawrect @couleurs 2 2 287 43 20 20
  drawrect -f @couleurs 15 2 312 43 20 20
  drawrect @couleurs 2 2 312 43 20 20
  drawrect -f @couleurs 15 2 180 65 12 12
  drawrect @couleurs 2 2 180 65 12 12
  drawtext -oc @couleurs 2 Tahoma 10 195 65 100 20 Texte
  if (%ctexte != $null) drawrect -f @couleurs %ctexte 1 182 67 8 8
  drawrect -f @couleurs 15 2 137 65 12 12
  drawrect @couleurs 2 2 137 65 12 12
  drawtext -oc @couleurs 2 Tahoma 10 152 65 100 20 Fond
  if (%fond != $null) drawrect -f @couleurs %fond 1 139 67 8 8
  drawline @couleurs 2 2 5 80 332 80
  drawtext -oc @couleurs 2 Tahoma 10 5 85 110 20 Décoration à gauche :
  drawtext -oc @couleurs 2 Tahoma 10 5 103 110 20 Décoration à droite :
  drawrect -f @couleurs 15 2 115 83 218 17
  drawrect @couleurs 2 2 115 83 218 17
  if (%cedit != $null) drawtext -oc @couleurs 2 Tahoma 10 120 85 218 17 %cedit
  drawrect -f @couleurs 15 2 110 102 223 17
  drawrect @couleurs 2 2 110 102 223 17
  if (%ccedit != $null) drawtext -oc @couleurs 2 Tahoma 10 115 104 223 17 %ccedit
  drawline @couleurs 2 2 5 122 332 122
  drawrect -f @couleurs 15 2 5 126 12 12
  drawrect @couleurs 2 2 5 126 12 12
  drawtext -oc @couleurs 2 Tahoma 10 20 126 100 20 Gras
  if (%cgras == ) drawtext -oc @couleurs 2 Tahoma 12 7 124 100 20 • 
  drawrect -f @couleurs 15 2 47 126 12 12
  drawrect @couleurs 2 2 47 126 12 12
  drawtext -oc @couleurs 2 Tahoma 10 62 126 100 20 Souligner
  if (%csouligner == ) drawtext -oc @couleurs 2 Tahoma 12 49 124 150 20 •
  drawrect -f @couleurs 15 2 113 126 12 12
  drawrect @couleurs 2 2 113 126 12 12
  drawtext -oc @couleurs 2 Tahoma 10 128 126 100 20 Majuscule
  if (%cmajuscule == on) drawtext -oc @couleurs 2 Tahoma 12 115 124 100 20 •
  drawline @couleurs 2 2 180 125 180 139
  drawrect -f @couleurs 15 2 184 125 148 15
  drawrect @couleurs 2 2 184 125 148 15
  drawtext -oc @couleurs 2 Tahoma 10 240 126 100 20 Valider
  drawrect -f @couleurs 15 2 5 65 12 12
  drawrect @couleurs 2 2 5 65 12 12
  drawtext -oc @couleurs 2 Tahoma 10 20 65 100 20 Activer/Désactiver 
  if (%cactive == on) drawtext -oc @couleurs 2 Tahoma 12 7 63 100 20 •
  drawrect -f @couleurs 15 2 281 65 12 12
  drawrect @couleurs 2 2 281 65 12 12 
  drawtext -oc @couleurs 2 Tahoma 10 296 65 100 20 Aucune
  if (%ctexte == $null) { drawtext -oc @couleurs 2 Tahoma 12 182 63 100 20 • | drawtext -oc @couleurs 2 Tahoma 12 283 63 100 20 • }
  if (%cfond == $null) { drawtext -oc @couleurs 2 Tahoma 12 139 63 100 20 • | drawtext -oc @couleurs 2 Tahoma 12 283 63 100 20 • }
}
on *:keydown:@couleurs:*:{
  if ($keyval != 8) {
    if ($keyval == 32) {
      if (%ed == 1) { set %ccedit2 %ccedit $+ $chr(160) | set %ccedit %ccedit2 | drawtext -oc @couleurs 2 Tahoma 10 115 104 218 17 %ccedit }
      if (%ed == 2) { set %cedit2 %cedit $+ $chr(160) | set %cedit %cedit2 | drawtext -oc @couleurs 2 Tahoma 10 120 85 218 17 %cedit }
    }
    else {
      if (%ed == 1) { set %ccedit2 %ccedit $+ $keychar | set %ccedit %ccedit2 | drawtext -oc @couleurs 2 Tahoma 10 115 104 218 17 %ccedit }
      if (%ed == 2) { set %cedit2 %cedit $+ $keychar | set %cedit %cedit2 | drawtext -oc @couleurs 2 Tahoma 10 120 85 218 17 %cedit }
    }
  }
  else {
    if (%ed == 1) {
      set %ccedit2 $left(%ccedit,$calc($len(%ccedit) - 1)) | set %ccedit %ccedit2 | drawrect -f @couleurs 15 1 110 102 223 17 | drawrect @couleurs 2 2 110 102 223 17
      if (%ccedit) { drawtext -oc @couleurs 2 Tahoma 10 115 104 223 17 %ccedit }
    }
    if (%ed == 2) {
      set %cedit2 $left(%cedit,$calc($len(%cedit) - 1)) | set %cedit %cedit2 | drawrect -f @couleurs 15 1 115 83 218 17 | drawrect @couleurs 2 2 115 83 218 17
      if (%cedit) { drawtext -oc @couleurs 2 Tahoma 10 120 85 218 17 %cedit }
    }
  }
}
alias -l couleurs.move {
  if ($window(@couleurs)) window @couleurs $calc($mouse.dx - $1) $calc($mouse.dy - $2)
  if ($mouse.key & 1) .timer $+ $ticks -m 1 0 couleurs.move $1-
}
menu @couleurs {
  mouse: {
    if $inrect($mouse.x,$mouse.y,137,20,20,20) { drawrect @couleurs 14 2 137 20 20 20 }
    else { drawrect @couleurs 2 2 137 20 20 20 }
    if $inrect($mouse.x,$mouse.y,137,20,20,20) { drawrect @couleurs 14 2 137 20 20 20 }
    else { drawrect @couleurs 2 2 137 20 20 20 }
    if $inrect($mouse.x,$mouse.y,162,20,20,20) { drawrect @couleurs 14 2 162 20 20 20 }
    else { drawrect @couleurs 2 2 162 20 20 20 }
    if $inrect($mouse.x,$mouse.y,187,20,20,20) { drawrect @couleurs 14 2 187 20 20 20 }
    else { drawrect @couleurs 2 2 187 20 20 20 }
    if $inrect($mouse.x,$mouse.y,212,20,20,20) { drawrect @couleurs 14 2 212 20 20 20 }
    else { drawrect @couleurs 2 2 212 20 20 20 }
    if $inrect($mouse.x,$mouse.y,237,20,20,20) { drawrect @couleurs 14 2 237 20 20 20 }
    else { drawrect @couleurs 2 2 237 20 20 20 }
    if $inrect($mouse.x,$mouse.y,262,20,20,20) { drawrect @couleurs 14 2 262 20 20 20 }
    else { drawrect @couleurs 2 2 262 20 20 20 }
    if $inrect($mouse.x,$mouse.y,287,20,20,20) { drawrect @couleurs 14 2 287 20 20 20 }
    else { drawrect @couleurs 2 2 287 20 20 20 }
    if $inrect($mouse.x,$mouse.y,312,20,20,20) { drawrect @couleurs 14 2 312 20 20 20 }
    else { drawrect @couleurs 2 2 312 20 20 20 }
    if $inrect($mouse.x,$mouse.y,137,43,20,20) { drawrect @couleurs 14 2 137 43 20 20 }
    else { drawrect @couleurs 2 2 137 43 20 20 }
    if $inrect($mouse.x,$mouse.y,162,43,20,20) { drawrect @couleurs 14 2 162 43 20 20 }
    else { drawrect @couleurs 2 2 162 43 20 20 }
    if $inrect($mouse.x,$mouse.y,187,43,20,20) { drawrect @couleurs 14 2 187 43 20 20 }
    else { drawrect @couleurs 2 2 187 43 20 20 }
    if $inrect($mouse.x,$mouse.y,212,43,20,20) { drawrect @couleurs 14 2 212 43 20 20 }
    else { drawrect @couleurs 2 2 212 43 20 20 }
    if $inrect($mouse.x,$mouse.y,237,43,20,20) { drawrect @couleurs 14 2 237 43 20 20 }
    else { drawrect @couleurs 2 2 237 43 20 20 }
    if $inrect($mouse.x,$mouse.y,262,43,20,20) { drawrect @couleurs 14 2 262 43 20 20 }
    else { drawrect @couleurs 2 2 262 43 20 20 }
    if $inrect($mouse.x,$mouse.y,287,43,20,20) { drawrect @couleurs 14 2 287 43 20 20 }
    else { drawrect @couleurs 2 2 287 43 20 20 }
    if $inrect($mouse.x,$mouse.y,312,43,20,20) { drawrect @couleurs 14 2 312 43 20 20 }
    else { drawrect @couleurs 2 2 312 43 20 20 }
    if $inrect($mouse.x,$mouse.y,184,125,148,15) { drawrect -f @couleurs 15 2 186 127 144 11 | drawtext -oc @couleurs 14 Tahoma 10 240 126 100 20 Valider }
    else { drawrect -f @couleurs 15 2 186 127 144 11 | drawtext -oc @couleurs 2 Tahoma 10 240 126 100 20 Valider }
    if $inrect($mouse.x,$mouse.y,323,3,11,11) { drawdot -f @couleurs 0 4 330 10 | drawrect @couleurs 0 1 323 3 11 11 }
    else { drawrect -f @couleurs 4 2 323 3 11 11  | drawrect @couleurs 0 1 323 3 11 11 }
    if $inrect($mouse.x,$mouse.y,310,3,11,11) { drawdot -f @couleurs 0 4 317 10 | drawrect @couleurs 0 1 310 3 11 11 }
    else { drawrect -f @couleurs 3 2 310 3 11 11 | drawrect @couleurs 0 1 310 3 11 11 }
  }
  sclick:{ 
    if ($inrect($mouse.x,$mouse.y,5,65,12,12)) {
      if (%cactive == $null) { drawtext -oc @couleurs 2 Tahoma 12 7 63 100 20 • | set %cactive on }
      else { drawrect -f @couleurs 15 2 7 67 8 8 | set %cactive $null }
    }
    if $inrect($mouse.x,$mouse.y,184,125,148,15) { window -c @couleurs }
    if ($inrect($mouse.x,$mouse.y,5,126,12,12)) { 
      if (%cgras == $null) { drawtext -oc @couleurs 2 Tahoma 12 7 124 100 20 • | set %cgras  }
      else { drawrect -f @couleurs 15 2 7 128 8 8 | set %cgras $null }
    }
    if ($inrect($mouse.x,$mouse.y,47,126,12,12)) { 
      if (%csouligner == $null) { drawtext -oc @couleurs 2 Tahoma 12 49 124 150 20 • | set %csouligner  }
      else { drawrect -f @couleurs 15 2 49 128 8 8 | set %csouligner $null }
    }
    if ($inrect($mouse.x,$mouse.y,113,126,12,12)) { 
      if (%cmajuscule == off) { drawtext -oc @couleurs 2 Tahoma 12 115 124 100 20 • | set %cmajuscule on }
      else { drawrect -f @couleurs 15 2 115 128 8 8 | set %cmajuscule off }
    }
    if ($mouse.y < 15) { couleurs.move $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y) }
    if ($inrect($mouse.x,$mouse.y,323,3,11,11)) { window -c @couleurs }
    if ($inrect($mouse.x,$mouse.y,310,3,11,11)) { window -n @couleurs }
    if ($inrect($mouse.x,$mouse.y,110,102,223,17)) { set %ed 1 }
    if ($inrect($mouse.x,$mouse.y,115,83,218,17)) { set %ed 2 }
    if ($inrect($mouse.x,$mouse.y,115,83,218,17)) { set %ed 2 }
    if ($inrect($mouse.x,$mouse.y,110,102,223,17)) { set %ed 1 }
    if ($inrect($mouse.x,$mouse.y,103,20,20,20)) { 
      if (%ccombo == non) { 
        set %ccombo oui | drawrect -f @couleurs 15 2 5 38 100 20 | drawrect @couleurs 2 2 5 38 100 20
        if (%ccolor == fond) { drawtext -oc @couleurs 2 Tahoma 10 10 42 100 20 Couleurs du Texte }
        else { drawtext -oc @couleurs 2 Tahoma 10 12 42 100 20 Couleurs du Fond }
      }
      else { set %ccombo non | drawrect -fr @couleurs $rgb(218,240,252) 2 5 40 100 20 }
    }
    if ($inrect($mouse.x,$mouse.y,12,42,100,20)) { set %ccombo non | drawrect -fr @couleurs $rgb(218,240,252) 2 5 40 100 20 }
    if ($inrect($mouse.x,$mouse.y,12,42,100,20)) {
      if (%ccolor == texte) { set %ccolor fond | drawrect -f @couleurs 15 2 7 22 96 16 | drawtext -oc @couleurs 2 Tahoma 10 10 23 100 20 Couleurs du Fond }
      else { set %ccolor texte | drawrect -f @couleurs 15 2 7 22 96 16 | drawtext -oc @couleurs 2 Tahoma 10 10 23 100 20 Couleurs du Texte }
    }
    if ($inrect($mouse.x,$mouse.y,137,20,20,20)) {
      if (%ccolor == texte) { set %ctexte 00 | drawrect -f @couleurs 0 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 0 | set %cfond ,00 | drawrect -f @couleurs 0 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    }  
    if ($inrect($mouse.x,$mouse.y,162,20,20,20)) {
      if (%ccolor == texte) { set %ctexte 01 | drawrect -f @couleurs 1 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 1 | set %cfond ,01 | drawrect -f @couleurs 1 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,197,20,20,20)) {
      if (%ccolor == texte) { set %ctexte 02 | drawrect -f @couleurs 2 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 2 | set %cfond ,02 | drawrect -f @couleurs 2 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,212,20,20,20)) {
      if (%ccolor == texte) { set %ctexte 03 | drawrect -f @couleurs 3 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 3 | set %cfond ,03 | drawrect -f @couleurs 3 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,237,20,20,20)) {
      if (%ccolor == texte) { set %ctexte 04 | drawrect -f @couleurs 4 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 4 | set %cfond ,04 | drawrect -f @couleurs 4 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,262,20,20,20)) {
      if (%ccolor == texte) { set %ctexte 05 | drawrect -f @couleurs 5 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 5 | set %cfond ,05 | drawrect -f @couleurs 5 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,297,20,20,20)) {
      if (%ccolor == texte) { set %ctexte 06 | drawrect -f @couleurs 6 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 6 | set %cfond ,06 | drawrect -f @couleurs 6 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,312,20,20,20)) {
      if (%ccolor == texte) { set %ctexte 07 | drawrect -f @couleurs 7 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 7 | set %cfond ,07 | drawrect -f @couleurs 7 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,137,43,20,20)) {
      if (%ccolor == texte) { set %ctexte 08 | drawrect -f @couleurs 8 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 8 | set %cfond ,08 | drawrect -f @couleurs 8 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,162,43,20,20)) {
      if (%ccolor == texte) { set %ctexte 09 | drawrect -f @couleurs 9 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 9 | set %cfond ,09 | drawrect -f @couleurs 9 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,197,43,20,20)) {
      if (%ccolor == texte) { set %ctexte 10 | drawrect -f @couleurs 10 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 10 | set %cfond ,10 | drawrect -f @couleurs 10 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,212,43,20,20)) {
      if (%ccolor == texte) { set %ctexte 11 | drawrect -f @couleurs 11 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 11 | set %cfond ,11 | drawrect -f @couleurs 11 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,237,43,20,20)) {
      if (%ccolor == texte) { set %ctexte 12 | drawrect -f @couleurs 12 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 12 | set %cfond ,12 | drawrect -f @couleurs 12 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,262,43,20,20)) {
      if (%ccolor == texte) { set %ctexte 13 | drawrect -f @couleurs 13 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 13 | set %cfond ,13 | drawrect -f @couleurs 13 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,297,43,20,20)) {
      if (%ccolor == texte) { set %ctexte 14 | drawrect -f @couleurs 14 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 14 | set %cfond ,14 | drawrect -f @couleurs 14 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,312,43,20,20)) {
      if (%ccolor == texte) { set %ctexte 15 | drawrect -f @couleurs 15 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 15 | set %cfond ,15 | drawrect -f @couleurs 15 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,281,65,12,12)) {
      if (%ccolor == texte) { set %ctexte $null | drawrect -f @couleurs 15 1 182 67 8 8 | drawtext -oc @couleurs 2 Tahoma 12 182 63 100 20 • | drawtext -oc @couleurs 2 Tahoma 12 283 63 100 20 • }
      else { set %fond 15 | set %cfond $null | drawrect -f @couleurs 15 1 139 67 8 8 | drawtext -oc @couleurs 2 Tahoma 12 139 63 100 20 • | drawtext -oc @couleurs 2 Tahoma 12 283 63 100 20 • }
    } 
  }
  Fermer la fenêtre:window -c @couleurs
  Minimiser la fenêtre:window -n @couleurs
}

On *:input:*:{
  If (%cactive == on) {
    if ($left($1,1) isin /!-+) { goto stop }
    if (c isincs $gettok($chan($active).mode,1,32)) { goto stop }
    if (%cmajuscule != on) {
      msg $active  $+ %ctexte $+ %cfond $+ %cedit $+ %csouligner $+ %cgras $+ $1- $+ %csouligner $+ %cgras $+ %ccedit $+  | halt
    }
    :fin
    if (%cmajuscule == on) {
      var %textmaj = $+($upper($left($1-,1)),$right($1-,$calc($len($1-) - 1)))
      msg $active  $+ %ctexte $+ %cfond $+ %cedit $+ %csouligner $+ %cgras $+ %textmaj $+ %csouligner $+ %cgras $+ %ccedit $+  | halt
    }
    :stop
  }
}



 Historique

17 août 2006 18:16:03 :
Modification : 1) Rajout du clique droit.
17 août 2006 19:25:21 :
Bug pour utiliser une seule couleure
26 août 2006 20:02:38 :
Conseil de wims et rétrécissement du code
29 octobre 2006 10:23:03 :
Le mode +c

 Sources du même auteur

Source avec une capture SPEED (JEU EN PICWIN)
Source avec une capture CALCULATRICE EN PICWIN
AUTO CONNEXION
Toutes les sources de atlantisfr

 Sources de la même categorie

BLACKLIST PSEUDOS/MASKS par usurpateur
Source avec une capture [XCHAT] ANTI KICK / AWAY C++ par GeroXXXX
JEU DU CODE par alanpersonproject
SERVEUR FTP par hisoka2501
BANNIR LES AGES, LES HOMMES, LES FEMMES ET PSEUDO AVEC CHIFF... par cougar_du_havre
Toutes les sources de la catégorie AddOns

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture LAZER (JEU EN PICWIN) par Zova
Source avec Zip Source avec une capture [DLL] DESSINER COMME LES PICWINS SUR UNE DIALOGBOX (BONUS: J... par uaip
PANNEAU DE CONFIGURATION POUR CHANGER D'ÉCRITURE par ScriptingBen
Source avec une capture ADD-ON COULEUR & CORRECTEUR DE TEXTE PAR DEVORZ par devorZ
Source avec Zip Source avec une capture PACMAN ONLINE - 4 JOUEURS par wims

Commentaires et avis

Commentaire de VestaX le 18/08/2006 10:40:46

J'avoue qu'il y a du boulot, ca m'as l'air pas mal. Mais quel interet de le faire en picwin ?

Commentaire de atlantisfr le 18/08/2006 11:21:52

L'intéret de le fair en picwin est de mettre les couleurs au lieu des noms de couleurs (Sa fait largement mieu je trouve), les picwin offre une interface beaucoup plus jolie.

Commentaire de lebaronrouge le 18/08/2006 19:33:10

[  L'intéret de le fair en picwin est de mettre les couleurs au lieu des noms de couleurs (Sa fait largement mieu je trouve) ]

Bin avec un dialogue tout bête tu peux tout ausi bien mettre aussi les couleurs via une palette sous forme d'icone/image qui selectionnera tout aussi bien les couleurs choisies selont celles que tu click , c'est ce que je suis en train de faire pour mon script :))
Avec la dll MDX y'a moyen de faire pratiquement aussi beau et avec un code largement moins long , parce que la pour un si petit addon ca en fait des lignes , maintenant juste pour le fun  et la performance de ce que tu as fais c'est chouette j'aime bien ;o)

Commentaire de atlantisfr le 19/08/2006 03:25:54

Je suis d'accord lebaronrouge mais une dll ne rendra jamais un dialog aussi beau qu'une fenêtre en picwin :) Puis comme je disais à un ami, une personne vois ma source en picwin et la même en dialog avec des dlls ... Il ne va pas perdre son temps à charger le dialog avec les dlls mais va plutôt load mon add-ons je pense :)

Commentaire de talking le 19/08/2006 13:15:44

Salut. En effet, il y a du boulot et je te félicite. Je trouve l'interface en PW assez agréable. Au sujet des dialogs et PW, celà peut dépendre des gouts, certains peuvent préférer de bons dialogs à des PW, c'est un choix. Il y a juste un truc que tu peux peut être optimiser :

if (%ccedit != $null) devient if (%ccedit)

et

if (%cfond == $null) devient if (!%cfond)

Tu mérites un 9. Bonne continuation

Commentaire de lebaronrouge le 20/08/2006 12:50:46

Un dialogue ne peut pas être aussi beau? ca dépend , voila un exemple de ce que je viens de faire et je ne vois pas grande différence : http://lebaronrouge1.free.fr/lol/colorbox.png
Ca me parait asser propre et net non? , apres question de gout ou choi :)
Je vais tenter à l'occasion le même mais en picwin juste pour voir.

Commentaire de atlantisfr le 20/08/2006 16:10:03

leraonrouge si tu préféres la facilitée des dlls c'est ton choix, moi j'aime pas trop utiliser de dlls. Quand je peux les évités, je les évite. Aprés c'est surtout une question de gout.

Commentaire de lebaronrouge le 23/08/2006 22:13:23

Je ne critique pas ta source loin de la , je ne sait pas encore faire de picwin , je trouve juste que le petit + esthétique est léger et que les dll c'est bien pratique et permet de belle chose avec des codes moins longs.
Je vais me mettre au picwin prochainement , peut-être serais-je un futur convaincu.
A ce propos j'aurai apprécié , en tant que novice en picwin , que ta source soit commenté.
Ca m'aurait fait une bonne base pour apprendre je pense car le code me parait déja bien propre et clair et bien que novice j'en comprend les bases , ca m'aurait donc largement instruit avec les commentaires en plus.

bonne continuation ;o)

Commentaire de wims le 24/08/2006 00:45:04

Tu ne vérifie pas si le mode +c est activé sur le salon

Commentaire de lebaronrouge le 25/08/2006 10:09:30

remarque pertinente wims ;o)

Commentaire de COOLMAN002 le 31/08/2006 00:12:43

la si je metsle mode +C (qui n'a aucun rapport) ca va le prendre comme un +c.
Si je mets le mode +k coucou, ca  va le prendre comme un +c.

Pourquoi ne pas faire un $iif pour mettre/ne pas mettre la majuscule en debut de phrase ?

$+($upper($left($1-,1)),$right($1-,$calc($len($1-) - 1)))

euh.. pk pas utiliser $mid($1-,1) ?

(A quoi sert ce :fin ?)

Commentaire de AgoRa_ScripT le 06/10/2006 18:57:53

la série des drawrect peut être remplacée par une boucle a mon avis :)

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

couleurs [ par Corneliani ] Salut tlm,voila dans nicklist les op sont en rougeset les voices en bleu mais quand il ecrive sur le chan leurs nick est de couleurs de noir donc je v couleurs [ par Corneliani ] Salut tlm,voila dans nicklist les op sont en rougeset les voices en bleu mais quand il ecrive sur le chan leurs nick est de couleurs de noir donc je v couleurs [ par Corneliani ] Salut tlm,voila dans nicklist les op sont en rougeset les voices en bleu mais quand il ecrive sur le chan leurs nick est de couleurs de noir donc je v NICKLIST CLIGNOTANTE EN COULEURS [ par Nenya ] Comme on approche de noel, je me demandais comment faire pour avoir une nicklist clignotante et en couleurs pour faire comme une guirlande, je l'avais Nicklist en couleurs et clignotante [ par Nenya ] Comme on approche de noel, je me demandais comment faire pour avoir une nicklist clignotante et en couleurs pour faire comme une guirlande, je l'avais Dégradé de couleurs [ par Force ] bonjour, j' ai récemment téléchargé un script sur www.paradisiaque.fr.fm, le script, c' est Paradize Script, et j' aurai voulu prendre seulement le dé Addons Couleurs [ par Nazario ] Je voudrait savoir si qq1 qui lira cette questions connait un bon addons couleurs à me passer car mon ScripT est mort et j'aimerais bien le réveiller saleté de couleurs ... [ par Arnaout ] Salut tout le monde ! En fait je bosse sur un ptit script pour IRC mais chui tombé sur un probs de couleurs assez chiant ..Vous savez la barre ou est pb de couleur [ par djblackhead ] je suis en pleine creation de script et je suis arreté par un pb assez chiant : je souhaiterai ( avec une remote ) modifier les paramettre d'affichage degradé de couleurs [ par Snoopynette ] Bah j'aimerai savoir cmt on fai pour pouvoir ecrire avec 4 couleurs. Parce que ba je pige po :xMici de me repondre


Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,466 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)