on *:start: { title | titletime dialog -m toolbar toolbar }
 
alias update.toolbar {
  if (!$dialog(toolbar)) { halt }
  else {
    scid $activecid
    if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) { 
      did -o toolbar 1 2 +a 2 $chr(32) Disconnect $chr(9) $+ Disconnect
    }
    else {
      did -o toolbar 1 2 +a 1 $chr(32) Bağlantı $chr(9) $+ Bağlantı
    }
  }
}
 
dialog toolbar {
  title "x"
  size 0 0 1500 13
  option dbu
  list 1, 1 1 600 10, size
}
on *:dialog:toolbar:init:0: {
  set %seps 0
  mdx MarkDialog $dname
  mdx SetDialog $dname style 
  mdx SetBorderStyle $dname 2 staticedge 
  mdx SetFont $dname 1 Turkish 13 800 Tahoma
  mdx SetColor $dname 5,7,9,11,13,15,17,19 text $rgb(0,10,100)
  mdx SetColor $dname 5,7,9,11,13,15,17,19 textbg $rgb(200,200,200)
  rebar HideToolbar .
  rebar Dock $dialog(toolbar).hwnd > top
  mdx SetControlMDX $dname 1,3,6 Progressbar smooth > $ctl
  mdx SetControlMDX $dname 1 ToolBar flat wrap arrows nodivider > $bars
  mdx SetControlMDX $dname 1 ToolBar flat arrows nodivider wrap > $aux.mdx(bars)
  mdx SetBorderStyle 1
  did -i $dname 1 1 setscheme $rgb(212,208,200) $rgb(212,208,200)  
  did -i $dname 1 1 bmpsize 30 30
  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\3.ico
  did -i $dname 1 1 setimage icon large icon\4.ico
  did -i $dname 1 1 setimage icon large icon\5.ico
  did -i $dname 1 1 setimage icon large icon\6.ico
  did -i $dname 1 1 setimage icon large icon\7.ico
  did -i $dname 1 1 setimage icon large icon\8.ico
  did -i $dname 1 1 setimage icon large icon\9.ico
  did -a $dname 1 +a 1 Bağlan
  did -a $dname 1 +a 3 Ayarlar
  did -a $dname 1 +a 4 Temalar
  did -a $dname 1 +a 5 Kanallar
  did -a $dname 1 +a 6 Servisler
  did -a $dname 1 +a 7 Away Menu
  did -a $dname 1 +a 8 Radyo Dinle
  did -a $dname 1 +a 9 Hakkında
  rebar Dock $dialog(toolbar).hwnd > top
}
 
on *:dialog:toolbar:*:*: {
  if $devent == sclick { 
    if $did == 1 {
      if ($did($dname,1).sel = 2) {
        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 = 3) {
        sendkey ALT O
      }
      if ($did($dname,1).sel = 4) {
        sendkey ALT K
      }
      if ($did($dname,1).sel = 5) {
        _k
      }
      if ($did($dname,1).sel = 6) {
        _serv
      }
      if ($did($dname,1).sel = 7) {
        _away
      }
      if ($did($dname,1).sel = 8) {
        os.radiosys
      }
      if ($did($dname,1).sel = 9) {
        hakkinda
      }
    }
  }
}