IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Toolbar ile ilgili sorun (https://www.ircforumlari.net/mirc-scripting-sorunlari/14219-toolbar-ile-ilgili-sorun.html)

shibby 18 Mart 2006 19:22

Toolbar ile ilgili sorun
 
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:

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

Re: Toolbar ile ilgili sorun
 
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

Re: Toolbar ile ilgili sorun
 
İ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

Cevap: Toolbar ile ilgili sorun
 
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:

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

Cevap: Toolbar ile ilgili sorun
 
Kod:

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:

on *:start: { dialog -m toolbar toolbar }
kafan karışmasın Ok...

moonshield 19 Aralık 2007 11:17

Cevap: Toolbar ile ilgili sorun
 
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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 10:43.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk