IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - mIRc Toolbar Menüsü ( Sol tarafta ve KullanışLı )

mIRc Üzerrinde YUkarıda GüzeL Bir Görünüm Veriyor Ama Ben Bunu Birde Sol Tarafta Kısa Yol Menüsü SekLinde UyguLadım isteyen bu Olayı operator menusu sekLıne getirebiLir...

Kodlar...
Kod:
on *:start: { dialog -m toolbar toolbar }

on *:connect: {

  update.toolbar

  join #sanalcafe

}

on *:disconnect: {

  update.toolbar

}

on *:close:*: {

  update.toolbar

}

dialog toolbar {

  title "LauReLL"

  size 5 5 43 514

  option dbu

  list 1, 2 5 42 389, size

}

on *:appactive: {

  if $appactive {

    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) Disconnect $chr(9) $+ IRC Serverle Bağlantınızı Koparır. 

    }

    else {

      did -o toolbar 1 3 +a 1 $chr(32) _Connect_ $chr(9) $+ IRC Servere Bağlantı Kurar.

    }

  }

}

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 SetColor 1 background $rgb(170,170,170)

  mdx SetDialog [ $dname ] bgcolor $rgb(170,170,170)

  mdx SetBorderStyle 1

  did -i $dname 1 1 setscheme $rgb(0,0,0) $rgb(170,170,170)

  did -i $dname 1 1 bmpsize 32 32

  did -i $dname 1 1 setimage icon large icon\1.ico

  did -i $dname 1 1 setimage icon large icon\2.ico

  did -i $dname 1 1 setimage icon large icon\baglantı.ico

  did -i $dname 1 1 setimage icon large icon\kanallar.ico

  did -i $dname 1 1 setimage icon large icon\cpaneL.ico

  did -i $dname 1 1 setimage icon large icon\Away.ico

  did -i $dname 1 1 setimage icon large icon\MP3.ico

  did -i $dname 1 1 setimage icon large icon\help.ico

  did -i $dname 1 1 setimage icon large icon\Oyun.ico

  did -i $dname 1 1 setimage icon large icon\hakkında.ico

  did -a $dname 1 +a -

  did -a $dname 1 +a 1 $chr(32) $iif($scid($activecid).status == connected,bağlantıyı kes,Bağlantılar) $chr(9) $+ IRC Servere Bağlantı kurar.

  did -a $dname 1 +a -

  did -a $dname 1 +a 3 $chr(32) Server Menü $chr(9) $+ Bağlantı Ayarlarını Yapar.

  did -a $dname 1 +a -

  did -a $dname 1 +a 4 $chr(32) Kanallarımız $chr(9) $+ Kanallara Giriş Penceresini Açar.

  did -a $dname 1 +a -

  did -a $dname 1 +a 5 $chr(32) Alternatifler $chr(9) $+ Tüm ayarkarın Yapıldığı Kontrol panelini açar

  did -a $dname 1 +a -

  did -a $dname 1 +a 6 $chr(32) Away İşLemi $chr(9) $+ Meşgul menünüzü Açar

  did -a $dname 1 +a -

  did -a $dname 1 +a 7 $chr(32) Mp3_ Menüsü $chr(9) $+ Mp3 Player Açar

  did -a $dname 1 +a -

  did -a $dname 1 +a 8 $chr(32) Yardım kanal $chr(9) $+ Yardım KanaLına Gider

  did -a $dname 1 +a -

  did -a $dname 1 +a 9 $chr(32) Oyun aynayn $chr(9) $+ Oyun KanaLına Gider

  did -a $dname 1 +a -

  did -a $dname 1 +a 10 $chr(32) hakkımızda... $chr(9) $+ mIRC Hakkında Bilgi

  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) {

        echo -a 12 Bağlantı Dialogunu Giriniz...

      }

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

        echo -a 12 kanal listesi Dialogunu Giriniz...

      }

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

        echo -a 12 Cpanel Dialogunu Giriniz...

      }

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

        echo -a 12 Away PaneLi Dialogunu Giriniz...

      }

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

        echo -a 12 MP3 Menüsü Dialogunu Giriniz...

      }

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

        join #help

      }

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

        join #oyun 

      }

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

        echo -a 12 mIRc BiLgi Dialogunu Giriniz...

      }

    }

  }

}

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 }

alias ctl { return DLL\ctl_gen.mdx } 

alias views { return DLL\views.mdx }
resim...

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

Kodları