Toolbar Tasarımı [Güncellendi] - Sayfa 8 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

StanteaR · 12 Ağustos 2007, 20:51

Bırsey Sorucam Sımdı Mırcda 2 Tane Tollbar Olabılır Degılmı Hem Ustte Hem Altta Ben Bunu Denedım Beceremedım Usttekkı Toolbar Duruyor Asagıyada 1 Tane Boyle 5 Tane Menusu Olan Toolbar Yapmak Istıyorum Ama Olmuyor Nasıl Yapabılırım Yardımcı Olabılırmısınız ?

McKruGer · 12 Ağustos 2007, 22:24

Hem üstte hem altta yer alıyor. Alt tarafta 5 menü demişssin. Buyur:

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

on *:start: { 
  dialog -m altbar altbar 
  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 $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) Bağlantıyı Kes $chr(9) $+ IRC Serverle Bağlantınızı Koparır. 
    }
    else {
      did -o toolbar 1 3 +a 1 $chr(32) Servere Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar.
    }
  }
}

dialog toolbar {
  title "x"
  size 0 0 550 $iif($temabul,14,17)
  option dbu
  list 4, 0 -2 600 17, size
  list 1, 0 4 600 17, size
  text "", 2, 464 6 45 16, center
  text "", 3, 467 10 39 11, center
}
on *:dialog:toolbar:init:0: {
  mdx MarkDialog $dname
  mdx SetDialog $dname style 
  mdx SetFont $dname 1 Turkish 14 800 Cyrillic
  mdx SetColor $dname 1,2,3,4 background $rgb(113,188,255)
  mdx SetColor $dname 3 text $rgb(0,0,0)
  mdx SetFont $dname 3 +a 20 600 arial
  mdx SetColor $dname 2,3 textbg $rgb(113,188,255)
  .timersaat 0 1 saat 3

  rebar HideToolbar .
  rebar Dock $dialog(toolbar).hwnd > top
  mdx SetControlMDX $dname 1,3,4 Progressbar smooth > $ctl
  mdx SetControlMDX $dname 1,4 ToolBar flat wrap arrows nodivider > $bars
  mdx SetBorderStyle 1
  did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
  did -i $dname 1 1 bmpsize 27 27 
  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\Ayarlar.ico
  did -i $dname 1 1 setimage icon large icon\kanal.ico
  did -i $dname 1 1 setimage icon large icon\korumalar.ico
  did -i $dname 1 1 setimage icon large icon\kontrolpanel.ico
  did -i $dname 1 1 setimage icon large icon\gorunum.ico
  did -i $dname 1 1 setimage icon large icon\liste.ico
  did -i $dname 1 1 setimage icon large icon\oyunlar.ico
  did -i $dname 1 1 setimage icon large icon\internet.ico
  did -i $dname 1 1 setimage icon large icon\yardım.ico
  did -a $dname 1 +a -
  did -a $dname 1 +a 1 $chr(32) Server Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 3 $chr(32) Bağlantı $chr(9) $+ Bağlantı Ayarlarını Yapar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 4 $chr(32) Kanallar $chr(9) $+ Kanallara Giriş Penceresini Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 5 $chr(32) Korumalar $chr(9) $+ Kanal ve Kişisel Korumaları Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 6 $chr(32) Kontrol Panel $chr(9) $+ Scriptinizle İlgili Tüm Ayarları Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 7 $chr(32) Görünümler $chr(9) $+ Scriptinizin Görünümüyle İlgili Ayarları Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 8 $chr(32) Listeler $chr(9) $+ Scriptinizdeki Notify, Düşman Listesi Gibi Ayarları Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 9 $chr(32) Oyunlar $chr(9) $+ Scriptinizin Oyunlarıyla İlgili Diyalogu Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 10 $chr(32) Internet $chr(9) $+ Internet Adreslerinin Olduğu Diyalogu Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 11 $chr(32) Yardım $chr(9) $+ Scriptinizin Yardım Dosyasını Açar.
  did -a $dname 1 +a -
}

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) {
        Ayarlar
      }
      if ($did($dname,1).sel = 7) {
        Kanallar
      }
      if ($did($dname,1).sel = 9) {
        Korumalar
      }
      if ($did($dname,1).sel = 11) {
        kontrolpanel
      }
      if ($did($dname,1).sel = 13) {
        gorunumler
      }
      if ($did($dname,1).sel = 15) {
        listeler 
      }
      if ($did($dname,1).sel = 17) {
        oyunlar
      }
      if ($did($dname,1).sel = 19) {
        internet
      }
      if ($did($dname,1).sel = 21) {
        yardim
      }
    }
  }
}

dialog altbar {
  title "x"
  size 0 0 550 $iif($temabul,14,17)
  option dbu
  list 4, 0 -2 550 17, size
  list 1, 0 4 550 17, size
}
on *:dialog:altbar:init:0: {
  mdx MarkDialog $dname
  mdx SetDialog $dname style 
  mdx SetFont $dname 1 Turkish 14 800 Cyrillic
  mdx SetColor $dname 1,4 background $rgb(113,188,255)


  rebar Dock $dialog(altbar).hwnd > bottom
  mdx SetControlMDX $dname 1,4 Progressbar smooth > $ctl
  mdx SetControlMDX $dname 1,4 ToolBar flat wrap arrows nodivider > $bars

  mdx SetBorderStyle 1
  did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
  did -i $dname 1 1 bmpsize 27 27
  did -i $dname 1 1 setimage icon large icon\ayarlar.ico
  did -i $dname 1 1 setimage icon large icon\ayarlar.ico
  did -i $dname 1 1 setimage icon large icon\ayarlar2.ico
  did -i $dname 1 1 setimage icon large icon\kanal.ico
  did -i $dname 1 1 setimage icon large icon\korumalar.ico
  did -i $dname 1 1 setimage icon large icon\kontrolpanel.ico
  did -a $dname 1 +a -
  did -a $dname 1 +a 1 $chr(32) Server Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 3 $chr(32) Bağlantı $chr(9) $+ Bağlantı Ayarlarını Yapar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 4 $chr(32) Kanallar $chr(9) $+ Kanallara Giriş Penceresini Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 5 $chr(32) Korumalar $chr(9) $+ Kanal ve Kişisel Korumaları Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 6 $chr(32) Kontrol Panel $chr(9) $+ Scriptinizle İlgili Tüm Ayarları Açar.
  did -a $dname 1 +a -


}

on *:dialog:altbar:*:*: {
  if $devent == sclick {
    if $did == 1 {
      if ($did($dname,1).sel = 3) {
        dialog -m ayarlar ayarlar
      }
      if ($did($dname,1).sel = 5) {
        dialog -m digerayarlar digerayarlar
      }
      if ($did($dname,1).sel = 7) {
        dialog -m kanallar kanallar
      }
      if ($did($dname,1).sel = 9) {
        dialog -m korumalar korumalar
      }
      if ($did($dname,1).sel = 11) {
        cpanel
      }

    }
  }
}

StanteaR · 12 Ağustos 2007, 22:34

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

ircpolice35 · 20 Ağustos 2007, 20:06

merhabalar
kodu duzenledim hersey tamam ancak servere baglan butonuna basınca sunucuya baglanmıyor ama manuel olarak baglanınca baglantıyı kes butonuna basınca baglantıyı kesiyor sorun ne olabilir bağlantıyı nasıl saglayabilirim yardımlarınız için simdiden tşkler

McKruGer · 22 Ağustos 2007, 19:35

ircpolice kodları doğru olarak yerleştirdiğine emin ol. çünkü kodlarda bahsettiğin tarzda bir sorun yoktur.

07 Ekim 2007, 19:20

McKruger dAi Su dLL.zip'ine bi bakıver bea Sana zahmet Calismior.

McKruGer · 08 Ekim 2007, 02:31

goKhaN` Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

McKruger dAi Su dLL.zip'ine bi bakıver bea Sana zahmet Calismior.

dll dosyaları zipi download: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

StanteaR · 22 Aralık 2007, 14:36

merhaba sımdı ben bırsey sorcam ben senın verdıgın bu mp3 lü toolbari yaptım sonra altbar kısmınıda aldım ekledım amcadı onu ust mp3 lü olan acılıyor ama alttakı 5 ıconlu kısım acılmıyor ben hem ust toolbar ıconlu kısım acılsın hemde alttakı 5 ıconlu kısım acılsın ıstıyorum yardımcı olabılırmısın bırde bu mp3 yerı ıcın durdur forward o ıconları nerden bulabılırım yardım edebılırmısın..

johndoe · 25 Aralık 2007, 13:35

murat resimler ölmüş, bi güncelle istersen onları

McKruGer · 25 Aralık 2007, 20:34

SenSizBen Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

merhaba sımdı ben bırsey sorcam ben senın verdıgın bu mp3 lü toolbari yaptım sonra altbar kısmınıda aldım ekledım amcadı onu ust mp3 lü olan acılıyor ama alttakı 5 ıconlu kısım acılmıyor ben hem ust toolbar ıconlu kısım acılsın hemde alttakı 5 ıconlu kısım acılsın ıstıyorum yardımcı olabılırmısın bırde bu mp3 yerı ıcın durdur forward o ıconları nerden bulabılırım yardım edebılırmısın..

alttaki 5.iconlu kısım derken?

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Ambalajtasarim.com.tr Ambalaj Tasarımı, Etiket Tasarımı Ve Koli Tasarım	ZeuS	Web Site Tanıtımı	0	22 Mayıs 2023 01:08
Ahsaar tasarımı güncellendi!	CeRoN	Sosyal Ağlardan Son Haberler	0	27 Nisan 2023 11:41
Ambalajtasarim.com.tr Kutu Ambalaj Tasarımı, Ürün Ambalaj Tasarımı, Etiket Tasarım	ZeuS	Web Site Tanıtımı	1	05 Nisan 2023 20:12
w11 Toolbar.	Rohit	mIRC Scripting Hazır Kodlar	2	31 Ekim 2009 22:20
Toolbar Tasarımı	Kurtuba	mIRC Scripting Sorunları	10	11 Eylül 2006 18:33

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.