Toolbar ile ilgili sorun - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

shibby · 18 Mart 2006, 19:22

yaptigim toolbarda connect tusu basinca hemen disconnecte donussun, disconnect ise hemen connecte donussun ve 2 iconum varoda connect.ico ve disconnect.ico ben boyle yaptim. servera baglandiktan sonra yukariki toolbar silinip yeniden geliyor yerine baglanmis iconu oluyor. serverdan koptugu zamanda ayni sekil ve cok cirkin bi ayar veremedim. yardimci olursaniz,

tesekkurler...;painter

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias btool {
  if $dialog(btool) { hos Undock btool close }
  hos ShowToolBar false
  dialog -m btool btool | hos Dock btool top -1
}
dialog btool {
  title "black toolbar"
  size -1 -1 1000 5
  list 2, 1 1 1000 100
}
on *:dialog:btool:init:*:{
  dll $mdx SetMircVersion $version
  dll $mdx MarkDialog $dname $dialog($dname).hwnd
  dll $mdx SetDialog $dname style
  dll $mdx SetBorderStyle $dname 2
  dll $mdx SetControlMDX $dname 2 ToolBar flat wrap arrows nodivider noresize > dll\bars.mdx
  did -i $dname 2 1 bmpsize 18 18
  did -i $dname 2 1 setimage +nh icon small $iif($status == connected,$_c(connect),$_c(disconnect))
  did -a $dname 2 +b 1 $chr(9) $+ $iif($status == connected,Sunucudan Ayrıl,Sunucuya Gir)
  did -a $dname 2 -
  did -i $dname 2 1 setimage +nh icon small $_c(chan)
  did -a $dname 2 +b 2 $chr(9) $+ Kanal Listesi
  did -i $dname 2 1 setimage +nh icon small $_c(cprot)
  did -a $dname 2 +b 3 $chr(9) $+ Kanal Korumaları
  did -i $dname 2 1 setimage +nh icon small $_c(self)
  did -a $dname 2 +b 4 $chr(9) $+ Kişisel Korumalar
  did -a $dname 2 -
  did -i $dname 2 1 setimage +nh icon small $_c(away)
  did -a $dname 2 +b 5 $chr(9) $+ Away Ayarları
  did -i $dname 2 1 setimage +nh icon small $_c(autoj)
  did -a $dname 2 +b 6 $chr(9) $+ Auto Join Ayarları
  did -i $dname 2 1 setimage +nh icon small $_c(ai)
  did -a $dname 2 +b 7 $chr(9) $+ Auto Identify
  did -i $dname 2 1 setimage +nh icon large $_c(text)
  did -a $dname 2 +b 8 $chr(9) $+ Logs
  did -a $dname 2 -
  did -i $dname 2 1 setimage +nh icon small $_c(display)
  did -a $dname 2 +b 9 $chr(9) $+ Hakkında
}
alias _c { return $+(icon\,$1-,.ico) }
alias tchatdll { dll dll\tchat.dll $1- }
on 1:dialog:btool:sclick:2: {
  if $did(2).sel == 2 { /server  }
  if $did(2).sel == 4 { tchatdll sendkey alt j }
  if $did(2).sel == 5 { f3 }
  if $did(2).sel == 6 { f3 }
  if $did(2).sel == 8 { f10 }
  if $did(2).sel == 9 { f9 }
  if $did(2).sel == 10 { f7 }
  if $did(2).sel == 11 { f6 }
  if $did(2).sel == 13 { dialog -m babout babout }
}

Vatan · 19 Mart 2006, 15:38

yaw kodlarla beraber resim de koysaydın keşke.

shibby · 26 Mart 2006, 13:39

yardim edenim olmucak sanirim ;scare

McKruGer · 26 Mart 2006, 18:32

on *:dialog:btool:init:*:{
dll $mdx SetMircVersion $version
dll $mdx MarkDialog $dname $dialog($dname).hwnd
dll $mdx SetDialog $dname style
dll $mdx SetBorderStyle $dname 2
dll $mdx SetControlMDX $dname 2 ToolBar flat wrap arrows nodivider noresize > dll\bars.mdx
did -i $dname 2 1 bmpsize 18 18
did -i $dname 2 1 setimage +nh icon small $iif($status == connected,$_c(connect),$_c(disconnect))
did -a $dname 2 +b 1 $chr(9) $+ $iif($status == connected,Sunucudan Ayrıl,Sunucuya Gir)
did -a $dname 2 -
did -i $dname 2 1 setimage +nh icon small $_c(chan)
did -a $dname 2 +b 3 $chr(9) $+ Kanal Listesi
did -i $dname 2 1 setimage +nh icon small $_c(cprot)
did -a $dname 2 +b 4 $chr(9) $+ Kanal Korumaları
did -i $dname 2 1 setimage +nh icon small $_c(self)
did -a $dname 2 +b 5 $chr(9) $+ Kişisel Korumalar
did -a $dname 2 -
did -i $dname 2 1 setimage +nh icon small $_c(away)
did -a $dname 2 +b 6 $chr(9) $+ Away Ayarları
did -i $dname 2 1 setimage +nh icon small $_c(autoj)
did -a $dname 2 +b 7 $chr(9) $+ Auto Join Ayarları
did -i $dname 2 1 setimage +nh icon small $_c(ai)
did -a $dname 2 +b 8 $chr(9) $+ Auto Identify
did -i $dname 2 1 setimage +nh icon large $_c(text)
did -a $dname 2 +b 9 $chr(9) $+ Logs
did -a $dname 2 -
did -i $dname 2 1 setimage +nh icon small $_c(display)
did -a $dname 2 +b 10 $chr(9) $+ Hakkında
}

Şeklinde dene olmassa başka türlü yapariz.

shibby · 30 Mart 2006, 22:56

ya istedigim bu degil, istedigim su.

benim toolbardaki connect iconum sabit. tikladigimda(baglan dedigimde) icon deisecek ve bu sefer baglan degilde baglantiyi kopar aksi olucak. mircin kendi yaptigi gibi simsek olayi.

tesekkurler...

McKruGer · 31 Mart 2006, 01:29

İconları senin toolbarda yerleştirmek istediğin ayarların ismini yazarak belirledim.

on *:connect: {
update.toolbar
}

on *:disconnect: {
update.toolbar
}

on *:close:*: {
update.toolbar
}

on *:start: { dialog -m toolbar 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) Sunucudan Ayrıl $chr(9) $+ Sunucudan Ayrıl
}
else {
did -o toolbar 1 3 +a 1 $chr(32) Sunucuya Gir $chr(9) $+ Sunucuya Gir
}
}
}

dialog toolbar {
title "x"
size 0 0 1500 13
option dbu
list 1, 2 2 2978 25, size
}

on *:dialog:toolbar:init:0: {
set %seps 0
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetBorderStyle $dname 2 staticedge
mdx SetFont $dname 1 Turkish 14 800 Cyrillic
mdx SetColor $dname 1 background $rgb(113,188,255)

rebar HideToolbar .
rebar Dock $dialog(toolbar).hwnd > top

mdx SetControlMDX $dname 1,3,6 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1 ToolBar flat wrap arrows nodivider > $bars
; mdx SetControlMDX $dname 1 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 26 26
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\kanaliste.ico
did -i $dname 1 1 setimage icon large icon\kanalkorumalar.ico
did -i $dname 1 1 setimage icon large icon\kisiselkorumalar.ico
did -i $dname 1 1 setimage icon large icon\away.ico
did -i $dname 1 1 setimage icon large icon\autojoin.ico
did -i $dname 1 1 setimage icon large icon\autoidentify.ico
did -i $dname 1 1 setimage icon large icon\log.ico
did -i $dname 1 1 setimage icon large icon\hakkinda.ico
did -a $dname 1 +a -
did -a $dname 1 +a 1 $chr(32) Sunucuya Gir $chr(9) $+ Sunucuya Gir
did -a $dname 1 +a -
did -a $dname 1 +a 3 $chr(32) Kanal Listesi $chr(9) $+ Kanal Listesi
did -a $dname 1 +a -
did -a $dname 1 +a 4 $chr(32) Kanal Korumaları $chr(9) $+ Kanal Korumaları
did -a $dname 1 +a -
did -a $dname 1 +a 5 $chr(32) Kişisel Korumalar $chr(9) $+ Kişisel Korumalar
did -a $dname 1 +a -
did -a $dname 1 +a 6 $chr(32) Away Ayarları $chr(9) $+ Away Ayarları
did -a $dname 1 +a -
did -a $dname 1 +a 7 $chr(32) Otomatik Giriş $chr(9) $+ Otomatik Giriş
did -a $dname 1 +a -
did -a $dname 1 +a 8 $chr(32) Otomatik İdentify $chr(9) $+ Otomatik İdentify
did -a $dname 1 +a -
did -a $dname 1 +a 9 $chr(32) Loglar $chr(9) $+ Loglar
did -a $dname 1 +a -
did -a $dname 1 +a 10 $chr(32) Hakkında $chr(9) $+ Hakkında
did -a $dname 1 +a -
rebar Dock $dialog(toolbar).hwnd > top
}

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) {
tchatdll sendkey alt j
}
if ($did($dname,1).sel = 7) {
f3
}
if ($did($dname,1).sel = 9) {
f3
}
if ($did($dname,1).sel = 11) {
f10
}
if ($did($dname,1).sel = 13) {
f9
}
if ($did($dname,1).sel = 15) {
f7
}
if ($did($dname,1).sel = 17) {
f6
}
if ($did($dname,1).sel = 19) {
dialog -m babout babout

}
}
}
}

moonshield · 19 Aralık 2007, 02:19

Leader'in Yaptığı bi scriptteki toolbar kodunu almaya calıstım ama nedense bi sorunla karsılaştım ilgilenirseniz sevinirim arkadaşlar. Uğraştım olmadl.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:start: { title | titletime dialog -m toolbar toolbar }
 
alias update.toolbar {
  if (!$dialog(toolbar)) { halt }
  else {
    scid $activecid
    if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) { 
      did -o toolbar 1 2 +a 2 $chr(32) Disconnect $chr(9) $+ Disconnect
    }
    else {
      did -o toolbar 1 2 +a 1 $chr(32) Bağlantı $chr(9) $+ Bağlantı
    }
  }
}
 
dialog toolbar {
  title "x"
  size 0 0 1500 13
  option dbu
  list 1, 1 1 600 10, size
}
on *:dialog:toolbar:init:0: {
  set %seps 0
  mdx MarkDialog $dname
  mdx SetDialog $dname style 
  mdx SetBorderStyle $dname 2 staticedge 
  mdx SetFont $dname 1 Turkish 13 800 Tahoma
  mdx SetColor $dname 5,7,9,11,13,15,17,19 text $rgb(0,10,100)
  mdx SetColor $dname 5,7,9,11,13,15,17,19 textbg $rgb(200,200,200)
  rebar HideToolbar .
  rebar Dock $dialog(toolbar).hwnd > top
  mdx SetControlMDX $dname 1,3,6 Progressbar smooth > $ctl
  mdx SetControlMDX $dname 1 ToolBar flat wrap arrows nodivider > $bars
  mdx SetControlMDX $dname 1 ToolBar flat arrows nodivider wrap > $aux.mdx(bars)
  mdx SetBorderStyle 1
  did -i $dname 1 1 setscheme $rgb(212,208,200) $rgb(212,208,200)  
  did -i $dname 1 1 bmpsize 30 30
  did -i $dname 1 1 setimage icon large icon\1.ico
  did -i $dname 1 1 setimage icon large icon\2.ico
  did -i $dname 1 1 setimage icon large icon\3.ico
  did -i $dname 1 1 setimage icon large icon\4.ico
  did -i $dname 1 1 setimage icon large icon\5.ico
  did -i $dname 1 1 setimage icon large icon\6.ico
  did -i $dname 1 1 setimage icon large icon\7.ico
  did -i $dname 1 1 setimage icon large icon\8.ico
  did -i $dname 1 1 setimage icon large icon\9.ico
  did -a $dname 1 +a 1 Bağlan
  did -a $dname 1 +a 3 Ayarlar
  did -a $dname 1 +a 4 Temalar
  did -a $dname 1 +a 5 Kanallar
  did -a $dname 1 +a 6 Servisler
  did -a $dname 1 +a 7 Away Menu
  did -a $dname 1 +a 8 Radyo Dinle
  did -a $dname 1 +a 9 Hakkında
  rebar Dock $dialog(toolbar).hwnd > top
}
 
on *:dialog:toolbar:*:*: {
  if $devent == sclick { 
    if $did == 1 {
      if ($did($dname,1).sel = 2) {
        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 = 3) {
        sendkey ALT O
      }
      if ($did($dname,1).sel = 4) {
        sendkey ALT K
      }
      if ($did($dname,1).sel = 5) {
        _k
      }
      if ($did($dname,1).sel = 6) {
        _serv
      }
      if ($did($dname,1).sel = 7) {
        _away
      }
      if ($did($dname,1).sel = 8) {
        os.radiosys
      }
      if ($did($dname,1).sel = 9) {
        hakkinda
      }
    }
  }
}

* /title: Servera bağlı değilsiniz

Bu hatayi veriyor. Şimdiden Tesekkürler.
mirc 6.31 kurmaya calısıyorum acaba ondan olabilirmi?

LauReLL · 19 Aralık 2007, 03:31

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:start: { title | titletime dialog -m toolbar toolbar }

burada script acılır acılmaz title diye bir alias vermiş arkadaşımız ama sen görmemişsin herhalde onu şu şekilde değiştir

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:start: { dialog -m toolbar toolbar }

kafan karışmasın Ok...

moonshield · 19 Aralık 2007, 11:17

mdxinit {
mdx SetMircVersion $version
mdx MarkDialog $dname
}
kalin {
mdx SetFont $dname $1 $2 800 tahoma
}
ctl { return dlls\ctl_gen.mdx }
views { return dlls\views.mdx }
sendkey {
showmirc -s
dll dll\sendkey.dll $1 $$2-
}

Aliasstan kaynaklanan bi sorunmus saoLun arkadaşlar.;oki

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Çözüldü Mırc script ve toolbar hakkında bir kaç sorun.	ŞaH	mIRC Scripting Sorunları	44	05 Aralık 2024 13:29
Çözüldü Toolbar'da Sorun	aRmoR	mIRC Scripting Sorunları	2	24 Mart 2015 21:13
Koruma ile ilgili Sorun	hakaN_24	mIRC Scripting Sorunları	5	16 Haziran 2007 18:43

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.