renk dialogu Bu dialog ile mIRC klasorunuzde mdx.dll varsa dialoglara renk verirlen renk i ayarlayip rgb degerlerini alabilirsiniz.
\\alias cstudio { $iif(!$dialog(cstudio),dialog -m cstudio cstudio,dialog -v cstudio) } dialog cstudio { title "Color Studio | www.mirc25.net | by AtABeY" 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 "?fo", 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" AtABeY Tarafindan Yazilmis Bir Dialogdur %a *** Bu Dialog Sayesinde Renklerin RGB Kodunu Alabilirsiniz %a *** Hayirli calismalar Dileriz %a *** www.mirc25.net
}if $did == 16 { run www.mirc25.net } } } 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)) }
