Tekil Mesaj gösterimi
Alt 02 Şubat 2009, 01:24   #98
Çevrimdışı
McKruGer
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Toolbar Tasarımı [Güncellendi]




Radio'lu toolbar'ın benzeri Mp3 playerli toolbar hazırlamıştım. linki: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bakarak biraz anlarsın nasıl yapıldığını. ctlamp.dll linki orada kırık. Yeni download adresi: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

görüntü resimi: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]



saat kodları olmadan oluşan toolbar şöyle;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:start: { .dialog -m toolbar toolbar } alias Temadene { echo -a Temam: $iif($temabul,XP Teması,Klasik Windows Teması) } alias Temabul { .comreg dll/Tema.dll | .comopen toolbar Tema.buL | var %komut = $com(toolbar,TemaBul,1) | var %komut = $com(toolbar).result | .comclose toolbar | .comreg -u dll/Tema.dll | return %komut } alias mdx { return $dll(DLL\mdx.dll,$1,$2-) } alias rebar { dll DLL\rebar.dll $$1- } alias bars { return DLL\bars.mdx } 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 3 +a 2 $chr(32) Bağlantıyı Kes $chr(9) $+ IRC Serverle Bağlantınızı Koparır. } else { did -o toolbar 1 3 +a 1 $chr(32) Servere Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar. } } } dialog toolbar { title "x" size 0 0 550 $iif($temabul,14,17) option dbu list 4, 0 -2 550 17, size list 1, 0 4 550 17, size } on *:dialog:toolbar:init:0: { mdx MarkDialog $dname mdx SetDialog $dname style mdx SetFont $dname 1 Turkish 14 800 Cyrillic mdx SetColor $dname 1,4 background $rgb(113,188,255) rebar HideToolbar . rebar Dock $dialog(toolbar).hwnd > top mdx SetControlMDX $dname 1,4 Progressbar smooth > $ctl mdx SetControlMDX $dname 1,4 ToolBar flat wrap arrows nodivider > $bars mdx SetBorderStyle 1 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 icon\baglan.ico did -i $dname 1 1 setimage icon large icon\kes.ico did -i $dname 1 1 setimage icon large icon\Ayarlar.ico did -i $dname 1 1 setimage icon large icon\kanal.ico did -i $dname 1 1 setimage icon large icon\korumalar.ico did -i $dname 1 1 setimage icon large icon\kontrolpanel.ico did -i $dname 1 1 setimage icon large icon\gorunum.ico did -i $dname 1 1 setimage icon large icon\liste.ico did -i $dname 1 1 setimage icon large icon\oyunlar.ico did -i $dname 1 1 setimage icon large icon\internet.ico did -i $dname 1 1 setimage icon large icon\yardım.ico did -a $dname 1 +a - did -a $dname 1 +a 1 $chr(32) Server Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar. did -a $dname 1 +a - did -a $dname 1 +a 3 $chr(32) Bağlantı $chr(9) $+ Bağlantı Ayarlarını Yapar. did -a $dname 1 +a - did -a $dname 1 +a 4 $chr(32) Kanallar $chr(9) $+ Kanallara Giriş Penceresini Açar. did -a $dname 1 +a - did -a $dname 1 +a 5 $chr(32) Korumalar $chr(9) $+ Kanal ve Kişisel Korumaları Açar. did -a $dname 1 +a - did -a $dname 1 +a 6 $chr(32) Kontrol Panel $chr(9) $+ Scriptinizle İlgili Tüm Ayarları Açar. did -a $dname 1 +a - did -a $dname 1 +a 7 $chr(32) Görünümler $chr(9) $+ Scriptinizin Görünümüyle İlgili Ayarları Açar. did -a $dname 1 +a - did -a $dname 1 +a 8 $chr(32) Listeler $chr(9) $+ Scriptinizdeki Notify, Düşman Listesi Gibi Ayarları Açar. did -a $dname 1 +a - did -a $dname 1 +a 9 $chr(32) Oyunlar $chr(9) $+ Scriptinizin Oyunlarıyla İlgili Diyalogu Açar. did -a $dname 1 +a - did -a $dname 1 +a 10 $chr(32) Internet $chr(9) $+ Internet Adreslerinin Olduğu Diyalogu Açar. did -a $dname 1 +a - did -a $dname 1 +a 11 $chr(32) Yardım $chr(9) $+ Scriptinizin Yardım Dosyasını Açar. did -a $dname 1 +a - } 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) { Ayarlar } if ($did($dname,1).sel = 7) { Kanallar } if ($did($dname,1).sel = 9) { Korumalar } if ($did($dname,1).sel = 11) { kontrolpanel } if ($did($dname,1).sel = 13) { gorunumler } if ($did($dname,1).sel = 15) { listeler } if ($did($dname,1).sel = 17) { oyunlar } if ($did($dname,1).sel = 19) { internet } if ($did($dname,1).sel = 21) { yardim } } } }


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver