Çevrimdışı

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
}
}
}
}
------------------------------------------------------

 

Çevrimdışı

Sanırım Sen Böyle Bır Toolbar Istıyorsun..


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

__________________
Benim En Kötü Hikaye'mi En Güvendiğim İnsanlar Yazdı..
Erhan İle Hüzünlü Saatler Etka..

 

Çevrimdışı

bedqoq; Nickli Üyeden Alıntı

Arkadaşlar Şöyle bir Cod yazdım ama ben bunu SoLda da KuLLanmak İstiyorum.

Oncelikle Sen bu kodu yazmadin.
Ve bu toolbar'i yan'a rebar.dll ile yerlestirebilirsin, ancak
yan tarafta durmasi mIRC'te bazi kasmalar ve sorunlara yol
acacaktir.

 

Çevrimdışı

rebar Dock $dialog(toolbar).hwnd > top
burda ki top 'u left yap ve toolbar yazan yerleride değiştir örneğin tb , toolbarr yaparsan vs. gibi tamadır