Ajout de couleurs ou smileys dans l'édit-box par simple click

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 953 fois - Téléchargée 25 fois

Contenu du snippet

Bonjour à tous, vous avez une femme? Elle ont cet avantage de vous posez de drôles de questions: -"Pourquoi ne pas avoir la possibilité, sur le script, de faire comme sur un java, cad de clicker et ça ajoute ce que l'on désire. (smiley, couleur..).
Alors donc vous vous y mettez, il n'y a pas le choix...
pour les graphismes, vous pouvez les charger sur http://alerion.nerim.net/addon/petiteaidecouleurs.htm
Modifié le 12/09... pour assuré une compatibilité avec mIRC vers<6.03
:o)
Et Quidni

Source / Exemple :


;***************************** Table
alias gesttexte { dialog -mdo gesttexte gesttexte }

dialog gesttexte {
  size 83 585 630 25
  title "Pour"
  icon v_schtroumph.ico
  button "t" 1,1 1 1 1,ok
  icon 30 , 0 1 18 18 , images\blanc0.bmp
  icon 45, 20 1 18 18 , images\gris15.bmp 
  icon 44, 40 1 18 18 , images\grisfonce14.bmp 
  icon 31 , 60 1 18 18 , images\noir1.bmp
  icon 38 , 80 1 18 18 , images\jaune8.bmp 
  icon 39 , 100 1 18 18 , images\vertclair9.bmp 
  icon 33,  120 1 18 18 , images\vertfonce3.bmp 
  icon 40, 140 1 18 18 , images\cyanfonce10.bmp 
  icon 32 , 160 1 18 18 , images\bleufonce2.bmp 
  icon 42, 180 1 18 18 , images\bleu12.bmp 
  icon 41, 200 1 18 18 , images\cyan11.bmp 
  icon 43, 220 1 18 18 , images\violet13.bmp 
  icon 36, 240 1 18 18 , images\violetfonce6.bmp 
  icon 35, 260 1 18 18 , images\marron5.bmp 
  icon 34, 280 1 18 18 , images\rouge4.bmp 
  icon 37, 300 1 18 18 , images\orange7.bmp 

  icon 70, 325 1 18 18 , images\gras.bmp 
  icon 71, 345 1 18 18 , images\soul.bmp 

  icon 72, 370 1 18 18 , images\01.bmp 
  icon 73, 390 1 18 18 , images\02.bmp 
  icon 74, 410 1 18 18 , images\04.bmp 
  icon 75, 430 1 18 18 , images\03.bmp 
  icon 76, 450 1 18 18 , images\05.bmp 
  icon 77, 470 1 18 18 , images\07.bmp 
  icon 78, 500 1 18 18 , images\06.bmp 
  icon 79, 520 1 18 18 , images\09.bmp 
  icon 80, 540 1 18 18 , images\08.bmp 
  icon 81, 560 1 18 18 , images\10.bmp 

  icon 82,585 1 18 18, images\monter.bmp
  icon 83,605 1 18 18, images\descendre.bmp
}

;***************************** Init
on 1:dialog:gesttexte:init:*: {
  set -u6 %xmain $window(-2).x + 100
  set -u6 %ymain $window(-2).y + 42
  dialog -s gesttexte %xmain %ymain 630 25
  /did -bv gesttexte 1
}

;***************************** Click

on 1:dialog:gesttexte:sclick:*: {
  if ($did == 10) {
    set %quiaction $replace($snick($active),$chr(44),$chr(32))
    set %nbv 1
    set %voicer +
    while (%nbv <= $snick($active,0)) {
      set %voicer %voicer $+ v
      inc %nbv
    }
    /mode $active %voicer %quiaction
  }

  if ($did == 11) {
    set %quiaction $replace($snick($active),$chr(44),$chr(32))
    set %nbv 1
    set %voicer +
    while (%nbv <= $snick($active,0)) {
      set %voicer %voicer $+ o
      inc %nbv
    }

    /mode $active %voicer %quiaction
  }
  if ($did == 12) {
    set %quiaction $replace($snick($active),$chr(44),$chr(32))
    set %nbv 1
    set %voicer -
    while (%nbv <= $snick($active,0)) {
      set %voicer %voicer $+ v
      inc %nbv
    }
    /mode $active %voicer %quiaction
  }

  if ($did == 13) {
    set %quiaction $replace($snick($active),$chr(44),$chr(32))
    set %nbv 1
    set %voicer -
    while (%nbv <= $snick($active,0)) {
      set %voicer %voicer $+ o
      inc %nbv
    }

    /mode $active %voicer %quiaction
  }

  if ($did == 14) {  /kick $active $snick($active,1) %kickdef }
  if ($did == 15) { 
    /kick $active $snick($active,1) faut bien...
    /ban $active $snick($active,1) 2
    /kick $active $snick($active,1) sisi il le faut
    /ban $active $snick($active,1) 3
    /ban $active $snick($active,1) 5
  }
  if ($did == 16) {   /msg chanserv op $active $me   }

  if (($did > 29) && ($did < 46)) {
    set -u5 %colorline $did - 30
    /editbox -a $editbox($active) $+  $+ %colorline

  }

  if (($did > 49) && ($did < 66)) {
    set -u6 %couleursel $did + 1
    if (%couleursel > 65) /set  -u6 %couleursel 50
    did -h gesttexte $did
    did -v gesttexte %couleursel
    set %couleurtexte %couleursel - 50
  }

  if ($did == 70) {
    /editbox -a $editbox($active) $+ 
  }
  if ($did == 71) {
    /editbox -a $editbox($active) $+ 
  }
  if ($did == 72) {
    /editbox -a $editbox($active)  :)

  }
  if ($did == 73) {
    /editbox -a $editbox($active)  :(
  }
  if ($did == 74) {
    /editbox -a $editbox($active) :o)
  }
  if ($did == 75) {
    /editbox -a $editbox($active)  :o(
  }
  if ($did == 76) {
    /editbox -a $editbox($active)  ;-) 

  }
  if ($did == 77) {
    /editbox -a $editbox($active) :-\?

  }
  if ($did == 78) {
    /editbox -a $editbox($active) :-))

  }
  if ($did == 79) {
    /editbox -a $editbox($active) :-((

  }
  if ($did == 80) {
    /editbox -a $editbox($active) :-o

  }
  if ($did == 81) {
    /editbox -a $editbox($active) :oÞ
  }
  if ($did == 82) {
    set -u6 %xmain $window(-2).x + 100
    set -u6 %ymain $window(-2).y + 42
    dialog -s gesttexte %xmain %ymain 630 25
  }

  if ($did == 83) {
    set -u6 %xmain $window(-2).x + $window(-2).w
    set -u6 %ymain $window(-2).y + $window(-2).h
    dec %xmain 635
    dialog -s gesttexte %xmain %ymain 630 25
  }

}
;***************************** Evénements
on 1:active:#: {
  dialog -t gesttexte sur le chan $active %topicof [ $+ [ $active ] ]
  ;  /did -ra gesttexte 20 $snick($active)
}
on 1:active:?: {
  dialog -t gesttexte En PV avec $active
}
on 1:start:  { .gesttexte }
on 1:topic:*:{ 
  set %topicof $+ $chan $1-
  if $chan == $active /dialog -t gesttexte sur le chan $chan %topicof [ $+ [ $active ] ]
}
raw 332:*: {   
  set %topicof $+ $2 $3-
  if $2 == $active /dialog -t gesttexte sur le chan $2 %topicof [ $+ [ $active ] ]
}

;***************************** Menus
menu menubar {
  -
  Smileys:/gesttexte
}

Conclusion :


C'est un petit dialogue, avec des icons qui inserre là où nous écrivons les choses, ce qui a été "clické"
et si.... quelqu'un sait comment remettre le focus dans edit-box après le click dans le dialog, cela m'aiderait bien, merci :o)

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
samedi 27 août 2005
Statut
Membre
Dernière intervention
30 août 2005

je sais pas de quoi tu veut parlé pour le focus de l'editbox mais je pense que tu voulé savoir comment vidé l'éditbox, : "/editbox -c" tout simplement
Messages postés
33
Date d'inscription
mardi 23 décembre 2003
Statut
Membre
Dernière intervention
25 septembre 2004

Re ...
Excuse .. trompé de fenetre pour la question ! dsl !
Messages postés
33
Date d'inscription
mardi 23 décembre 2003
Statut
Membre
Dernière intervention
25 septembre 2004

Bonjour,
Je viens de découvrir ce script, mais je n'arriva pas à l'installer : J'ai fais un copier/coller dans les allias, mais quand je lance mirc, il me dir erreur ligne 501 ... et comme suis un super scripteur ... Help !
(Je n'ais pas trouvé ce script sur les liens indiqués)

Merci d'avance

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.