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/)
-   -   baglan ikonu değiştiremiyorum (https://www.ircforumlari.net/mirc-scripting-sorunlari/358045-baglan-ikonu-degistiremiyorum.html)

LordAres 04 Ekim 2010 18:31

baglan ikonu değiştiremiyorum
 
arkadaşlar, aşağıdaki kodlamamda update toolbar kısmında ( kırmız ile belirttim) bağlan ve kes dediğimde iconların değişmesini yapmadım hatam nerede. nasıl yapmalıyım did -i değilde did -o mu olmalı.

teşekkürler




on *:start: { dialog -m toolbar toolbar }
on *:connect: {
update.toolbar
}
on *:disconnect: {
update.toolbar
}
on *:close:*: {
update.toolbar
}
alias update.toolbar {
if (!$dialog(toolbar)) { halt }
else {
scid $activecid
if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) {
did -i $dname 1 2 setimage icon large 0, $+ icon\kes.ico

}
else {
did -i $dname 1 2 setimage icon large 0, $+ icon\baglan.ico

}
}
}
dialog toolbar {
title ""
size 5 5 5 18
option dbu

list 2, 5 4 33 17, size
list 3, 25 4 53 17, size
list 4, 70 4 53 17, size
list 5, 108 4 33 17, size
list 6, 142 4 33 17, size
list 7, 168 4 33 17, size
list 8, 200 4 33 17, size
list 9, 229 4 35 17, size
list 11, 289 7 17 8, size
list 12, 304 7 17 8, size
list 13, 320 7 17 8, size
list 14, 335 7 17 8, size
text "TutkuyuzFM", 15, 289 0 45 7
}
on *:dialog:toolbar:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetFont $dname 1 11 700 Verdana
rebar HideToolbar .
rebar Dock $dialog(toolbar).hwnd > top
mdx SetControlMDX $dname 1 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1 ToolBar flat wrap arrows nodivider > $bars
mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15 Toolbar flat wrap arrows nodivider > $bars
mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15 Progressbar smooth > $ctl
mdx SetBorderStyle $dname 2,3,4,5,6,7,8,9,11,12,13,14,15
mdx SetFont 1,2,3,4,5,6,7,8,9,11,12,13,14,15 -8 700 Tahoma
mdx SetDialog [ $dname ] bgcolor $rgb(210,210,210)
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,15 background $rgb(210,210,210)
mdx SetColor $dname 11,12,13,14 background $rgb(116,125,140)
mdx SetColor $dname 15 text $rgb(0,51,255)
mdx SetColor $dname 2,3,4,5,6,7,8,9,15 background $rgb(210,210,210)
mdx SetColor $dname 15 textbg $rgb(210,210,210)


did -i $dname 2 1 bmpsize 32 32
did -i $dname 2 1 setimage icon large 0, $+ icon\baglan.ico
did -a $dname 2 1 Bağlan
did -i $dname 3 1 bmpsize 32 32
did -i $dname 3 1 setimage icon large 0, $+ icon\bgmenu.ico
did -a $dname 3 1 Bağlantı Menüsü
did -i $dname 4 1 bmpsize 32 32
did -i $dname 4 1 setimage icon large 0, $+ icon\avay.ico
did -a $dname 4 1 Away Menüsü
did -i $dname 5 1 bmpsize 32 32
did -i $dname 5 1 setimage icon large 0, $+ icon\ozkb.ico
did -a $dname 5 1 Özel Kabul
did -i $dname 6 1 bmpsize 32 32
did -i $dname 6 1 setimage icon large 0, $+ icon\ktpnl.ico
did -a $dname 6 1 Ayarlar
did -i $dname 7 1 bmpsize 32 32
did -i $dname 7 1 setimage icon large 0, $+ icon\nik.ico
did -a $dname 7 1 Nick Değiş
did -i $dname 8 1 bmpsize 32 32
did -i $dname 8 1 setimage icon large 0, $+ icon\op.ico
did -a $dname 8 1 Op OL
did -i $dname 9 1 bmpsize 32 32
did -i $dname 9 1 setimage icon large 0, $+ icon\deop.ico
did -a $dname 9 1 Deop OL
did -i $dname 11 1 bmpsize 27 27
did -i $dname 11 1 setimage icon large 0, $+ icon\cal.ico
did -a $dname 11 1 Çal
did -i $dname 12 1 bmpsize 27 27
did -i $dname 12 1 setimage icon large 0, $+ icon\dur.ico
did -a $dname 12 1 Dur
did -i $dname 13 1 bmpsize 27 27
did -i $dname 13 1 setimage icon large 0, $+ icon\art.ico
did -a $dname 13 1 Arttır
did -i $dname 14 1 bmpsize 27 27
did -i $dname 14 1 setimage icon large 0, $+ icon\eksi.ico
did -a $dname 14 1 Azalt
}

on *:dialog:toolbar:sclick:*: {

if $did == 2 { if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect } | else { scid $activecid server } scid $activecid window -a "status window" }


if $did == 3 { baglantıayarları }
if $did == 5 { qblock }
if $did == 7 { degis }


}
alias mdx { return $dll(icon\DLL\mdx.dll,$1,$2-) }
alias mdxdll { return $dll(icon\DLL\mdx.dll,$1,$2-) }
alias rebar { dll icon\DLL\rebar.dll $$1- }
alias bars { return icon\DLL\bars.mdx }

fener1907 04 Ekim 2010 22:51

Cevap: baglan ikonu değiştiremiyorum
 
Kod:

on *:start: { dialog -m toolbar toolbar }
on *:connect: {
  update.toolbar
}
on *:disconnect: {
  update.toolbar
}
on *:close:*: {
  update.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  Bağlantıyı Kes
    }
    else {
      did -o toolbar 1 2 +a 1  Bağlan
    }
  }
}
dialog toolbar {
  title ""
  size 0 0 0 18
  option dbu
  list 1, 0 0 364 17, size
  list 10, 370 8 270 12, size
  box "TutkuyuzFM", 14, 365 -1 80 33,default
  text "", 2, 594 6 45 16, center
  text "", 3, 597 10 39 11, center
}

on *:dialog:toolbar:init:0: {
  mdx MarkDialog $dname
  mdx SetDialog $dname style
  mdx SetFont $dname 1,10 1400 Verdana
  rebar HideToolbar .
  rebar Dock $dialog(toolbar).hwnd > top
  mdx SetControlMDX $dname 1,3 Progressbar smooth > $ctl
  mdx SetControlMDX $dname 1,10 ToolBar flat wrap arrows nodivider > $bars
  mdx SetBorderStyle 1,10
 
 
 
  did -i $dname 1 1 bmpsize 32 32
  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\bgmenu.ico
  did -i $dname 1 1 setimage icon large  icon\avay.ico
  did -i $dname 1 1 setimage icon large  icon\ozkb.ico
  did -i $dname 1 1 setimage icon large  icon\ktpnl.ico
  did -i $dname 1 1 setimage icon large  icon\nik.ico
  did -i $dname 1 1 setimage icon large  icon\op.ico
  did -i $dname 1 1 setimage icon large  icon\deop.ico
 
  did -a $dname 1 1 $chr(32) Bağlan $chr(9) $+ servere bağlanır
  did -a $dname 1 3 $chr(32) Bağlantı Menüsü
  did -a $dname 1 4 $chr(32) Away Menüsü
  did -a $dname 1 5 $chr(32) Özel Kabul
  did -a $dname 1 6 $chr(32) Ayarlar
  did -a $dname 1 7 $chr(32) Nick Değiş
  did -a $dname 1 8 $chr(32) Op OL
  did -a $dname 1 9 $chr(32) Deop OL

  did -i $dname 10 1 bmpsize 27 27
  did -i $dname 10 1 setimage icon large  icon\cal.ico
  did -i $dname 10 1 setimage icon large  icon\dur.ico
  did -i $dname 10 1 setimage icon large  icon\art.ico
  did -i $dname 10 1 setimage icon large  icon\eksi.ico
 
  did -a $dname 10 1 Çal
  did -a $dname 10 2 Dur
  did -a $dname 10 3 Arttır
  did -a $dname 10 4 Azalt
}

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) {
      baglantıayarları
    }
    if ($did($dname,1).sel = 4) {
      qblock
    }
    if ($did($dname,1).sel = 5) {
      degis
    }
  }
}
alias mdx { return $dll(icon\DLL\mdx.dll,$1,$2-) }
alias mdxdll { return $dll(icon\DLL\mdx.dll,$1,$2-) }
alias rebar { dll icon\DLL\rebar.dll $$1- }
alias bars { return icon\DLL\bars.mdx }

biraz kurcaladım beğenirsen eksik yerleri tamamlarsın

LordAres 05 Ekim 2010 00:15

Cevap: baglan ikonu değiştiremiyorum
 
hocam yine imdadıma sen yetiştin. Çok teşekkur ediyorum.
benim daha onceki kodlama şeklimde öyleydi. Onda sorun yaşıyorum o yuzden herbirine tek tek list oluşturup yeniden yapmışıtım. Diğer türlü id leri karıştırıyorum. oyuzden eski kodu yapmaya çalışıcam. yinede ellerine sağlık


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 16: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