mirc Renk dialogu kodu
mirc hazır kodlar Renk dialogu kodu indir.
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

}

}