| Hayat | 03 Şubat 2009 00:27 |
Cevap: Toolbar Tasarımı [Güncellendi]
Hocam en baştaki Servera bağlan Bağlantıyı kes butonunda bir sorun var acaba başka birşeylemi çakışıyor anlayamadım ama. Bağlantıyı kes diyince kesiyor. Fakat bağlan diyince bağlanmıyor yardımcı olabilirmisiniz. Kod:
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 "Sesssr"
size 0 0 750 $iif($temabul,12,15)
option dbu
list 4, 0 -2 700 16, size
list 1, 0 4 700 16, size
text "", 2, 510 6 45 16, center
text "", 3, 510 10 39 11, center
}
on *:dialog:toolbar:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetFont $dname 1 Turkish 13 800 Cyrillic
mdx SetColor $dname 1,2,3,4 background $rgb(80,80,80)
mdx SetColor $dname 3 text $rgb(0,0,0)
mdx SetFont $dname 3 +a 20 600 arial
mdx SetColor $dname 2,3 textbg $rgb(80,80,80)
rebar HideToolbar .
rebar Dock $dialog(toolbar).hwnd > bottom
mdx SetControlMDX $dname 1,3,4 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1,4 ToolBar flat wrap arrows nodivider > $bars
; mdx SetControlMDX $dname 1,4 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 20 20
did -i $dname 1 1 setimage icon large Bin\icon\baglan.ico
did -i $dname 1 1 setimage icon large Bin\icon\kes.ico
did -i $dname 1 1 setimage icon large Bin\icon\Ayarlar.ico
did -i $dname 1 1 setimage icon large Bin\icon\kanal.ico
did -i $dname 1 1 setimage icon large Bin\icon\korumalar.ico
did -i $dname 1 1 setimage icon large Bin\icon\black.ico
did -i $dname 1 1 setimage icon large Bin\icon\forum.ico
did -i $dname 1 1 setimage icon large Bin\icon\liste.ico
did -i $dname 1 1 setimage icon large Bin\icon\mp3.ico
did -i $dname 1 1 setimage icon large Bin\icon\ccl.ico
did -i $dname 1 1 setimage icon large Bin\icon\yardım.ico
did -i $dname 1 1 setimage icon large Bin\icon\radyo.ico
did -i $dname 1 1 setimage icon large Bin\icon\ev.ico
did -i $dname 1 1 setimage icon large Bin\icon\theme.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) Kontrol Paneli $chr(9) $+ Kanal ve Kişisel Korumaları Nick, Away, Script Ayarlarını Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 6 $chr(32) Eğlence $chr(9) $+ Burc yorumcusu, Rüya Tabirleri, Arkadasımın Telefonu, İddia Sonuçları, Tv Rehberi vb.. Menüsünü Açar .
did -a $dname 1 +a -
did -a $dname 1 +a 7 $chr(32) Forumlar $chr(9) $+ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Forumlarına Giriş Yapabilirsiniz.
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) Mp3 Player $chr(9) $+ Scriptinizin Mp3 Çalarını Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 10 $chr(32) Plus Menü $chr(9) $+ Scriptin tüm özelliklerinin bir araya getirildiği Genel Menüyü 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 -
did -a $dname 1 +a 12 $chr(32) Sevilir FM $chr(9) $+ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Sevilir FM Radyomuzu Dinleyebilirsiniz.
did -a $dname 1 +a -
did -a $dname 1 +a 13 $chr(32) Siteler $chr(9) $+ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Sitelerine Giriş Yapabilirsiniz.
did -a $dname 1 +a -
did -a $dname 1 +a 14 $chr(32) Themes $chr(9) $+ Scriptinizi Temasını Değiştirebilirsiniz..
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) {
sendkeys $+($chr(37),o)
}
if ($did($dname,1).sel = 7) {
list
sendkeys $+($chr(37),j)
}
if ($did($dname,1).sel = 9) {
.remote on | dialog -m alperoin alperoin
}
if ($did($dname,1).sel = 11) {
eglence
}
if ($did($dname,1).sel = 13) {
run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
if ($did($dname,1).sel = 15) {
sendkeys $+($chr(37),n)
}
if ($did($dname,1).sel = 17) {
mp3player
}
if ($did($dname,1).sel = 19) {
plusmenu
}
if ($did($dname,1).sel = 21) {
helper
howcanihelpyou
}
if ($did($dname,1).sel = 23) {
radyo
}
if ($did($dname,1).sel = 25) {
denizgozlum | sevilir
}
if ($did($dname,1).sel = 27) {
.theme
}
}
}
}
|
