Çevrimdışı

İconları senin toolbarda yerleştirmek istediğin ayarların ismini yazarak belirledim.

on *:connect: {
update.toolbar
}

on *:disconnect: {
update.toolbar
}

on *:close:*: {
update.toolbar
}

on *:start: { dialog -m toolbar toolbar }


alias update.toolbar {
if (!$dialog(toolbar)) { halt }
else {
scid $activecid
if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) {
did -o toolbar 1 3 +a 2 $chr(32) Sunucudan Ayrıl $chr(9) $+ Sunucudan Ayrıl
}
else {
did -o toolbar 1 3 +a 1 $chr(32) Sunucuya Gir $chr(9) $+ Sunucuya Gir
}
}
}


dialog toolbar {
title "x"
size 0 0 1500 13
option dbu
list 1, 2 2 2978 25, size
}

on *:dialog:toolbar:init:0: {
set %seps 0
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetBorderStyle $dname 2 staticedge
mdx SetFont $dname 1 Turkish 14 800 Cyrillic
mdx SetColor $dname 1 background $rgb(113,188,255)

rebar HideToolbar .
rebar Dock $dialog(toolbar).hwnd > top

mdx SetControlMDX $dname 1,3,6 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1 ToolBar flat wrap arrows nodivider > $bars
; mdx SetControlMDX $dname 1 ToolBar flat arrows nodivider wrap > $aux.mdx(bars)

mdx SetBorderStyle 1

did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 1 1 bmpsize 26 26
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\kanaliste.ico
did -i $dname 1 1 setimage icon large icon\kanalkorumalar.ico
did -i $dname 1 1 setimage icon large icon\kisiselkorumalar.ico
did -i $dname 1 1 setimage icon large icon\away.ico
did -i $dname 1 1 setimage icon large icon\autojoin.ico
did -i $dname 1 1 setimage icon large icon\autoidentify.ico
did -i $dname 1 1 setimage icon large icon\log.ico
did -i $dname 1 1 setimage icon large icon\hakkinda.ico
did -a $dname 1 +a -
did -a $dname 1 +a 1 $chr(32) Sunucuya Gir $chr(9) $+ Sunucuya Gir
did -a $dname 1 +a -
did -a $dname 1 +a 3 $chr(32) Kanal Listesi $chr(9) $+ Kanal Listesi
did -a $dname 1 +a -
did -a $dname 1 +a 4 $chr(32) Kanal Korumaları $chr(9) $+ Kanal Korumaları
did -a $dname 1 +a -
did -a $dname 1 +a 5 $chr(32) Kişisel Korumalar $chr(9) $+ Kişisel Korumalar
did -a $dname 1 +a -
did -a $dname 1 +a 6 $chr(32) Away Ayarları $chr(9) $+ Away Ayarları
did -a $dname 1 +a -
did -a $dname 1 +a 7 $chr(32) Otomatik Giriş $chr(9) $+ Otomatik Giriş
did -a $dname 1 +a -
did -a $dname 1 +a 8 $chr(32) Otomatik İdentify $chr(9) $+ Otomatik İdentify
did -a $dname 1 +a -
did -a $dname 1 +a 9 $chr(32) Loglar $chr(9) $+ Loglar
did -a $dname 1 +a -
did -a $dname 1 +a 10 $chr(32) Hakkında $chr(9) $+ Hakkında
did -a $dname 1 +a -
rebar Dock $dialog(toolbar).hwnd > top
}

on *:dialog:toolbar:*:*: {
if $devent == sclick {
if $did == 1 {
if ($did($dname,1).sel = 3) {
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 = 5) {
tchatdll sendkey alt j
}
if ($did($dname,1).sel = 7) {
f3
}
if ($did($dname,1).sel = 9) {
f3
}
if ($did($dname,1).sel = 11) {
f10
}
if ($did($dname,1).sel = 13) {
f9
}
if ($did($dname,1).sel = 15) {
f7
}
if ($did($dname,1).sel = 17) {
f6
}
if ($did($dname,1).sel = 19) {
dialog -m babout babout

}
}
}
}