on *:load: window -ph +l @rgbk 0 0 100 107 | drawrect -rf @rgbk $rgb(0,0,0) 1 0 0 100 100 | drawsave @rgbk rgbk-temp.bmp | dialog -m rgbk rgbk

dialog rgbk {
title "RGB Kontroll"
size -1 -1 107 53
option dbu
scroll "", 4, 3 4 63 8, range 0 255 horizontal bottom
scroll "", 5, 3 16 63 8, range 0 255 horizontal bottom
scroll "", 6, 3 28 63 8, range 0 255 horizontal bottom
text "RGB:", 7, 3 42 15 10
edit "0,0,0", 8, 16 40 40 10, center
button "Kopiera", 9, 60 41 21 8
icon 11, 70 4 33 32, rgbk-temp.bmp, noborder
button "", 10, 0 0 0 0, ok hide cancel
}

menu menubar,channel {
RGB Kontroll:dialog -m rgbk rgbk
}
on *:dialog:rgbk:*:*:{
if ($devent == init) {
$iif($window(@rgbk,0) == 1,clear @rgbk,window -ph +l @rgbk 0 0 100 107)
drawrect -rf @rgbk $rgb(0,0,0) 1 0 0 100 100
drawrect -r @rgbk $rgb(255,255,255) 2 0 0 90 81
var %f3 = 1 | while (%f3 <= 10) {
drawtext -r @rgbk $rgb($calc(%f3 - 20),$calc(%f3 * 20),$calc(%f3 * 20)) tahoma 20 $calc(%f3 * 7) $calc(%f3 - 1) •
drawtext -r @rgbk $rgb($calc(%f3 * 20),$calc(%f3 - 20),$calc(%f3 * 20)) tahoma 20 $calc(%f3 * 7) $calc(%f3 + 20) •
drawtext -r @rgbk $rgb($calc(%f3 * 20),$calc(%f3 * 20),$calc(%f3 - 20)) tahoma 20 $calc(%f3 * 7) $calc(%f3 + 40) •
inc %f3
}
drawsave @rgbk rgbk-temp.bmp
did -g $dname 11 rgbk-temp.bmp
}
if ($devent == sclick) && ($did == 9) { clipboard $did(8) }
if ($devent == scroll) {
drawrect -rf @rgbk $rgb($did(4).sel,$did(5).sel,$did(6).sel) 1 0 0 100 100
drawrect -r @rgbk $rgb(0,0,0) 1 0 0 90 81
drawrect -fr @rgbk $rgb($did(4).sel,0,0) 1 0 0 27 27
drawrect -fr @rgbk $rgb(0,$did(5).sel,0) 1 0 27 27 27
drawrect -fr @rgbk $rgb(0,0,$did(6).sel) 1 0 53 27 27
var %f5 = 0 | while (%f5 <= 3) { drawrect -r @rgbk $rgb(0,0,0) 1 0 $calc(27 * %f5) 27 27 | inc %f5 }
drawsave @rgbk rgbk-temp.bmp
did -g $dname 11 rgbk-temp.bmp
did -ra $dname 8 $+($did(4).sel,$chr(44),$did(5).sel,$chr(44),$did(6).sel)
}
if ($devent == close) { window -c @rgbk }
}