Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:start: { dialog -m toolbar toolbar }
on *:connect: {
update.toolbar
}
on *:disconnect: {
update.toolbar
}
on *:close:*: {
update.toolbar
}
alias update.toolbar {
if (!$dialog(toolbar)) { halt }
else {
scid $activecid
if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) {
did -o toolbar 1 2 +a 2 Bağlantıyı Kes
}
else {
did -o toolbar 1 2 +a 1 Bağlan
}
}
}
dialog toolbar {
title ""
size 0 0 0 18
option dbu
list 1, 0 0 364 17, size
list 10, 370 8 270 12, size
box "TutkuyuzFM", 14, 365 -1 80 33,default
text "", 2, 594 6 45 16, center
text "", 3, 597 10 39 11, center
}
on *:dialog:toolbar:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetFont $dname 1,10 1400 Verdana
rebar HideToolbar .
rebar Dock $dialog(toolbar).hwnd > top
mdx SetControlMDX $dname 1,3 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1,10 ToolBar flat wrap arrows nodivider > $bars
mdx SetBorderStyle 1,10
did -i $dname 1 1 bmpsize 32 32
did -i $dname 1 1 setimage icon large icon\baglan.ico
did -i $dname 1 1 setimage icon large icon\kes.ico
did -i $dname 1 1 setimage icon large icon\bgmenu.ico
did -i $dname 1 1 setimage icon large icon\avay.ico
did -i $dname 1 1 setimage icon large icon\ozkb.ico
did -i $dname 1 1 setimage icon large icon\ktpnl.ico
did -i $dname 1 1 setimage icon large icon\nik.ico
did -i $dname 1 1 setimage icon large icon\op.ico
did -i $dname 1 1 setimage icon large icon\deop.ico
did -a $dname 1 1 $chr(32) Bağlan $chr(9) $+ servere bağlanır
did -a $dname 1 3 $chr(32) Bağlantı Menüsü
did -a $dname 1 4 $chr(32) Away Menüsü
did -a $dname 1 5 $chr(32) Özel Kabul
did -a $dname 1 6 $chr(32) Ayarlar
did -a $dname 1 7 $chr(32) Nick Değiş
did -a $dname 1 8 $chr(32) Op OL
did -a $dname 1 9 $chr(32) Deop OL
did -i $dname 10 1 bmpsize 27 27
did -i $dname 10 1 setimage icon large icon\cal.ico
did -i $dname 10 1 setimage icon large icon\dur.ico
did -i $dname 10 1 setimage icon large icon\art.ico
did -i $dname 10 1 setimage icon large icon\eksi.ico
did -a $dname 10 1 Çal
did -a $dname 10 2 Dur
did -a $dname 10 3 Arttır
did -a $dname 10 4 Azalt
}
on *:dialog:toolbar:*:*: {
if $devent == sclick {
if $did == 1 {
if ($did($dname,1).sel = 2) {
if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect }
else {
scid $activecid server
}
update.toolbar
did -f $dname 1
scid $activecid window -a "status window"
}
}
if ($did($dname,1).sel = 3) {
baglantıayarları
}
if ($did($dname,1).sel = 4) {
qblock
}
if ($did($dname,1).sel = 5) {
degis
}
}
}
alias mdx { return $dll(icon\DLL\mdx.dll,$1,$2-) }
alias mdxdll { return $dll(icon\DLL\mdx.dll,$1,$2-) }
alias rebar { dll icon\DLL\rebar.dll $$1- }
alias bars { return icon\DLL\bars.mdx }