Çevrimdışı

Scriptim için Toolbar hazırlamıstım; gayet de güzel işliyordu ama diyalogu tekrar boyutlandırırken bir yerde hata yaptım yanlıs kaydettim sanırım , ikonların bulundugu list kısmında ikonlar görünmüyor ..

kodlar :

Alıntı:

alias tool { dialog -m toolbar toolbar | echo -a $name 1[ 2Toolbar aktif.1 ] } alias toolkapa { dialog -x toolbar toolbar | echo -a $name [ 2Toolbar pasif.1 ] } alias mdx { dll dll\mdx.dll $1,$2- } alias rebar { dll dll\rebar.dll $$1- } alias sendkey { dll dll\Sendkey.dll $1 $$2- } alias name { return 1[ X 1™ ] } alias timedate { did -ra toolbar 2 $time $date miSs`Ra` } dialog toolbar { title "My Tool" size -1 -1 1020 42 option pixels list 1, 8 4 293 71 list 3, 490 4 286 71 text "• aShk • ® ™", 2, 302 11 186 35, center icon 4, 775 -1 244 42, images\aShk2.png, 0 noborder } 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 $chr(32) $chr(9) $+ IRC Serverle Bağlantınızı Koparır. } else { did -o toolbar 1 2 +a 1 $chr(32) $chr(9) $+ IRC Servere Bağlantı Kurar. } } } on *:dialog:toolbar:*:*:{ if ($devent == init) { .timer 0 1 .timedate rebar HideToolbar . rebar Dock $dialog(toolbar).hwnd > Top ; mdx MarkDialog $dname mdx SetDialog $dname Tahoma mdx SetFont $dname 1,3 +a 12 900 Tahoma mdx SetFont $dname 2 +a 18 900 Tahoma mdx SetDialog $dname bgcolor $rgb(239,7,115) mdx SetColor $dname 2 text $rgb(75,66,144) mdx SetColor $dname 2 textbg $rgb(239,7,115) mdx SetColor $dname 1,2,3 background $rgb(239,7,115) mdx SetControlMDX SetControlMDX $dname 1,3 ToolBar wrap flat arrows nodivider > $bars mdx SetBorderStyle 1,3 ; did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163) did -i $dname 1 1 bmpsize 27 27 did -i $dname 1 1 setimage icon large icons\bağlan.ico did -i $dname 1 1 setimage icon large icons\kop.ico did -i $dname 1 1 setimage icon large icons\ayar.ico did -i $dname 1 1 setimage icon large icons\korumalar.ico did -i $dname 1 1 setimage icon large icons\kanal.ico did -i $dname 1 1 setimage icon large icons\remote.ico did -i $dname 1 1 setimage icon large icons\renkler.ico did -i $dname 1 1 setimage icon large icons\abook.ico ; did -a $dname 1 +a 1 $chr(32) $chr(9) $+ IRC Servere Bağlantı Kurar. did -a $dname 1 +a - did -a $dname 1 +a 3 $chr(32) $chr(9) $+ mIRC ayarları did -a $dname 1 +a - did -a $dname 1 +a 4 $chr(32) $chr(9) $+ Korumaları açar did -a $dname 1 +a - did -a $dname 1 +a 5 $chr(32) $chr(9) $+ Kanalları Düzenle did -a $dname 1 +a - did -a $dname 1 +a 6 $chr(32) $chr(9) $+ Notify Listesi did -a $dname 1 +a - did -a $dname 1 +a 7 $chr(32) $chr(9) $+ mIRC Renkleri did -a $dname 1 +a - did -a $dname 1 +a 8 $chr(32) $chr(9) $+ Adres Defteri ; did -i $dname 3 1 bmpsize 27 27 did -i $dname 3 1 setimage icon large icons\koruma.ico did -i $dname 3 1 setimage icon large icons\ame-amsg.ico did -i $dname 3 1 setimage icon large icons\away.ico did -i $dname 3 1 setimage icon large icons\yazılar.ico did -i $dname 3 1 setimage icon large icons\özel.ico did -i $dname 3 1 setimage icon large icons\winampkontrol.ico did -i $dname 3 1 setimage icon large icons\webkontrol.ico ; did -a $dname 3 +a 1 $chr(32) $chr(9) $+ Korumalar did -a $dname 3 +a - did -a $dname 3 +a 2 $chr(32) $chr(9) $+ Ame/Amsg Kontrol Paneli did -a $dname 3 +a - did -a $dname 3 +a 3 $chr(32) $chr(9) $+ Away Paneli did -a $dname 3 +a - did -a $dname 3 +a 4 $chr(32) $chr(9) $+ Yazı Tipi did -a $dname 3 +a - did -a $dname 3 +a 5 $chr(32) $chr(9) $+ Özel(query) Modları did -a $dname 3 +a - did -a $dname 3 +a 6 $chr(32) $chr(9) $+ Winamp Kontrol Paneli did -a $dname 3 +a - did -a $dname 3 +a 7 $chr(32) $chr(9) $+ Web Kontrol Paneli ; } 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 == 4 { sendkey ALT O } if $did($dname,1).sel == 6 { echo -a Korumalar } if $did($dname,1).sel == 8 { sendkey ALT J } if $did($dname,1).sel == 10 { sendkey ALT N } if $did($dname,1).sel == 12 { sendkey ALT K } if $did($dname,1).sel == 14 { Abook } } } if $did == 3 { if $did($dname,3).sel = 2 { .korumapnl } if $did($dname,3).sel = 4 { .message } if $did($dname,3).sel =6 { .awaypnl } if $did($dname,3).sel =8 { .yazıtip } if $did($dname,3).sel = 10 { .querymode } if $did($dname,3).sel = 12 { .winamppnl } if $did($dname,3).sel = 14 { .netpnl } }

yardım edebilirseniz sevinirim..

Not: Cözünürlük Sorunu yaratabilir, ekran ayarlarım yüksekti 1024x768'e ayarlamıstım ama yine de sorun cıkabilir.

 

Çevrimdışı

mdx SetColor $dname 1,2,3 background $rgb(239,7,115)
mdx SetControlMDX SetControlMDX $dname 1,3 ToolBar wrap flat arrows nodivider > $bars
mdx SetBorderStyle 1,3


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

Çok Teşekkür ederim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.