Valeur rgb

Commenter

Contenu du snippet

Tout, ou presque, est dans le titre; ce code vous permet d'obtenir rapidement les valeurs RGB.
L'utilité de cette source est assez réduite mais elle peut quand même se révéler intéressante si vous utilisez souvent les PicWins (et que vous cherchez un peu à varier des couleurs basiques de mIRC).

Tapez /rgb pour ouvrir le dialogue.

Note : une valeur RGB est sous la forme $rgb(XXX,XXX,XXX)

Source / Exemple : 


/*
Obtenir les valeurs RGB
ZeroOo - 2006


  • /


alias -l rgb.refresh {
  drawrect -fr @rgb $rgb($did(2),$did(4),$did(6)) 1 0 0 80 30
  drawsave @rgb rgb.bmp
  did -g $dname 7 rgb.bmp
}

alias rgb dialog $iif($dialog(rgb),-v,-m) rgb rgb

dialog rgb {
  title "Valeur RGB "
  size -1 -1 62 142
  option dbu
  scroll "" 1, 1 2 14 100, range 255 vertical bottom
  edit "", 2, 2 104 18 10, limit 3 center
  scroll "" 3, 1 2 34 100, range 255 vertical bottom
  edit "", 4, 22 104 18 10, limit 3 center
  scroll "" 5, 1 2 54 100, range 255 vertical bottom
  edit "", 6, 42 104 18 10, limit 3 center
  icon 7, 3 103 40 40
  edit "", 8, 2 132 59 10, center
  button "Ok", 9, 48 115 12 17,ok
}

on *:DIALOG:rgb:*:*:{
  if ($devent == init) {
    did -a $dname 2,4,6 000
    window -hBpf +d @rgb -1 -1 80 30
    drawrect -fr @rgb $rgb(0,0,0) 1 0 0 80 30
    drawsave @rgb rgb.bmp
    did -g $dname 7 rgb.bmp
  }
  if ($devent == scroll) {
    if ($did == 1) { did -o $dname 2 1 $did(1).sel | did -o $dname 8 1 $rgb($did(2),$did(4),$did(6)) }
    if ($did == 3) { did -o $dname 4 1 $did(3).sel | did -o $dname 8 1 $rgb($did(2),$did(4),$did(6)) }
    if ($did == 5) { did -o $dname 6 1 $did(5).sel | did -o $dname 8 1 $rgb($did(2),$did(4),$did(6)) }
    if ($istok(1:3:5,$did,58)) rgb.refresh
  }
  if ($devent == edit) {
    if ($did == 2) { if (!$len($did(2))) || ($did(2) !isnum) did -o $dname 2 1 0 | did -c $dname 1 $did(2) }
    if ($did == 4) { if (!$len($did(4))) || ($did(4) !isnum) did -o $dname 4 1 0 | did -c $dname 3 $did(4) }
    if ($did == 6) { if (!$len($did(6))) || ($did(6) !isnum) did -o $dname 6 1 0 | did -c $dname 5 $did(6) }
    if ($istok(2:4:6,$did,58)) rgb.refresh
  }
  if ($devent == close) window -c @rgb 
}

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.