toolbar a Saat Öncelikle selam Toolbar ın sağ üst köşesine devamlı digital saat 19:06:21 22 23 vs diye sayaç saat koymak istiyorum bi toolbar tasarımı mckruger vermiş kodları alıp yapmaya çalıştım ama olmadı bunu nasıl yaparım bi anlatırsanız vallaha minnettar kalırım saygılar kolay gelsin.. Sonrada aklıma geldi mckruger ın vermiş kodları alıp yapamaya çalıştım dedim ama yanlış anlaşılabilir diye düşündüm toolbar ı komple deil sadece saat ile ilgili olan kodları almaya çalıştım yani sadece bana saat i lazım toolbar var inş anlatabilmişimdir şimdiden tşkler iyi paylaşımlar.. |
Cevap: toolbar a Saat Toolbarda kullandığım saat kodları kırmızı kalın yaptım.. 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 saat { if ($dialog(toolbar)) { did -a toolbar $1 $time } } 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 text "", 2, 464 6 45 16, center text "", 3, 467 10 39 11, center } on *:dialog:toolbar:init:0: { mdx MarkDialog $dname mdx SetDialog $dname style mdx SetFont $dname 1 Turkish 14 800 Cyrillic mdx SetColor $dname 1,2,3,4 background $rgb(113,188,255) mdx SetColor $dname 3 text $rgb(0,0,0) mdx SetFont $dname 3 +a 20 600 arial mdx SetColor $dname 2,3 textbg $rgb(113,188,255) .timersaat 0 1 saat 3 rebar HideToolbar . rebar Dock $dialog(toolbar).hwnd > top 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 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 } } } } |
Yanıt: toolbar a Saat ;oki saoolsın McKruGer oldu tşk.konuyu derslere açmışım yanlışlıkla onun içinde kusura bakmayın dalgındım |
Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 14:09. |
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net