Mesaj Önizleme 
 
Konuyu Değerlendir
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5
Toolbar Tasarımı
05-06-2007, 11:15 PM (En son düzenleme: 02-02-2009 03:00 AM McKruGer.)
Mesaj: #1
Toolbar Tasarımı
Bu Ders 10 Haziran itibariyle güncellendi.


Güncellemede yaplanlar:

1- Toolbar görünüm olarak daha profesyonel hale getirildi.
2- Toolbar'a saat kodu yerletirildi.
3- Ders daha sadece, anlalr ve ayrntl hale getirildi.
4- Windows Xp ile Windows Klasik Temalardaki uyumsuzluk Tema.dll ile giderildi. (Bu özellii ile Dünyada ilk ve tek)
5- 11 Tane con dosyas eklendi.


Toolbar Nedir? Ve nasl Yaplr ?

Toolbar aslnda bir diyalogtur. Toolbar yapmnn mant ise udur; Öncelikle  normal bir diyalog oluturuyoruz, daha sonra bu diyalogumuzun üzerine mdx, rebar.dll , bar.dll ile baz eyler ekleriz. Yani Biz ona, bu dll dosyalaryla ekil veriyoruz. Bu ekil vermede diyaloga icon ve yaz ekliyoruz, diyaloga renk veriyoruz. Yani diyalogumuzu ister mavi, ister gri, ister siyah, ister beyaz yapyoruz.

Toolbar oluturmak için 4 dll dosyasndan faydalanyoruz. Bunlar MDX, rebar.dll, bar.dll ve Tema.dll dosyalardr.



1.Aama- Dll Dosyalarnn ndirilmesi


Burada MDX.dll, rebar.dll, bars.dll  ve Tema.dll dll klasörünün içindedir. Bu dll dosyalarn aadaki linkten indirebilirsiniz. ( Yani Toolbar yapabilmemiz için bize lazm olan dll dosyalar diyelim buna. )

http://www.irchelper.net/dosyalar/toolbar/dll.zip




2.Aama-con dosyalarnn indirilmesi ve hazrlanmas

Toolbar oluturmak için elimizde baz iconlarn olmas gerekir. Vereceim linkteki iconlar toolbar kodunda kullanlan 11 icon'dur. Kod buna göre hazrlanmtr. simlerde ona göre belirlenmitir.

http://www.irchelper.net/dosyalar/toolbar/icon.zip


Eer farkl icon kullanmak istiyorsanz, u adresten bedava icon indirebilirsiniz.

http://www.iconempire.com/iconlibs.htm

veya http://www.google.com.tr adresine girip, Aranacak kelimeye icon yazyoruz ve arattryoruz ve göreceksiniz ki internette bir sürü icon dosyalar mevcuttur.




3.Aama - Toolbar Kodununun hazrlanmas

Bu Kodu  alt+r ye baslp açlan Remote penceresinde bo bir sayfaya yerletiriyorsunuz.

Not: Bu toolbar Windows 1024/768 Ekran çözünürlüüne göre ayarlanmtr.


Kod:
on *:start: { 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) Balanty Kes $chr(9) $+ IRC Serverle Balantnz Koparr.
    }
    else {
      did -o toolbar 1 3 +a 1 $chr(32) Servere Balan $chr(9) $+ IRC Servere Balant Kurar.
    }
  }
}


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

}

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\yardm.ico
  did -a $dname 1 +a -
  did -a $dname 1 +a 1  $chr(32) Server Balan $chr(9) $+ IRC Servere Balant Kurar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 3  $chr(32) Balant $chr(9) $+ Balant Ayarlarn 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 Kiisel 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 Oyunlaryla lgili Diyalogu Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 10 $chr(32) Internet $chr(9) $+ Internet Adreslerinin Olduu Diyalogu Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 11 $chr(32) Yardm $chr(9) $+ Scriptinizin Yardm Dosyasn 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

      }
    }
  }
}


Kod sonucu oluan, Toolbar'n Resimi  ise ite karnzda :

[Resim: toolbar.PNG]




Bu ilemleri tamamlaynca toolbarnz artk hazr! imdi gelelim Kodun srayla açklanmasna...



4 - a - Aama - Kodun Açklanmas - 1.Bölüm - Diyalogun (Toolbarn ) Oluturulmas ve diyalogun ayarlar

on *:start: { dialog -m toolbar toolbar }

        Bu Komut ; Script açld zaman toolbar diyalogumuzun açk olmasn salar. Yani bu komutla biz toolbarmz scriptimize yükleriz. Eer bu komut olmassa toolbar'mz oluturamayz. Yan scriptimiz açld zaman, yaptmz toolbarmz açlmaz, Baka bir deyile çalmaz.

  Scriptimiz için oluturduumuz toolbar; bu diyalog'tur . O yüzden bu diyalog açlmassa toolbarda kesin kez çalmaz.


on *:connect: {
  update.toolbar
  }


  Bu Komut ; Scriptiniz bir servere baland zaman ( yani connect olduu zaman ) Toolbarnzn yüklenmesini salar. Bunu update komutu ile yapar. Yani servere balandnz zaman toolbarnz aktifleir.

  on *:disconnect: {
    update.toolbar
    }


    Bu Komut ; Scriptiniz bal olduunuz serverden dütüü zaman ( yani disconnect olduu zaman ) toolbarn aktif kalmasn salar. Yani serverden düseniz bile toolbarnz hala çalyor olacaktr. Bunuda update komutu ile yapar.

    on *:close:*: {
      update.toolbar
      }


      Bu Komut ; Scriptinizde herhangi bir kanal , özel penceresinin kapanmas durumunda, toolbarn aktif olarak kalmasn salar.

alias saat { if ($dialog(toolbar)) { did -a toolbar $1 $time } }

      Bu Kod ; scriptinizin köesinde saatin aktif olmasn salayan koddur. Bilgisayarnzda ayarl olan saat Toolbarn sa köesinde gösterilir.
         

        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) Balanty Kes $chr(9) $+ IRC Serverle Balantnz Koparr.
    }
    else {
      did -o toolbar 1 3 +a 1 $chr(32) Servere Balan $chr(9) $+ IRC Servere Balant Kurar.
    }
  }
}


          Bu Komut Toolbar dosyamzn ilk ksm kodudur. lk iconumuz olan Server balanma yerinin/iconun çalmasn salayan bölümdür. Burada 2 icon kullanyoruz. Servere balan dediimizde yeil icon, Balanty kes dediimizde ise Krmz icon o an aktifdir. Yani tek menüde 2 icon vardr. Fakat conlar yaplan ileme göre aktifleir. Balan dediinde farkl icon aktifleir. Balanty kes dediin zaman farkl icon ayn yerde aktifleir.

          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

}


            te En önemli yer. Bu Toolbarmz oluturan diyalogumuzdur. En bataki açklamada dediim gibi Toolbar aslnda bir diyalogtur. te diyalogumuz bu Kod'tur.

            Bu diyalogun ne olduunu açklayalm.
            Diyalogumuzda iki tane "list" vardr. Yani iki tane dialog vardr. Bu 2 diyalog birletirilmitir.
         
          size 0 0 550 $iif($temabul,14,17)
         
            lk bataki  0 rakam: Diyalogumuzun en solda olmasn salar. Yani Mirc'in tam olarak ilk solda olmasn salar. 
            kinci 0 rakam: Diyalogumuzun aa-yukar pozisyonudur. Diyalogumuz Toolbar yerinde tam olarak en yukardan balamasn salar.
            Üçüncü 550 rakam: ise Diyalogumuzun uzunluudur.
            Dördüncü saylar olan  14,17 saylar : ise Diyalogumuzun geniliidir.
             
            Burada Neden 2 tane diyalog geniliini belirten say vardr?
Çünkü Windows Xp ve Windows Klasik Temalarnda ayr ayr uzunluk birimleri oluur. [COLOR="Red"]Cappystarj0e [/COLOR]arkadamz saolsun bu sorunu Tema.dll adl bir dll yazarak çözmütür. Önceki diyalogumuzda tek genilik says verebiliyorduk. Windows klasik temada iken sorunsuz olan o say Windows Xp Temasnda genilik bakmndan sorunlu olmaktadr. te orada 2 say hem windows klasik tema hem de Windows Xp temas için ayr ayr belirlenmi 2 genilik birimidir.

14 Says: Windows Xp Temas için belirleyeceimiz say
17 Says: Windows Klasik tema için belirleyeceimiz say

( Bu bakmndan dünyada ilk ve tektir. Cappystarj0e saolsun bu konuda yardm etti. )
           

            Not : Diyalogumuzun  geniliini belirten 14,17 saylarn  aralarnda 3 fark olmak kouluyla deitirebilirsiniz.

            Diyalogumuzun dier saylaryla ilgli ayarlamalar toolbarmzn ho gözükmemesine neden olur. ; 
            Mesela Windows Klasik Temas için olan 17 saysn 8 yaparsak bakn ne görüntü karmza çkyor. Bu görüntüde gördüünüz gibi Yazlar gözükmemeye balyor.

            [Resim: toolbar2.PNG]


            Siz görüntünün daha nazik gözükmesi adna, toolbarnzn küçük olmasn istiyorsunuz ,bu nedenle 17 saysn (Windows Klasik Temaya göre olan genilik says) , 14 yapmak istiyorsunuz. ( yani Diyalogun geniliini 14 yapmak istiyorsunuz) O zaman baka bir kaç ayar da deimek gerekir. Bu ayarlarlar ile sorunun üstesinden gelebiliriz. Bu ayarlar ise unlardr:
         
          lk olarak Windows Klasik Temaya göre olan 17 saysn 14 yapacaksak Windows Xp ye göre olan genilii hemen 14 den 11'e indirioyuruz.
         
            size 0 0 550 $iif($temabul,14,17) olan satr
            size 0 0 550 $iif($temabul,11,14) satr ile yer deitiriyoruz.
         

            Bir sonraki aamada;
            mdx SetFont $dname  1 Turkish 14 800 Cyrillic olan satr
            mdx SetFont $dname  1 Turkish 11 800 arial satr ile deitiriyoruz.

            daha sonraki aamada ise;
            did -i $dname 1 1 bmpsize 27 27 olan satr
            did -i $dname 1 1 bmpsize 22 22  satr ile deitiriyoruz.
           
          En son aamada ise görüntü kirlilii olmamas adna saat yazsnn boyutunuda küçültmemiz gerekiyor:
            mdx SetFont $dname 3 +a 20 600 arial olan satr
            mdx SetFont $dname 3 +a 16 600 arial satr ile yer deitiriyoruz


            Daha sonra karmza çkan görüntü ise u olur.

            [Resim: toolbar3.PNG]


            Windows Klasik Temaya göre belirlenen 17 genilik Saysn, 14 deilde 21 yaparsak karmza çkan görüntüde aadaki resimdeki gibi olur.. Görüntü de gördüünüz gibi Diyalog, Toolbarn renginin dna sçryor. 

            [Resim: toolbar4.PNG]


            Diyorsaniz ki conlarm ve yazlarm daha büyük olsun, Ona göre de baz deiiklikler yapmak gereklidir. Tpk,  hemen yukardaki 17 saysn  14 veya 21 yapmak istediimiz zaman, yaptmz deiiklikleri bunda da aynen uyguluyoruz ve gene ayn satrlar da deiikleri yapyoruz. Bu Ayarlar ise unlardr :

lk olarak Windows Klasik Temaya göre olan 17 saysn 21 yapacaksak Windows Xp ye göre olan genilii hemen 14 den 18'e çkaryoruz.
         
            size 0 0 550 $iif($temabul,14,17) olan satr
            size 0 0 550 $iif($temabul,18,21) satr ile yer deitiriyoruz.

            Bir sonraki aamada;
            mdx SetFont $dname  1 Turkish 14 800 Cyrillic olan satr
            mdx SetFont $dname  1 Turkish 15 800 arial satr ile deitiriyoruz.

            Daha sonraki aamada ise:
            did -i $dname 1 1 bmpsize 27 27 olan satr
            did -i $dname 1 1 bmpsize 35 35  satr ile deitiriyoruz.

  En son aamada ise görüntü kirlilii olmamas adna saat yazsnn boyutunuda küçültmemiz gerekiyor:

            mdx SetFont $dname 3 +a 20 600 arial olan satr
            mdx SetFont $dname 3 +a 22 700 arial satr ile yer deitiriyoruz


            Daha sonra karmza çkan görüntü ise u olur.

            [Resim: toolbar5.PNG]


Bizim Toolbarmzda (Diyalogumuda) Artk 2 diyalog vardr. Birbirine geçmitir. Neden böyle bir yöntem kullandk? Çünkü öncesinde toolbarmzn üstmenübarla birlemesi için  yükseklik satrnda (2.ci saydr bu, krmz olan ) -2 veya -3 ile belirtmitik. Bu seferde iconlar üstmenubara biraz yapk gözükür olmutu. Görsellik adna daha güzel bir toolbar için 2 diyalog kullanarak bunun üstesinden gelebiliriz. 2 diyalog kullanarak iconlarmzda üstmenubarla birleik ve çok yakn durumda olmaz. Bahsettiim satrlar unlardr:

list 4, 0 -2 550 17, size
  list 1, 0 4 550 17, size


Bu satrlardan birini kaldrp eski dersimde göstermi olduum toolbar tarzndaki gibi tek diyalog kullanrsak karmza u tablo çkar :

            [Resim: toolbar6.PNG]


ve dier asl kodumuzdaki resimle beraber karlatrlalm bunu..

            [Resim: toolbar.PNG]


  text "", 2, 464 6 45 16, center
      text "", 3, 467 10 39 11, center
  satrlar ise saatimiz ile ilgili kod satrlardr.

ölümü özlemeyen gerçek a$k anlayamaz...
Kullanıcının websitesini ziyaret et Bu kullanıcının gönderdiği tüm mesajları bul
Bu mesajı bir cevapta alıntı yap
07-20-2007, 12:52 AM (En son düzenleme: 02-17-2008 07:50 PM McKruGer.)
Mesaj: #2
Ynt: Toolbar Tasarm
4 - b - Aama - Kodun Açklanmas - 2.Bölüm - Diyalogun ( Toolbarn ) MDX , Rebar.dll ve Bar.dll ile ekillendirilmesi/Komutlandrlmas

              Evet diyalogumuzu oluturduk. Sra Diyalogumuzu kullanarak Toolbarmz oluturma da.. Biz Diyalogumuzu kullanarak nasl Toolbar hazrlarz? Tabiki MDX ile diyalogumuza ekil vererek hazrlarz. MDX ile Diyalogumuza icon koyabiliriz ve iconunun yanna da  yaz ekleyebiliriz. unu asla unutmamak gerekir; Toolbar aslnda basit bir mdx diyalogudur.

              MDX ile diyalogumuza ekil verirken, rebar ve bar.dll ile diyalogumuzun yerini ve dier ekil ayarlarn oluturmada yardm alyoruz... te bu Ayarlamalar Kodun u ksmlardr:

            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


                Bu Koddaki baz gerekli yerleri de hemen açklayalm...

                on *:dialog:[b]toolbar:init:0: { [/b]

                Bu satr deiiklileri gerçekletirmek istediimiz Diyalogun adn belirtiyoruz. Diyalogumuzun ad Toolbar olduu için orada toolbar diye belirtmi olduk..

                  mdx SetFont $dname  1 Turkish 14 800 Cyrillic

                  Buradaki satrdaki komutlar unlar ifade eder. Setfont komutu diyalogumuzda yer alan yazlarn ( yani textlerin ) fontunu deitirir. lk olarak id numarasn yazyoruz 1 diye,  daha sonra fontun dilini seçiyoruz.


                  Font dil listesi:

                  ANSI Symbol ShiftJIS Hangul GB2312
                  ChineseBig5 OEM Johab Hebrew Arabic
                  Greek Turkish Vietnamese Thai EastEurope
                  Russian Mac Baltic default unknown

                  +i ( italik yazar yani yana doru yazar ) +u ( alt çizili yazar ) +b ( bold-kaln yazar )

                  +i, +u , +b yi nasl kullanrz derseniz :

                  mdx SetFont $dname  1 +i Turkish 14 800 Cyrillic

                  14  saysda  font büyüklüünü ifade eder.  800 says ise, fontu geniletme de ve büyütme de kullanlr. Ayrca Say arttkça yaz, daha da kaln ( bold ) hale gelir.

                  Son olarak Cyrillic ne anlama ifade eder. Cyrillic Toolbarda kullandmz font tipidir ( yani Yaz tipidir.) Mesela baka font tipine örnek vereceksek olursak; Ms serif , time news roman vs..

                  mdx SetFont $dname  1 Turkish 14 800 Cyrillic Biz Normal Kodumuzda kullandmz Bu satrn sonucu, yazlar toolbarda  u ekilde gözükür:

                  [Resim: toolbar.PNG]




                  Bu satrda biz yaz büyüklüünü, 14 ten 17 e çkarp komutu
                  mdx SetFont $dname  1 Turkish 17 800 arial  eklinde yaparsak karmza çkan görüntü ise u olur:


                  [Resim: toolbar7.PNG]


Görüntüde gözüktüü gibi Listemizde kullanlan yaz büyüklüünü büyüttüümüz zaman görüntü baya bozulur. yanlamasna yazlar iyice köeye yanayoruz. Eer yazlarmzn Bu boyutta olmasn istiyorsak öncelikle oradaki bölümlerden en az 2 sini kaldrmamz gerekir. Bu ilemde örnek olarak, ben Görünümler ile Oyunlar bölümünü kaldrdm. O yerleri oluturan satrlar silince kod öyle oldu:

Kod:
on *:start: { 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) Balanty Kes $chr(9) $+ IRC Serverle Balantnz Koparr.
    }
    else {
      did -o toolbar 1 3 +a 1 $chr(32) Servere Balan $chr(9) $+ IRC Servere Balant Kurar.
    }
  }
}


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

}

on *:dialog:toolbar:init:0: {
   mdx MarkDialog $dname
  mdx SetDialog $dname style
  mdx SetFont $dname 1 Turkish 17 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\internet.ico
  did -i $dname 1 1 setimage icon large icon\yardm.ico
  did -a $dname 1 +a -
  did -a $dname 1 +a 1 $chr(32) Server Balan $chr(9) $+ IRC Servere Balant Kurar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 3 $chr(32) Balant $chr(9) $+ Balant Ayarlarn 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 Kiisel 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) Oyunlar $chr(9) $+ Scriptinizin Oyunlaryla lgili Diyalogu Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 8 $chr(32) Internet $chr(9) $+ Internet Adreslerinin Olduu Diyalogu Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 9 $chr(32) Yardm $chr(9) $+ Scriptinizin Yardm Dosyasn 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) {
        linternet
      }
      if ($did($dname,1).sel = 17) {
        yardim
      }
    }
  }

O bölümler Kaldrrldktan sonra oluan görüntüu ekilde olur:

[Resim: toolbar8.PNG]


                  mdx SetColor $dname 1,2,3,4 background $rgb(113,188,255)

                  Bu Satr ise Diyalogumuzun ve Saatimizin Arka plan rengini belirler.  Bunu Setcolor komutu ile salyoruz. Hatrlayalm ki diyalogumuz 2 diyalogun birlemesiyle oluuyor ve bu 2 diyalogumuza birde saat kodlar yerletirdik. 
                     
                      Diyalogumuzu (Toolbarmz) oluturan komutlar :
                      list 4, 0 -2 550 17, size
                      list 1, 0 4 550 17, size 

                   
Saatimizi oluturan komutlar ise:
text "", 2, 464 6 45 16, center
  text "", 3, 467 10 39 11, center


                  Burada diyalogun d numaralar 1 ve 4 dür. Saatin id numaralar 2 ve 3'tür. O yüzden Setcolor komutunu kullanrken  MDX Setcolor $dname  satrnda 1,2,3,4  saylarn belirtmemiz gerekir. Unutmayn buradaki 1 ve 4 diyalogumuzun id numaralar, 2 ve 3 saat id numaralardr.

                  Background  yazs ise  Diyalogumuzu ve saatimizi renklendirmek için kullanlan komuttur. Background'un türkçesi zaten Arka plan demektir. Bizde ite diyalogumuzun ( Yani Toolbarmzn ) ve saatimizin arka plan rengini deitiriyoruz.

Koddaki $rgb(113,188,255) yeri ise; diyalogumuzun renk kodudur. Bu renk Kodu mavi rengidir. Daha da net ifadeyle Mavi renginin bir tonudur ...

                  mdx SetColor $dname 1,2,3,4 background $rgb(113,188,255)  Bu Satrn renk görüntüsü; mavimsi arka plan renginden oluan toolbarmz ite karnzda ;

                  [Resim: toolbar.PNG]


                  Burada Toolbarmzn rengini deitirmek istiyorsak  Bu saylar (113,188,255) deitireceiz. Fakat bunu yaparken ayrca saat kodlarmzda yer alan yazlarnda arka plan rengini deitirmemiz gerekir.

Mesela arka plan rengimizin beyaz olmasn istiyoruz o zaman önce:

mdx SetColor $dname 1,2,3,4 background $rgb(113,188,255) satr
mdx SetColor $dname 1,2,3,4 background $rgb(255,255,255) eklinde edeceiz.

Saat bölümünde yer alan yazlarn arka plan rengini deitirmek içinde:
mdx SetColor $dname 2,3 textbg $rgb(113,188,255) satr
mdx SetColor $dname 2,3 textbg $rgb(255,255,255) eklinde çevireceiz.
                 
Bu satr sonucu oluan beyaz görünümlü toolbarmz ite karnzda ;

                  [Resim: toolbar9.PNG]


                  Yani o saylarla oynayarak renkleri ayarlarz. Bunlarn saylarn biraz düürerek veya arttrarak tonlarn ayarlarz. 


                  RGB Renk Kodlarna Örnek :

                  (0,0,0) bu diyalogu siyah yapar.
                  (255,255,255)  beyaz yapar.
                  (255,0,0)  krmz yapar.
                  (010,120,240) sar yapar.
                  (255,255,0) mavi yapar.


mdx SetColor $dname 3 text $rgb(0,0,0) satr diyalogumuzda yer alan saat yazsnn rengini belirler... Burada biz (0,0,0) rgb renk kodlaryla Siyah yaptk. Yani Diyalogumuzda saatimiz siyah yaz ile gözükmektedir. Renklere örnek hemen üstte verdim...

mdx SetFont $dname 3 +a 20 600 arial satr diyalogumuzdaki saat yazsnn boyutunu (büyüklüünü) belirler.
mdx SetFont $dname  SetFont diyalogumuzda yer alan saatin fontunu deitirmek için kullanlan komut.
3 diyalogumuzda yer alan saatin hangi id numarasna sahip olduunu belirtir.
20 yeri yaznn font büyüklüünü belirler.
600 yaznn geniliini belirler.
arial yaznn tipini belirleri. Yukarda hangi yaz tiplerini kullanabileceimizin listesini vermitim.

.timersaat 0 1 saat 3   satr mircin açld zaman saatin toolbarda ne zaman aktif olacan timer komutu ile belirler.             

                  rebar HideToolbar .
                  rebar Dock $dialog(toolbar).hwnd > top


                  Bu Satrlar Diyalogumuzun Toolbarda rebar.dll kullanlarak üsttemi, alttam, sadam, soldam yer almasn salar.  Bu satrda kullanlan top ifadesi toolbarn üstte yer almasn salar.
             
            Top: Üstte
            Bottom: Altta

Yani Diyalogumuzun altta yer almasn istiyorsak :

rebar Dock $dialog(toolbar).hwnd > top satrn
rebar Dock $dialog(toolbar).hwnd > bottom satr ile yer deitiriyoruz.


ve karmza çkan görüntü u olur:
                 
[Resim: toolbar10.PNG]
                 

                  mdx SetControlMDX $dname 1,3,4 Progressbar smooth > $ctl
                  mdx SetControlMDX $dname 1,4 ToolBar flat wrap arrows nodivider > $bars


                  Bu Satrlar Diyalogumuzun dier ekil ayarlardr.

                  mdx SetBorderStyle 1

                  Satr ise diyalogumuzun diyalog tipidir diyelim veya diyalog stilidir diyelim.. Buna diyalog ana ekli de diyebilirsiniz..

ölümü özlemeyen gerçek a$k anlayamaz...
Kullanıcının websitesini ziyaret et Bu kullanıcının gönderdiği tüm mesajları bul
Bu mesajı bir cevapta alıntı yap
07-20-2007, 12:55 AM (En son düzenleme: 02-17-2008 07:51 PM McKruGer.)
Mesaj: #3
Ynt: Toolbar Tasarm
  4 - c - Aama - Kodun Açklanmas - 3.Bölüm - Diyalog'a ( Toolbara ) conlarn ve yazlarn yerletirilmesi

                  Aadaki iconlatrma satrlarnda elimde olan iconlarn adn ben daha düzenli olsun diye baglan.ico, kes.ico  vs.. yaptim ki toolbara yerletirirken sray kartrmayaym...

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\yardm.ico
did -a $dname 1 +a -
did -a $dname 1 +a 1 $chr(32) Server Balan $chr(9) $+ IRC Servere Balant Kurar.
did -a $dname 1 +a -
did -a $dname 1 +a 3 $chr(32) Balant $chr(9) $+ Balant Ayarlarn 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 Kiisel 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 Oyunlaryla lgili Diyalogu Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 10 $chr(32) Internet $chr(9) $+ Internet Adreslerinin Olduu Diyalogu Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 11 $chr(32) Yardm $chr(9) $+ Scriptinizin Yardm Dosyasn Açar.
did -a $dname 1 +a -
} [/b]

                  Bu Kodun açklanmasna geçersek :

                  did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163) 

                  Bu Satr Toolbarmzda yer alan bölümlerin ayr ayr belirtilmesini yan çizgi çizerek belirtir.  Biz bu çizginin rengini de $rgb(163,163,163) ile gri yapiyoruz.

                  did -i $dname 1 1 bmpsize 27 27

                  Bu Satr conlarmzn büyüklüünü belirtir. Bununla iconlarmz büyütürüz.

                  Bu Satr Sonucu oluan görüntü ite karnzda:

                  [Resim: toolbar.PNG]


                  Mesela Biz conlarmzn daha büyük gözükmesini istiyoruz. O zaman 27 27 saysn yükseltiyoruz. 35 35 edelim mesela .

                  did -i $dname 1 1 bmpsize 27 27   satrn
                  did -i $dname 1 1 bmpsize 35 35   eklinde yaparsak u görüntü karmza çkar.

                  [Resim: toolbar6.PNG]



                  Burada sadece o satrdaki sayy yükseltince, iconlarmz büyümektedir ve çok büyütülürse için diyalogumuza smama durumu olabilir.


                  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\yardm.ico

                  Bu Satrlarla ile iconlarmz yerletiriyoruz. conlarmz, icon adl klasörün içinde olmaldr. Uzantmz icon\baglan.ico 'dur. Eer siz baka bir dosya da iconlarnz koyup oradan ayarlamak istiyorsanz o dosyanzn adn yaznz.

                  Uzant örnekleri:
                sistem\icon\baglan.ico 
                icons\baglan.ico 
                resim\baglan.ico

                Bu 3 türlü uzant örnei de yeterlidir sanrm.


did -a $dname 1 +a -
did -a $dname 1 +a 1 $chr(32) Server Balan $chr(9) $+ IRC Servere Balant Kurar.
did -a $dname 1 +a -
did -a $dname 1 +a 3 $chr(32) Balant $chr(9) $+ Balant Ayarlarn 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 Kiisel 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 Oyunlaryla lgili Diyalogu Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 10 $chr(32) Internet $chr(9) $+ Internet Adreslerinin Olduu Diyalogu Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 11 $chr(32) Yardm $chr(9) $+ Scriptinizin Yardm Dosyasn Açar.
did -a $dname 1 +a -

                  Bu Satrlar con resmine yazlar ekleme ve de yazlarn üstüne gelince gölge yazs ( Bilgilendirme yazs) veya Baloncuk yazs ekleme kodlardr.  Bunlardan ikisini örnek olarak açklayalm hemen;

did -a $dname 1 +a -
did -a $dname 1 +a 1 $chr(32) Server Balan $chr(9) $+ IRC Servere Balant Kurar.
did -a $dname 1 +a -
did -a $dname 1 +a 3 $chr(32) Balant $chr(9) $+ Balant Ayarlarn Yapar.
did -a $dname 1 +a -

                  did -a $dname 1 +a - satrlar ile  Biz oluturduumuz herhangi bir icona sanal çerçeve hazrlarz.  Yani bu kod sayesinde biz, conun üstüne gelince bir  Baloncuk yazs gelir..

did -a $dname 1 +a 1 $chr(32) Server Balan $chr(9) $+ IRC Servere Balant Kurar. satrnda ise did -a $dname 1 yeri yaznn hangi icon'un altnda olmas gerektiini belirtir.

$chr(32) Server Balan yeri yaznn altnda hangi yaznn geleceini belirleriz.

chr(9) $+ IRC Servere Balant Kurar. yazya yani iconun üstüne gelince gölgede hangi yaznn yazacan belirler.

Daha sonra yeni bir bölüm için:

did -a $dname 1 +a - satr ile yeni bir gölge durumu olutururuz. ve peine yeni bölüm kodunu koyarz ki bunun da açklamas üsttekiyle ayndr.

did -a $dname 1 +a 3 $chr(32) Balant $chr(9) $+ Balant Ayarlarn Yapar.

                Burada Bir sonraki icon dosyasnn idi 3'dür.  1 ve 2 nolu iconlar baglan.ico ve kes.ico idi. Bunlar tek icon penceresinde gösterilmektedir. Balan diyince baglan.ico aktifleiyor. Kes diyince Kes.ico aktifleiyor. yai tek icon menüsünde 2 icon kullanm oluyoruz. lk ikon penceresinde 2 icon kullandmz için bir sonraki conumuzun idi 3 olmaktadr.

      Not:  $chr(32)  bu satr ise asci karakter kodudur. O 32 says icolarn çizgi oluturur. Örnek :  | Baglan | Ayarlar | gibi cizgiler ile iconlar bölümleriz.


                  4 - d - Aama - Kodun Açklanmas - 4.Bölüm - Diyalog'taki ( Toolbardaki ) conlara tklannca çaltrlacak yerlerin ayarlanmas

                  Siz diyelim ayarlar iconuna basnca, Ayarlar menünüzün açlmasn  istiyorsunuz. veya da korumalar iconuna basnca con menüsünün açlmasn istiyorsunuz... te bunun gibi iconlara baslnca onlarn çalmasn salamak için aadaki komutlar yazyoruz...

                  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

                        }
                      }
                    }



                    Buras aslnda çok basittir. 5 Numaral yer Ayarlar menüsüne baslnca açlacak yerdir. Ben Scriptimde Ayarlar Diyalogumun ismini Ayarlar yaptm. ve O nedenle orada Ayarlar yazdm

                    if ($did($dname,1).sel = 5) {
                      Ayarlar

                      te burada Ayarlara baslnca Ayarlar diyalogum açlr. Sizin Ayarlar diyalogunuzun ismi neyse onu yazn.  Ben karklk olmasn diye , sonradan deiiklik yapabilirim,  bu nedenle onun yeri nerede aramayaym diye Ayarlar diye ismini belirttim. conun adyla con dosyamn adn ayn yaparak düzenli bir Kod oluturmaya çaltm...

ölümü özlemeyen gerçek a$k anlayamaz...
Kullanıcının websitesini ziyaret et Bu kullanıcının gönderdiği tüm mesajları bul
Bu mesajı bir cevapta alıntı yap
07-20-2007, 01:04 AM (En son düzenleme: 02-17-2008 07:52 PM McKruGer.)
Mesaj: #4
Rgb Renk Dizini
Mdx.DLL ile Toolbarda Yazlarn rengi deitirilemez.... Arka plan rengini deitirebilirsiniz.. RGB kodlaryla ilgili bir hayli fazla örnek kod ve renkleri aadaki linktedir..


http://www.irchelper.net/dosyalar/toolbar/toolbar/rgb.htm


Ekran çözünürlüü 1152x864 olanlar için sadece dialog kodunda bir düzenleme yapacaz. Bu düzenlemeyi krmz renkle belirledim. dialogun yanlamasna olan uzunluu arttracaz.

Kodda yer alan bu bölümü

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
}


Bu bölümle deitir.

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, 518 6 45 16, center
text "", 3, 521 10 39 11, center
}

ölümü özlemeyen gerçek a$k anlayamaz...
Kullanıcının websitesini ziyaret et Bu kullanıcının gönderdiği tüm mesajları bul
Bu mesajı bir cevapta alıntı yap
08-30-2007, 02:01 PM
Mesaj: #5
Ynt: Toolbar Tasarm
ben sa üstte saat istemiyom nasl kaldrabilirim /timers o yaznca duruyo iime yaramyo mckruger ustad
Bu kullanıcının gönderdiği tüm mesajları bul
Bu mesajı bir cevapta alıntı yap
08-31-2007, 01:06 PM
Mesaj: #6
Ynt: Toolbar Tasarm
Saatsiz toolbar kodu ite:

Kod:
on *:start: { 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 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) Balanty Kes $chr(9) $+ IRC Serverle Balantnz Koparr.
    }
    else {
      did -o toolbar 1 3 +a 1 $chr(32) Servere Balan $chr(9) $+ IRC Servere Balant Kurar.
    }
  }
}


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

}

on *:dialog:toolbar: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 HideToolbar .
  rebar Dock $dialog(toolbar).hwnd > top

  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\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\yardm.ico
  did -a $dname 1 +a -
  did -a $dname 1 +a 1  $chr(32) Server Balan $chr(9) $+ IRC Servere Balant Kurar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 3  $chr(32) Balant $chr(9) $+ Balant Ayarlarn 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 Kiisel 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 Oyunlaryla lgili Diyalogu Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 10 $chr(32) Internet $chr(9) $+ Internet Adreslerinin Olduu Diyalogu Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 11 $chr(32) Yardm $chr(9) $+ Scriptinizin Yardm Dosyasn 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

      }
    }
  }
}

ölümü özlemeyen gerçek a$k anlayamaz...
Kullanıcının websitesini ziyaret et Bu kullanıcının gönderdiği tüm mesajları bul
Bu mesajı bir cevapta alıntı yap
01-02-2008, 07:50 AM
Mesaj: #7
Ynt: Toolbar Tasarm
Saol MckruGer Bunu Çok Önce Görmü Ve Denemitim Gerçekten Güzel Çalma Olmu Bir Çok Kiiye lham Kayna Olacana Eminim.. Big GrinTongue

[center]Acnmaktansa kskanlmak daha iyidir...[/center]
Kullanıcının websitesini ziyaret et Bu kullanıcının gönderdiği tüm mesajları bul
Bu mesajı bir cevapta alıntı yap
05-12-2008, 09:28 AM
Mesaj: #8
Ynt: Toolbar Tasarm
vistada toolbar çalmyo 1024/768  yaptm gene olmad vistada nasl çaltrabilirim bu toolbar yada vista da çalan bi toolbar kodu olursa ona da kabulüm bu ekilde.
Bu kullanıcının gönderdiği tüm mesajları bul
Bu mesajı bir cevapta alıntı yap
05-12-2008, 07:46 PM
Mesaj: #9
Ynt: Toolbar Tasarm
(05-12-2008 09:28 AM)sinbat demiş ki  vistada toolbar çalmyo 1024/768  yaptm gene olmad vistada nasl çaltrabilirim bu toolbar yada vista da çalan bi toolbar kodu olursa ona da kabulüm bu ekilde.

Kodlar vistada çalyor. Vista içinde sorun çkarmyor. Sorun kullanlan iconlarda. Birde boyutlandrmalarda ufak tefek ayarlama yapmamz gerekli. Burada dikkat edilmesi gereken Vista da kullandn Ekran çözünürlüün nedir? Buradaki kodlar 1024x768'e ayarlanmtr. Eer çözünürlük 1152x864 ise toolbar diyalogunda baz düzenleme yapmamz gerekli.

ölümü özlemeyen gerçek a$k anlayamaz...
Kullanıcının websitesini ziyaret et Bu kullanıcının gönderdiği tüm mesajları bul
Bu mesajı bir cevapta alıntı yap
05-13-2008, 05:59 PM
Mesaj: #10
Ynt: Toolbar Tasarm
çözünürlüü 1024x768 yaptm gene olmad *dialog size invaled table buna benzer bieyler yazyo statusde ama iconlara hiç dokunmadm sadece 1024x768 yaptm olmad toolbar görünmüyo
Bu kullanıcının gönderdiği tüm mesajları bul
Bu mesajı bir cevapta alıntı yap
Mesaj Önizleme 


Benzer Konular...
Konu: Yazar Cevaplar Gösterim: Son Mesaj
  Web Toolbar McKruGer 8 377 03-15-2009 10:39 PM
Son Mesaj: ibonun_Laneti
  Mp3 ToolBar McKruGer 18 774 03-17-2008 06:03 PM
Son Mesaj: sinbat
  MDX TreeView ile Ayarlar Merkezi Tasarımı McKruGer 1 162 05-06-2007 11:14 PM
Son Mesaj: McKruGer



Forum izinleri
yeni konu açamazssın
cevap yazamazssın
eklenti yüklemesi yapamazssın
HTML kodu kapalı.
BBCODE kodu açık.
smilie`ler açık.
[img] kodu açık.