Renk Dialogu

// açıklama:
Bu dialog ile mIRC klasorunuzde mdx.dll varsa dialoglara renk verirlen renk i ayarlayıp rgb degerlerini alabilirsiniz.
\\


alias cstudio { $iif(!$dialog(cstudio),dialog -m cstudio cstudio,dialog -v cstudio) }

dialog cstudio {

title "Color Studio | www.mIRCdb.Com | by ReBeL"

size -1 -1 154 131

option dbu

scroll "", 1, 35 3 115 8, range 0 255 horizontal bottom

text "Red", 2, 1 3 11 8

text "Green", 3, 1 15 16 8

text "Blue", 4, 1 27 10 8

scroll "", 5, 35 15 115 8, range 0 255 horizontal bottom

scroll "", 6, 35 27 115 8, range 0 255 horizontal bottom

list 7, 5 45 139 26, size

box "Renk", 8, 1 37 149 38

box "Degerler", 9, 1 77 149 37

edit "", 10, 45 87 99 10, read

text "RGB", 11, 8 89 16 8

text "$RGB", 12, 8 100 20 8

edit "", 13, 45 99 99 10, read

button "Exit", 14, 1 115 46 12

button "İnfo", 15, 50 115 47 12

button "Visit To Web Site", 16, 99 115 51 12

}

on *:dialog:cstudio:*:*: {

if $devent == init {

if !%mdx.dll { taramdx }

var %s dll %mdx.dll

%s MarkDialog $dname

%s SetBorderStyle $dname 7

%s SetColor $dname 7 background 0

}

if $devent == scroll {

if !%mdx.dll { taramdx }

var %s dll %mdx.dll

%s SetColor $dname 7 background $rgb($did(1).sel,$did(5).sel,$did(6).sel)

did -ra $dname 10 $rgb($did(1).sel,$did(5).sel,$did(6).sel)

did -ra $dname 13 Red; $did(1).sel Green; $did(5).sel Blue; $did(6).sel

}

if $devent == sclick {

if $did == 14 { dialog -x $dname }

if $did == 15 {

var %a echo 2 -a

%a *** "Color Dialog" ReBeL Tarafından Yazılmış Bir Dialogdur

%a *** Bu Dialog Sayesinde Renklerin RGB Kodunu Alabilirsiniz

%a *** Hayırlı Çalışmalar Dileriz

%a *** www.mIRCdb.Com

}

if $did == 16 { run www.mircdb.com }

}

}

alias taramdx {

var %q 1

var %i $scriptdir

while (%q <= $findfile(%i,*.dll,0)) {

if $gettok($findfile(%i,*.dll,%q),-1,$asc()) == mdx.dll {

set %mdx.dll $shortfn($findfile(%i,*.dll,%q))

}

inc %q

}

}