Tekil Mesaj gösterimi
Alt 26 Eylül 2010, 16:53   #1
Çevrimdışı
bedqoq
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
SoLda Toolbar




Arkadaşlar Şöyle bir Cod yazdım ama ben bunu SoLda da KuLLanmak İstiyorum. bunu yaparken yani Sola uyarlarken üsttede olduğu için Şöyle bir hata veriyor 'Toolbar bu isim kullanılıyor. bunun sebebi aynı toolbarın olmasıdır sanırım.' ben bunu değiştirmek istedim soltoolbar diye o zamanda toolbar işlemedi. yardımcı olcak arkadaşlara Şimdiden TeşekürLer..


------------------------------------------------------
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 $date $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) Kes $chr(9) $+ Bağlantıyı Kes
}
else {
did -o toolbar 1 3 +a 1 $chr(32) Bağlan $chr(9) $+ Servere Bağlan
}
}
}

dialog toolbar {
title "x"
size 0 2 396 $iif($temabul,29,31)
option dbu
list 13, 0 0 396 19
list 1, 0 11 396 17, size
list 2, 403 13 150 8, size
list 7, 403 25 150 13, size
list 9, 403 -3 150 1
box "Hızlı İşlemler", 8, 397 5 44 34,default
text "", 11, 463 17 45 26, center
text "", 12, 466 21 39 22, center

}
on *:dialog:toolbar:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetFont $dname 12 17 550 Courier New
.timersaat 0 1 saat 12

rebar HideToolbar
rebar Dock $dialog(toolbar).hwnd > top
mdx SetControlMDX $dname 1,2,7,9,13 ToolBar flat wrap arrows nodivider > $bars
mdx SetBorderStyle 1,2,7,9,13

did -i $dname 2 1 bmpsize 16 16
did -i $dname 2 1 setimage +nhd 0 icon small icon\operator.ico
did -a $dname 2 +b 1 $chr(32) $+ $chr(9) $+ OP / DEOP
did -i $dname 2 1 setimage +nhd 0 icon small icon\voice.ico
did -a $dname 2 +b 2 $chr(32) $+ $chr(9) $+ VOICE / DEVOICE
did -i $dname 2 1 setimage +nhd 0 icon small icon\ikaz.ico
did -a $dname 2 +b 3 $chr(32) $+ $chr(9) $+ KICK BAN
did -i $dname 7 1 bmpsize 16 16
did -i $dname 7 1 setimage +nhd 0 icon small icon\kick.ico
did -a $dname 7 +b 1 $chr(32) $+ $chr(9) $+ Kick
did -i $dname 7 1 setimage +nhd 0 icon small icon\Whois.ico
did -a $dname 7 +b 2 $chr(32) $+ $chr(9) $+ Whois Çek
did -i $dname 7 1 setimage +nhd 0 icon small icon\Query.ico
did -a $dname 7 +b 3 $chr(32) $+ $chr(9) $+ Özel Aç

did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 1 1 bmpsize 26 26
did -i $dname 1 1 setimage icon large icon\disconnect.ico
did -i $dname 1 1 setimage icon large icon\baglanti.ico
did -i $dname 1 1 setimage icon large icon\mds.ico
did -i $dname 1 1 setimage icon large icon\mp3.ico
did -i $dname 1 1 setimage icon large icon\panel.ico
did -i $dname 1 1 setimage icon large icon\islamca.ico
did -i $dname 1 1 setimage icon large icon\dost.ico
did -i $dname 1 1 setimage icon large icon\Games2.ico
did -i $dname 1 1 setimage icon large icon\radyo.ico
did -i $dname 1 1 setimage icon large icon\Mouse.ico
did -i $dname 1 1 setimage icon large icon\internet.ico
did -i $dname 1 1 setimage icon large icon\baglan.ico
did -a $dname 1 +a -
did -a $dname 1 +a 1 Bağlan $chr(9) $+ Servere Bağlan
did -a $dname 1 +a -
did -a $dname 1 +a 3 $chr(32) Away Menüsü $chr(9) $+ away Menüsünü Açar
did -a $dname 1 +a -
did -a $dname 1 +a 4 $chr(32) Mp3 Player $chr(9) $+ Zirve mp3 player
did -a $dname 1 +a -
did -a $dname 1 +a 5 $chr(32) KontroL PaneLi $chr(9) $+ Kontrol PaneLini Açar
did -a $dname 1 +a -
did -a $dname 1 +a 6 $chr(32) KorumaLar $chr(9) $+ hay_ta Korumalar Açar
did -a $dname 1 +a -
did -a $dname 1 +a 7 $chr(32) AyarLar $chr(9) $+ Script Ayarlarını açar
did -a $dname 1 +a -
did -a $dname 1 +a 8 $chr(32) Oyunlar $chr(9) $+ Script Oyunlarını Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 9 $chr(32) ZirveFM DinLe $chr(9) $+ ZirveFm DinLemenizi SağLar
did -a $dname 1 +a -
did -a $dname 1 +a 10 $chr(32) Mosuse AyarLarı $chr(9) $+Mouse seçmenizi Sağlar
did -a $dname 1 +a -
did -a $dname 1 +a 11 $chr(32) Zirve Web $chr(9) $+ Sunucu Web Sitesini Açmanızı SağLar.
did -a $dname 1 +a -

}
on *:dialog:toolbar:sclick:*:{
if $did == 2 {
if $did(2).sel == 2 {
if $sline($active,1) isop $active {
mode $active -o $sline($active,1)
}
else {
mode $active +o $sline($active,1)
}
}
if $did(2).sel == 3 {
if $sline($active,1) isvoice $active {
mode $active -v $sline($active,1)
}
else {
mode $active +v $sline($active,1)
}
}
if $did(2).sel == 4 {
mode $active +b $sline($active,1) $+ !*@*
kick $active $sline($active,1) 4Bu kanaldan atıldınız. Güle güle derim sana...
}
}

if $did == 7 {
if $did(7).sel == 2 {
kick $active $sline($active,1) 4Bu kanaldan atıldınız. Güle güle derim sana...
}
}
if $did == 7 {
if $did(7).sel == 3 {
whois $nick $sline($active,1)
}
}
if $did == 7 {
if $did(7).sel == 4 {
query $nick $sline($active,1)
}
}

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) {
.awayset
}
if ($did($dname,1).sel = 7) {
.mp3player
}
if ($did($dname,1).sel = 9) {
.cpanel
}
if ($did($dname,1).sel = 11) {
.dialog -m protext protext
}
if ($did($dname,1).sel = 13) {
.hytayönet
}
if ($did($dname,1).sel = 15) {
.oyun
}
if ($did($dname,1).sel = 17) {
.radyob
}
if ($did($dname,1).sel = 19) {
.mouse
}
if ($did($dname,1).sel = 21) {
.run sunucum.com
}
if ($did($dname,1).sel = 23) {
.$mircdiryardim.htm
}
}
}
}
------------------------------------------------------

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet