VALEUR RGB

/*
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 
}