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 Sorunu ! (https://www.ircforumlari.net/mirc-scripting-sorunlari/206210-toolbar-sorunu.html)

ŞaH 07 Mayıs 2009 01:15

Toolbar Sorunu !
 
Kod:

on *:dialog:tb:*:*: {
  if ($devent == init) {
    mdx MarkDialog $dname
    mdx SetColor $dname 1  background $rgb(0,128,255)
    mdx SetFont  1 -12 700  Arial
    mdx SetDialog $dname style
    mdx SetBorderStyle $dname 2 staticedge
    mdx SetBorderStyle 1
    mdx SetControlMDX $dname 1,3,6 Progressbar smooth > system\dll\ctl_gen.mdx
    mdx SetControlMDX $dname 1 ToolBar list flat wrap arrows nodivider > system\dll\bars.mdx
    mdx SetColor $dname 3,4 background $rgb(0,128,255)
    mdx SetColor $dname 3,4 textbg $rgb(0,128,255)
    mdx SetColor $dname 4  text $rgb(255,255,255) 
    mdx SetFont $dname 4 24  700 Arial
    dll system\dll\rebar.dll HideToolbar .
    dll system\dll\rebar.dll Dock $dialog(tb).hwnd > top
    did -i $dname 1 1 setscheme $rgb(0,128,255) $rgb(0,128,255)
    did -i $dname 1 1 bmpsize 32 32
    did -i $dname 1 1 setimage icon large $mircdirsystem\adon\icon\baglan.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\kopar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\ayarlar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\kanallar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\radyo.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\dizi.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\komutlar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\hizmet.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\oyun.ico

Arkadaşlar yukardaki toolbar kodunda toolbarın arka fonu mavi görünüyor ben buraya resim koymak istiyorum mümkünmü acaba mesela buraya $mircdirfon.fpg koymak istiyorum.

CesuryureK 07 Mayıs 2009 01:26

Cevap: Toolbar Sorunu !
 
bunun gerçekleşebilmesi için ancak bir dll ile desteklenmesi lazım..
bu dll ise, demid.dll dir.
demid.dll sayesinde toolbar arkaplanına resim koyabilirsin, bu dll ile desteklenen bir yol
SetBkImage komutu ile yerleştirebilirsin, lakin resmin uzantısı .png olmak zorunda.
-
diğer bir yol ise, icon kontrolü ile, resim koyabilirsin

tavsiyem ilk yol.

ŞaH 07 Mayıs 2009 11:12

Cevap: Toolbar Sorunu !
 
demid.dll yi nasıl yaparız .

CesuryureK 07 Mayıs 2009 11:35

Cevap: Toolbar Sorunu !
 
Demid.DLL Kullanımı Hakkında Açıklama


Bu DLL ne işe yarar?
Bu DLL, dialogunuza arka plan resmi koyan,başlık çubuğunu kaldıran ve başlık çubuğu

olmasa bile taşınmasını sağlayan,arka plan resminin belirli kısmını(detaylı bilgi için: SetDlgTransparent komutu)

transparan gösteren,"png" uzantılı bir dosyanın genişlik ve yüksekliğini veren bir dll.Kısacası dialog'larınıza skin özelliği

kazandırabileceğiniz bir dll.

Demid.DLL'yi ve tüm komutlarla ilgili örnek kodların yer aldığı dosyayı indirmek için [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Komutlar ve Kullanımları:
SetBkImage komutu:

Bu komut dialogunuza arka plan resmi koymanızı sağlar.Arka plan resminin uzantısı *.png olmalıdır.(Örn: bg.png)

Komutun Kullanımı: //echo -a $dll(demid.dll,SetBkImage, )

Kullanım Örneği: //echo -a $dll(demid.dll,SetBkImage,cool background.png)

Komutun kullanımı sonrasında alacağınız yanıtlar:

DATA_ERROR : Geçersiz parametre

IMAGE_NOT_LOAD: Resim yüklenemedi.(Yada geçersiz uzantı)

S_OK: Resim dialog'un arka plan resmi olarak sorunsuz bir şekilde atandı.
SetDlgTransparent komutu:

Bu komut,dialogunuzda kullanacağınız arka plan resminde $rgb(255,0,255) (Pembe) renginde çizilmiş kısımları transparan

gösterir.Unutmayınız ki dialogunuza atanacak arka plan resminin uzantısı "png" olmalıdır.(ss.png)

Komutun Kullanımı: //echo -a $dll(demid.dll,SetDlgTransparent, )

Kullanım Örneği: //echo -a $dll(demi.dll,SetDlgTransparent,cool background.png)

Komutun kullanımı sonrasında alacağınız yanıtlar:

DATA_ERROR : Geçersiz parametre

IMAGE_NOT_LOAD: Resim yüklenemedi.(Yada geçersiz uzantı)

S_OK: Arka plan resminin pembe renkte olan kısımları transparan yapıldı.
SetTopic komutu:

Bu komut dialogun başlık çubuğunu(titlebar'ını) kaldırır.

Komutun kullanımı: //echo -a $dll(demid.dll,SetTopic,)

Kullanım örneği: //echo -a $dll(demid.dll,SetTopic,cool)

Komutun kullanımı sonrasında alacağınız yanıtlar:

DATA_ERROR: Geçersiz paramatre

S_OK: Dialogun başlık çubuğu(titlebar) başarılı bir şekilde kaldırıldı.
SetClkMove komutu:

Bu komut dialogun titlebar olmasa bile mouse ile taşınmasını sağlar.

Komutun kullanımı: //echo -a $dll(demid.dll,SetClkMove,)

Kullanım Örneği: //echo -a $dll(demid.dll,SetClkMove,cool)

Komutun kullanımı sonrasında alacağınız yanıtlar:

DATA_ERROR: Geçersiz paramatre

S_OK: Komut başarılı bir şekilde uygulandı.
ImgSizeX komutu:

Bu komut dialog'a atanacak arka plan resminin "genişlik" değerini verir.

Komutun kullanımı: //echo -a $dll(demid.dll,ImgSizeX,background.png)

Örnek vermeye gerek yok yukardaki komutu uygulamanız yeterli.

Komutun kullanımı sonrasında alacağınız yanıtlar:

DATA_ERROR: Geçersiz paramatre

IMAGE_NOT_LOAD: Resim yüklenemedi.(Yada geçersiz uzantı)

Bunlar dışında sayısal bir değer alırsanız komut başarılı bir şekilde uygulanmış demektir.
ImgSizeY komutu:

Bu komut dialog'a atanacak arka plan resminin "yükseklik" değerini verir.

Komutun kullanımı: //echo -a $dll(demid.dll,ImgSizeY,background.png)

Örnek vermeye gerek yok yukardaki komutu uygulamanız yeterli.

Komutun kullanımı sonrasında alacağınız yanıtlar:

DATA_ERROR: Geçersiz paramatre

IMAGE_NOT_LOAD: Resim yüklenemedi.(Yada geçersiz uzantı)

Bunlar dışında sayısal bir değer alırsanız komut başarılı bir şekilde uygulanmış demektir.
_________________

Döküman SeRDaR406'ya Aittir. Teşekkürler.

ŞaH 07 Mayıs 2009 22:41

Cevap: Toolbar Sorunu !
 
Ya kardeş güzel bişeye benziyorda bunu toolbarda nasıl kullanacağız.

Bi yerden buldum indirdim dornek.mrc var onun içindeki kod
Kod:

dialog de {
  title "New Project"
  size -1 -1 $dll(demid.dll,ImgSizeX,background.png) $dll(demid.dll,ImgSizeY,background.png)
  option dbu
  button "Button", 1, 86 43 37 12, cancel hide
}
alias demid dialog -m de de
on *:dialog:de:init:*: {
  echo -a $dll(demid.dll,SetBkImage,de background.png)
  echo -a $dll(demid.dll,SetDlgTransparent,de background.png)
  echo -a $dll(demid.dll,SetTopic,de)
  echo -a $dll(demid.dll,SetClkMove,de)
}


Benim toolbarın kodu şu
Kod:

alias kontrol.tb {
  if (!$dialog(tb)) { halt }
  else {
    scid $activecid
    if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) {
      did -o tb 1 2 +a 2 Kopart
    }
    else {
      did -o tb 1 2 +a 1 Bağlan $chr(9) $+ Sohbete Bağlanmak için tıklayın
    }
  }
}
alias ttb dialog -m tb tb
dialog tb {
  title "x"
  size 0 0 1500 8
  option dbu
  list 1, 2 2 2978 25, size
}
on *:dialog:tb:*:*: {
  if ($devent == init) {
    mdx MarkDialog $dname
    mdx SetColor $dname 1  background $rgb(0,128,255)
    mdx SetFont  1 -12 700  Arial
    mdx SetDialog $dname style
    mdx SetBorderStyle $dname 2 staticedge
    mdx SetBorderStyle 1
    mdx SetControlMDX $dname 1,3,6 Progressbar smooth > system\dll\ctl_gen.mdx
    mdx SetControlMDX $dname 1 ToolBar list flat wrap arrows nodivider > system\dll\bars.mdx
    mdx SetColor $dname 3,4 background $rgb(0,128,255)
    mdx SetColor $dname 3,4 textbg $rgb(0,128,255)
    mdx SetColor $dname 4  text $rgb(255,255,255) 
    mdx SetFont $dname 4 24  700 Arial
    dll system\dll\rebar.dll HideToolbar .
    dll system\dll\rebar.dll Dock $dialog(tb).hwnd > top
    did -i $dname 1 1 setscheme $rgb(0,128,255) $rgb(0,128,255)
    did -i $dname 1 1 bmpsize 32 32
    did -i $dname 1 1 setimage icon large $mircdirsystem\adon\icon\baglan.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\kopar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\ayarlar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\kanallar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\radyo.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\dizi.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\komutlar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\hizmet.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\oyun.ico

    did -a $dname 1 +a -
    did -a $dname 1 +a -
    did -a $dname 1 +a 3 Ayarlar $chr(9) $+ Kanal Ayarlarını Açar.
    did -a $dname 1 +a -
    did -a $dname 1 +a 4 $chr(32) Kanallar $chr(9) $+ Kanallar ve Favoriler
    did -a $dname 1 +a -
    did -a $dname 1 +a 5 $chr(32) Radyo Dinle $chr(9) $+ SohbetideaL Fm`Le Müzik Keyfini Yaşayın.
    did -a $dname 1 +a -
    did -a $dname 1 +a 6 $chr(32) Dizi İzle $chr(9) $+ En Güncel Dizileri İzlemek İçin Tıklayın.
    did -a $dname 1 +a -
    did -a $dname 1 +a 7 $chr(32) Komutlar $chr(9) $+ Chanserv Komutlarını Açar.
    did -a $dname 1 +a -
    did -a $dname 1 +a 8 $chr(32) Hizmetler $chr(9) $+ MIrc Keyfinize Keyif Katın.
    did -a $dname 1 +a -
    did -a $dname 1 +a 9 $chr(32) Oyunlar $chr(9) $+ Oyunlar Menüsü
    kontrol.tb
  }
  if ($devent == sclick) {
    if $did == 1 {
      var %secenekler $did(1).sel
      if ($did($dname,1).sel = 2) {
        if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect }
        else {
          scid $activecid server irc.sohbetideal.com
        }
        kontrol.tb
        did -f $dname 1
        scid $activecid window -a "status window"
      }
      if (%secenekler == 4) { /AlpEroin2  }
      if (%secenekler == 6) { /kanallar }
      if (%secenekler == 8) { run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
      if (%secenekler == 10) { run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
      if (%secenekler == 12) { /komutlar }
      if (%secenekler == 14) { dialog -m interaktif interaktif }
      if (%secenekler == 16) { dialog -m oyun oyun }
    }
  }
}
on *:connect: { kontrol.tb }
;
on *:start: {
  dll system\dll\BASLIK.DLL SetMircTitle ~ ŞaH ~ SohbetideaL Script ®
  ttb
}
alias mdx_fullpath { return $+(",system\dll\mdx.dll,") }
alias mdx { dll $mdx_fullpath $1- }


Bu kodda nasıl kullanacağız dll yi mesela ben toolbarda arka planda xxx isimli remin olmasını istiyorum karıştırdım biraz ama bulamadım.

SeRDaR406 08 Mayıs 2009 01:03

Cevap: Toolbar Sorunu !
 
Kod:

alias kontrol.tb {
  if (!$dialog(tb)) { halt }
  else {
    scid $activecid
    if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) {
      did -o tb 1 2 +a 2 Kopart
    }
    else {
      did -o tb 1 2 +a 1 Bağlan $chr(9) $+ Sohbete Bağlanmak için tıklayın
    }
  }
}
alias ttb dialog -m tb tb
dialog tb {
  title "x"
  size 0 0 1500 8
  option dbu
  list 1, 2 2 2978 25, size
}
on *:dialog:tb:*:*: {
  if ($devent == init) {
    mdx MarkDialog $dname
    mdx SetColor $dname 1  background $rgb(0,128,255)
    mdx SetFont  1 -12 700  Arial
    mdx SetDialog $dname style
    mdx SetBorderStyle $dname 2 staticedge
    mdx SetBorderStyle 1
    mdx SetControlMDX $dname 1,3,6 Progressbar smooth > system\dll\ctl_gen.mdx
    mdx SetControlMDX $dname 1 ToolBar list flat wrap arrows nodivider > system\dll\bars.mdx
    mdx SetColor $dname 3,4 background $rgb(0,128,255)
    mdx SetColor $dname 3,4 textbg $rgb(0,128,255)
    mdx SetColor $dname 4  text $rgb(255,255,255) 
    mdx SetFont $dname 4 24  700 Arial
    dll system\dll\rebar.dll HideToolbar .
    dll system\dll\rebar.dll Dock $dialog(tb).hwnd > top
    did -i $dname 1 1 setscheme $rgb(0,128,255) $rgb(0,128,255)
    did -i $dname 1 1 bmpsize 32 32
    did -i $dname 1 1 setimage icon large $mircdirsystem\adon\icon\baglan.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\kopar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\ayarlar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\kanallar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\radyo.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\dizi.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\komutlar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\hizmet.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\oyun.ico

    did -a $dname 1 +a -
    did -a $dname 1 +a -
    did -a $dname 1 +a 3 Ayarlar $chr(9) $+ Kanal Ayarlarını Açar.
    did -a $dname 1 +a -
    did -a $dname 1 +a 4 $chr(32) Kanallar $chr(9) $+ Kanallar ve Favoriler
    did -a $dname 1 +a -
    did -a $dname 1 +a 5 $chr(32) Radyo Dinle $chr(9) $+ SohbetideaL Fm`Le Müzik Keyfini Yaşayın.
    did -a $dname 1 +a -
    did -a $dname 1 +a 6 $chr(32) Dizi İzle $chr(9) $+ En Güncel Dizileri İzlemek İçin Tıklayın.
    did -a $dname 1 +a -
    did -a $dname 1 +a 7 $chr(32) Komutlar $chr(9) $+ Chanserv Komutlarını Açar.
    did -a $dname 1 +a -
    did -a $dname 1 +a 8 $chr(32) Hizmetler $chr(9) $+ MIrc Keyfinize Keyif Katın.
    did -a $dname 1 +a -
    did -a $dname 1 +a 9 $chr(32) Oyunlar $chr(9) $+ Oyunlar Menüsü
    kontrol.tb
dll demid.dll SetBkImage $dname xxx.png
  }
  if ($devent == sclick) {
    if $did == 1 {
      var %secenekler $did(1).sel
      if ($did($dname,1).sel = 2) {
        if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect }
        else {
          scid $activecid server irc.sohbetideal.com
        }
        kontrol.tb
        did -f $dname 1
        scid $activecid window -a "status window"
      }
      if (%secenekler == 4) { /AlpEroin2  }
      if (%secenekler == 6) { /kanallar }
      if (%secenekler == 8) { run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
      if (%secenekler == 10) { run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
      if (%secenekler == 12) { /komutlar }
      if (%secenekler == 14) { dialog -m interaktif interaktif }
      if (%secenekler == 16) { dialog -m oyun oyun }
    }
  }
}
on *:connect: { kontrol.tb }
;
on *:start: {
  dll system\dll\BASLIK.DLL SetMircTitle ~ ŞaH ~ SohbetideaL Script ®
  ttb
}
alias mdx_fullpath { return $+(",system\dll\mdx.dll,") }
alias mdx { dll $mdx_fullpath $1- }


IrCbaStarD 08 Mayıs 2009 02:33

Cevap: Toolbar Sorunu !
 
Alıntı:

ŞaH Nickli Üyeden Alıntı (Mesaj 705318)
Kod:

on *:dialog:tb:*:*: {
  if ($devent == init) {
    mdx MarkDialog $dname
    mdx SetColor $dname 1  background $rgb(0,128,255)
    mdx SetFont  1 -12 700  Arial
    mdx SetDialog $dname style
    mdx SetBorderStyle $dname 2 staticedge
    mdx SetBorderStyle 1
    mdx SetControlMDX $dname 1,3,6 Progressbar smooth > system\dll\ctl_gen.mdx
    mdx SetControlMDX $dname 1 ToolBar list flat wrap arrows nodivider > system\dll\bars.mdx
    mdx SetColor $dname 3,4 background $rgb(0,128,255)
    mdx SetColor $dname 3,4 textbg $rgb(0,128,255)
    mdx SetColor $dname 4  text $rgb(255,255,255) 
    mdx SetFont $dname 4 24  700 Arial
    dll system\dll\rebar.dll HideToolbar .
    dll system\dll\rebar.dll Dock $dialog(tb).hwnd > top
    did -i $dname 1 1 setscheme $rgb(0,128,255) $rgb(0,128,255)
    did -i $dname 1 1 bmpsize 32 32
    did -i $dname 1 1 setimage icon large $mircdirsystem\adon\icon\baglan.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\kopar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\ayarlar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\kanallar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\radyo.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\dizi.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\komutlar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\hizmet.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\oyun.ico

Arkadaşlar yukardaki toolbar kodunda toolbarın arka fonu mavi görünüyor ben buraya resim koymak istiyorum mümkünmü acaba mesela buraya $mircdirfon.fpg koymak istiyorum.


Anladıgım kadarıyla butonların arka plan'ına resim koymak istiyorsun..
mdx dll'in böyle bi özelliği var zaten, dikkat etmen gereken resim dosya uzantısı bmp olmak zorunda yoksa sonuç alamazsın..

did -i $dname 1 1 setbkg tile dosya.bmp
(dosya.bmp yerine script'in hangi klasöründeyse resim onu ve uzantıyı yazıcaksın.)
Bu parametreyi init'e eklemek gerekiyor, kodlarının altına..

ŞaH 08 Mayıs 2009 10:53

Cevap: Toolbar Sorunu !
 
Eyvallah Arkadaşlar Çok Sağolun 1. Yi beceremedim Galiba Ama 2. Yol İşe Yaradı Peki Burda Buton Yazısının Rengini Değiştirme İmkanımız Varmı Sİyah Yerine Başka Renk Olsa.

IrCbaStarD 08 Mayıs 2009 12:25

Cevap: Toolbar Sorunu !
 
Alıntı:

ŞaH Nickli Üyeden Alıntı (Mesaj 706317)
Eyvallah Arkadaşlar Çok Sağolun 1. Yi beceremedim Galiba Ama 2. Yol İşe Yaradı Peki Burda Buton Yazısının Rengini Değiştirme İmkanımız Varmı Sİyah Yerine Başka Renk Olsa.

Mdx.dll'de malesef buton yazılarının renk'i değişmiyor..

ŞaH 08 Mayıs 2009 21:49

Cevap: Toolbar Sorunu !
 
Hmm peki teşekkürler herşey için.


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

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