| toolbar sorunu
on *:connect: {
update.tb
set %olay bagli
}
on *:disconnect: {
update.tb
set %olay nabagli
}
on *:exit:set %olay nabagli
on *:close:*: {
update.tb
}
on *:appactive: {
;._dotray
if $appactive {
update.tb
}
}
alias update.tb {
if (!$dialog(tb)) { halt }
else {
scid $activecid
if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) {
did -o tb 1 2 +a 2 Kopart
}
else {
did -o tb 1 2 +a 1 Bağlan
}
}
}
dialog tb {
title "x"
size 0 0 1500 8
option dbu
list 1, 2 2 2978 25, size
}
on *:dialog:tb:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetBorderStyle $dname 2 staticedge
rebar HideToolbar .
rebar Dock $dialog(tb).hwnd > top
mdx SetControlMDX $dname 1,3,6 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1 ToolBar list flat wrap arrows nodivider > $bars
mdx SetBorderStyle 1
kalin 1 13
did -i $dname 1 1 semadheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 1 1 bmpsize 32 32
did -i $dname 1 1 setimage icon large system\baglan.ico
did -i $dname 1 1 setimage icon large system\kopar.ico
did -i $dname 1 1 setimage icon large system\radyo.ico
did -i $dname 1 1 setimage icon large system\kanals.ico
did -i $dname 1 1 setimage icon large system\oyun.ico
did -i $dname 1 1 setimage icon large system\forum.ico
did -i $dname 1 1 setimage icon large system\yardim.ico
did -i $dname 1 1 setimage icon large system\key.ico
did -a $dname 1 +a 1 Bağlantıyı Kes
did -a $dname 1 +a 3 Radyo Dinle
did -a $dname 1 +a 4 Diğer Kanallar
did -a $dname 1 +a 5 Soru Cevap Yarışma
did -a $dname 1 +a 6 Sevgiden Web
did -a $dname 1 +a 7 Help - Yardım
did -a $dname 1 +a 8 Sakla/Gizle
update.tb
}
on *:dialog:tb:*:*: {
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.tb
did -f $dname 1
scid $activecid window -a "status window"
}
if ($did($dname,1).sel = 3) {
.Radio
.join #Radyo
}
if ($did($dname,1).sel = 4) {
madkanalmd
}
if ($did($dname,1).sel = 5) {
.join #Oyun
}
if ($did($dname,1).sel = 6) {
Web
}
if ($did($dname,1).sel = 7) {
.join #Help
}
if ($did($dname,1).sel = 8) {
.showmirc -t
}
}
}
}
Selamlar Elimde Şöyle bir kod var yukarıdakı toolbar'ları icon haline getiriyor sorunsuzda çalışıyor fakat ben o icon'ların arkadasına birde resim eklemek istiyorum. Ama olmuyor icon'suz basit icon'lu eklemek için ne yapmalıyım ?
|