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

KaLpServ · 25 Mart 2009, 20:31

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

 on *:start: { 
  dialog -ma toolbar toolbar
}
alias _mdx dll $shortfn(görünüm\dll\mdx.dll) $1-
alias mdx { return $dll(görünüm\DLL\mdx.dll,$1,$2-) }
alias Temabul { .comreg görünüm/dll/Tema.dll | .comopen toolbar Tema.buL | var %komut = $com(toolbar,TemaBul,1) | var %komut = $com(toolbar).result  | .comclose toolbar | .comreg -u görünüm/dll/Tema.dll | return %komut }
alias rebar { dll görünüm\DLL\rebar.dll $$1- }
alias bars { return görünüm\DLL\bars.mdx } 
alias rebar { dll görünüm\DLL\rebar.dll $$5- }
alias _mdxinit dll $shortfn(görünüm\dll\mdx.dll) SetMircVersion $version | dll $shortfn(görünüm\dll\mdx.dll) MarkDialog $dname
 
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,18,21)
  option dbu notheme notheme
  list 1, 0 4 274 17, size
  list 10, 350 8 270 12, 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,14 Turkish 14 900 Cyrillic
  mdx SetColor $dname 3 text $rgb(300,000,000)
  mdx SetFont $dname 3 +a 20 600 arial 78538585
  .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,10,4 ToolBar flat wrap arrows nodivider > $bars
  mdx SetBorderStyle 1,10
 
  did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(250,250,250)
  did -i $dname 1 1 bmpsize 30 30
  did -i $dname 1 1 setimage icon large görünüm\bin\1.bmp
  did -i $dname 1 1 setimage icon large görünüm\bin\1.bmp
  did -i $dname 1 1 setimage icon large görünüm\bin\1.bmp
  did -i $dname 1 1 setimage icon large görünüm\bin\1.bmp
  did -i $dname 1 1 setimage icon large görünüm\bin\1.bmp
  did -i $dname 1 1 setimage icon large görünüm\bin\1.bmp
  did -i $dname 1 1 setimage icon large görünüm\bin\1.bmp
  did -i $dname 1 1 setimage icon large görünüm\bin\1.bmp
  did -a $dname 1 +a -
  did -a $dname 1 +a 1 $chr(32) iRCe 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ı PaneLini açar
  did -a $dname 1 +a -
  did -a $dname 1 +a 4 $chr(32) Ayarlar  $chr(9) $+ korumalar Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 5 $chr(32) Radyo  $chr(9) $+ Radyo yayın akışını açar
  did -a $dname 1 +a -
  did -a $dname 1 +a 6 $chr(32) Winamp $chr(9) $+ Mp3 Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 7 $chr(32) Forum $chr(9) $+ Forum Açar
  did -a $dname 1 +a -
  did -a $dname 1 +a 7 $chr(32) Efeck   $chr(9) $+ away durumları
  did -a $dname 1 +a -
  did -a $dname 1 +a 7 $chr(32) Away $chr(9) $+ Girişleri açpı kapatır
  did -a $dname 1 +a -
}
on *:dialog:toolbar:*:*: {
  if $devent == sclick {
    if $did == 10 {
      if ($readini(dll\winamp.ini, winamp, enable)) {
        var %click $did($dname,10).sel
        if (%click == 3) {
          var %a $dll(dll\ctlamp.dll,Command,previous)
        }
      }
    }
    if $did == 10 {
      if ($readini(dll\winamp.ini, winamp, enable)) {
        var %click $did($dname,10).sel
        if (%click == 5) {
          var %a $dll(dll\ctlamp.dll,Command,title)
        }
      }
    }
    if $did == 10 {
      if ($readini(dll\winamp.ini, winamp, enable)) {
        var %click $did($dname,10).sel
        if (%click == 7) {
          var %a $dll(dll\ctlamp.dll,Command,pause)
        }
      }
    }
    if $did == 10 {
      if ($readini(dll\winamp.ini, winamp, enable)) {
        var %click $did($dname,10).sel
        if (%click == 9) {
          var %a $dll(dll\ctlamp.dll,Command,stop)
        }
      }
    }
    if $did == 10 {
      if ($readini(dll\winamp.ini, winamp, enable)) {
        var %click $did($dname,10).sel
        if (%click == 11) {
          var %a $dll(dll\ctlamp.dll,Command,next)
        }
      }
    }
    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) {
        cm2
      }
      if ($did($dname,1).sel = 7) {
        cm1
      }
      if ($did($dname,1).sel = 9) {
        Radyo
      }
      if ($did($dname,1).sel = 11) {
        .run Winamp.exe
      }
      if ($did($dname,1).sel = 13) {
        .run xxxxxxxxxxxxxxxxxxxxxxxxxxx
      }
      if ($did($dname,1).sel = 15) {
        efekt 
      }
      if ($did($dname,1).sel = 17) {
        dialog  -m aways aways 
      }
      if ($did($dname,1).sel = 19) {
        dialog  -m aways aways 
      }
      if ($did($dname,1).sel = 21) {
      }
    }
  }
}

iconlar error veriyor sebebi ne olabilir acaba ben yeni bşladım sorun ney bilmiyorum

bide ben bu iconları toolbarın ortasında yapmak istiyorum bunu nasıl yapacam yardım ederseniz sevinirim

Voltage · 25 Mart 2009, 21:24

arkadaşım iconların belirtilen klasörde olduğuna dikkat et.

did -i $dname 1 1 setimage icon large görünüm\bin\1.bmp

iconlar belirttiğim klasörde olacak.

2.ci sorunun cevabı ise.İconları toolbar'ın ortasında yer almasını istiyorsan.Kırmızı ile belirttiğim sayılarda oynama yapman lazım. 0 sayısı List kontrol'unun sağa veya sola ilerlemesini sağlar azaltırsa sola çoğaltırsan sağa doğru ilerler.4 ise aşağı veya yukarı ilerlemesini sağlar azaltırsan yukarı çoğaltırsan aşağı doğru kayar.bu söylediklerime göre bi ayarlama yapabilirsin.Yapamazsan sorununun bu başlık altında belirtirsin.İyi forumlar

dialog toolbar {
title "x"
size 0 0 550 $iif($temabul,18,21)
option dbu notheme notheme
list 1, 0 4 274 17, size
list 10, 350 8 270 12, size
text "", 2, 464 6 45 16, center
text "", 3, 467 10 39 11, center
}

tam1deLi · 02 Nisan 2009, 00:56

Scriptin Yan Tarafına nasıl koycaz bunu denedim oLmuor Benim Yukarıda var birde yan tarafta olmasını istiyorum servere girincede aktif olucak bişi

Voltage · 02 Nisan 2009, 11:38

on *:start: {
dialog -ma toolbar toolbar
}
kısmını aşağıdaki gibi değiştir

on *:connect: {
dialog -ma toolbar toolbar
}

yukardaki değişiklik servere bağlanınca toolbarın aktif olmasını sağlar.

toolbarın sol tarafta yer almasını istiyorsan.

rebar Dock $dialog(toolbar).hwnd > top

kırmızıyla belirttiğim yeri left olarak değiştir. right sağda bottom aşağıda yer almasını sağlar.

İyi forumlar.

tam1deLi · 02 Nisan 2009, 15:44

Teşekkürler Ama Böle deil irc'e girdiğimizde bu yukarıdaki Kısa yol menüleri haricinde mesela bir kanala girdik kanal sayfasının üst veya yan tarafında kücük butonlar oluşturmak istiyorum irc'in içinde yani kücük bişile r bi scripte görmüştüm ama unuttum adını

Editor · 02 Nisan 2009, 15:58

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

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 }
}
dialog toolbar {
  title "By uMuT"
  size 5 5 70 285
  option dbu
  box "Chanserv", 1, 3 3 67 150
  list 2, 7 12 60 14, size
  list 3, 7 29 60 14, size
  list 4, 7 46 60 14, size
  list 5, 7 63 60 14, size
  list 6, 7 81 60 14, size
  list 7, 7 98 60 14, size
  list 8, 7 115 60 14, size
  list 9, 7 133 60 14, size
  box "Ekle\Sil", 10, 3 155 67 120
  list 11, 7 163 60 14, size
  list 12, 7 181 60 14, size
  list 13, 7 200 60 14, size
  list 14, 7 218 60 14, size
  list 15, 7 237 60 14, size
  list 16, 8 256 60 14, size
}
on *:dialog:toolbar:init:0: {
  mdx MarkDialog $dname
  mdx SetDialog $dname style 
  mdx SetFont $dname 1 12 700 Verdana
  rebar HideToolbar .
  rebar Dock $dialog(toolbar).hwnd > left
  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,16 Toolbar flat wrap arrows nodivider list > $bars
  mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16 Progressbar smooth > $ctl
  mdx SetBorderStyle $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16
  mdx SetFont 1,2,3,4,5,6,7,8,9,11,12,13,14,15,16 -11 700 Tahoma
  mdx SetDialog [ $dname ] bgcolor $rgb(255,255,255)
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 background $rgb(255,255,255)
  did -i $dname 2 1 bmpsize 24 24
  did -i $dname 2 1 setimage icon large 0, $+ icon\a4.ico
  did -a $dname 2 +W 175 1    Op Ver
  did -i $dname 3 1 bmpsize 24 24
  did -i $dname 3 1 setimage icon large 0, $+ icon\a4.ico
  did -a $dname 3 +W 175 1    Deop Et
  did -i $dname 4 1 bmpsize 24 24
  did -i $dname 4 1 setimage icon large 0, $+ icon\a4.ico
  did -a $dname 4 +W 175 1    Voice Ver
  did -i $dname 5 1 bmpsize 24 24
  did -i $dname 5 1 setimage icon large 0, $+ icon\a4.ico
  did -a $dname 5 +W 175 1    Devoice Et
  did -i $dname 6 1 bmpsize 24 24
  did -i $dname 6 1 setimage icon large 0, $+ icon\a4.ico
  did -a $dname 6 +W 175 1    Ban+Kick
  did -i $dname 7 1 bmpsize 24 24
  did -i $dname 7 1 setimage icon large 0, $+ icon\a4.ico
  did -a $dname 7 +W 175 1    Sebebli Kick
  did -i $dname 8 1 bmpsize 24 24
  did -i $dname 8 1 setimage icon large 0, $+ icon\a4.ico
  did -a $dname 8 +W 175 1    Kanal Unban
  did -i $dname 9 1 bmpsize 24 24
  did -i $dname 9 1 setimage icon large 0, $+ icon\a4.ico
  did -a $dname 9 +W 175 1    Temizle Kanalı
  did -i $dname 11 1 bmpsize 24 24
  did -i $dname 11 1 setimage icon large 0, $+ icon\a4.ico
  did -a $dname 11 +W 175 1    Aop Ekle
  did -i $dname 12 1 bmpsize 24 24
  did -i $dname 12 1 setimage icon large 0, $+ icon\a4.ico
  did -a $dname 12 +W 175 1    Aop Sil 
  did -i $dname 13 1 bmpsize 24 24
  did -i $dname 13 1 setimage icon large 0, $+ icon\a4.ico
  did -a $dname 13 +W 175 1    Uop Ekle
  did -i $dname 14 1 bmpsize 24 24
  did -i $dname 14 1 setimage icon large 0, $+ icon\a4.ico
  did -a $dname 14 +W 175 1    Uop Sil
  did -i $dname 15 1 bmpsize 24 24
  did -i $dname 15 1 setimage icon large 0, $+ icon\a4.ico
  did -a $dname 15 +W 175 1    Akick Ekle
  did -i $dname 16 1 bmpsize 24 24
  did -i $dname 16 1 setimage icon large 0, $+ icon\a4.ico
  did -a $dname 16 +W 175 1    Akick Sil
}
on *:dialog:toolbar:sclick:*: {
  if $did == 2 { mode $active +o $snick($active,1) }
  if $did == 3 { mode $active -o $snick($active,1) }
  if $did == 4 { mode $active +v $snick($active,1) } 
  if $did == 5 { mode $active -v $snick($active,1) }
  if $did == 6 { ban $snick($active,1) | /kick # $snick($active,1) 1Hadi gülüm yandan yandann yandannnnnn.... :)2 $time %logo }
  if $did == 7 { kick $active $snick($active,1) 0,5 $$?="Sebeb?" }
  if $did == 8 { banac $active }
  if $did == 9 { timer 0 40 /msg $active - } 
  if $did == 11 { cs aop $active add $snick($active,1) }
  if $did == 12 { cs aop $active del $snick($active,1) }
  if $did == 13 { cs uop $active add $snick($active,1) }
  if $did == 14 { cs uop $active del $snick($active,1) }
  if $did == 15 { cs akick $active add $$?"nick!*@* veya *!*@Ip.* Şeklinde Yazın" }
  if $did == 16 { cs akick $active del $$? }
}
alias mdx { return $dll(DLL\mdx.dll,$1,$2-) }
alias mdxdll { return $dll(DLL\mdx.dll,$1,$2-) }
alias rebar { dll DLL\rebar.dll $$1- }
alias bars { return DLL\bars.mdx }

Umut / med-cezir tarafından yapılmış bir toolbar.
Sol tarafta kullanışlı bir toolbar.

Voltage · 02 Nisan 2009, 16:29

Eğer şöyle bi şey diyarsan buyur download link'i aşağıda.Aliasları kendin ayarlarsın.Toolbar'ı mirc'ine yüklemek için Rar'lı dosyanın içindeki dosyaların hepsini mIRC ana klasörüne çıkar /load -rs tr.txt yapman yeterli.İyi forumlar.

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

Download : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

SaGoPa-mİRCKanKa özür dilerim ustam ben konuyu cevaplarken sizde cevaplamışsınız.Neyse benimkide başka bir seçenek daha olur. İyi forumlar ustam
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

tam1deLi · 02 Nisan 2009, 19:38

Oldu Ama büyük oLdu biraz Bunu Nasıl küçültücem birde sağa sola nasıl ayarlıcam hangi tarafta güzel durursa orda kalması için birde en aşağı kadar bi beyazlık var oda girişte yazıların okunmasını engelliyo:s
Voltage Senin verdiğinde cok güzel ama Cakışıyor birbrine giriyor benim yukarıdakilerle :S

Voltage · 02 Nisan 2009, 22:35

Öncelikle en baş sayfadaki McKruger ustanın verdiği toolbar kodlarını al.Ben onda denedim hiç bir sorun vermedi.

dialog toolbar {
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
text "", 2, 464 6 45 16, center
text "", 3, 467 10 39 11, center
}

kırmızıyla belirttiğim kısmı 1400 10 diye değiştir.

ekran görüntüsü aşağıda. Benim verdiğim toolbarın kodlarında aşağıdaki kısmı bul.

rebar Dock $dialog(tb).hwnd > left

kırmızıyla belirttiğim kısım toolbar'ın solda yer almasını sağlar.Eğer right yazarsan sağda yer alır.İyi forumlar.

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

tam1deLi · 04 Nisan 2009, 11:30

Peki bu Panel İçinde panel nasıL açtırırım Mesela yukarda Kontrol Panele Tıkladım Onun İçinde farklı farklı dialoglar acılıyor'ya x y z gibi misalen Bunu nasıl yapıors acaba yada bir paneLin içine bir cok dailogu nasıl eklicez

Birde Şu var 2 tane ayrı tolbar var ikiside calışıyor ama sağ tuş filan yapınca script oynuyor hoş bi görüntü olmuyor hani pc ye yenile yapılır haraket eder ya dosyalar bundada aynı öle yenile der gibi oynuo bişiye basınca

1. tolbardan örnek

dialog tr {
title "x"
size -1 -1 14 440
option dbu
list 1, 0 0 19 380, size
}

on *:dialog:tr:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetFont $dname 1,14 Turkish 14 900 Cyrillic
mdx SetColor $dname 3 text $rgb(300,000,000)
mdx SetFont $dname 3 +a 20 600 arial 78538585
rebar HideToolbar
rebar Dock $dialog(tr).hwnd > right
mdx SetControlMDX $dname 1 Progressbar > $ctl
mdx SetControlMDX $dname 1 ToolBar wrap nodivider > $bars
mdx SetBorderStyle 1
did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(250,250,250)
did -i $dname 1 1 bmpsize 32 32

2.ciden örnek

dialog cp {
title "x"
size 0 0 1400 22
option dbu
list 1, 2 2 2978 25, size
}

on *:dialog:cp:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetBorderStyle $dname 2 staticedge
rebar HideToolbar .
rebar Dock $dialog(cp).hwnd > top
mdx SetControlMDX $dname 1,3,6 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1 ToolBar list flat wrap arrows nodivider > $bars
mdx SetBorderStyle 1
kalin 1 13
did -i $dname 1 1 semadheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 1 1 bmpsize 32 32

Nerelerini değişmem lazım düzelmesi için :s

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 3 Üye okuyor. (0 Kayıtlı üye ve 3 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.