dialog x {
  title "Toolbarz"
  size -1 -1 419 44
  option dbu
  box "Menüler", 5, 79 1 204 41
  box "Bilgiler", 16, 285 1 133 41
  text "Saat ", 14, 289 11 49 8
  text "Tarih ", 19, 289 22 55 8
  text "Cpu", 1, 5 5 14 8
  text "Lag:", 2, 5 15 14 8
  text "", 3, 21 5 53 8
  text "", 17, 21 15 53 8
  icon 18, 4 27 15 15,  tb\jpg\nxt.bmp, 0
  text "Kontrol Menü", 20, 23 34 37 8
  list 4, 82 10 197 26, size
}
alias saat {
  if $dialog(x) {
    did -ra x 14 Saat: $time
    did -ra x 19 Tarih: $date
  }
}

on *:dialog:x:init:*:{
  dll rebar.dll HideToolbar
  dll rebar.dll Dock $dialog($dname).hwnd > top
  dll mdx.dll SetMircVersion $version
  dll mdx.dll MarkDialog $dname
  dll mdx.dll SetFont x 5,16,14,19,1,2,3,17,18,20,4 13 700 Tahoma
  dll mdx.dll SetBorderStyle $dname 4
  dll mdx.dll SetControlMDX $dname 3,17 Progressbar smooth > ctl_gen.mdx
  dll mdx.dll SetControlMDX $dname 4 Toolbar nodivider flat > bars.mdx
  did -i $dname 4 1 bmpsize 32 32
  did -i $dname 4 1 setimage icon large 0, $+ x.ico
  did -a $dname 4 1 Bağlan
  did -a $dname 4 1 -
  did -i $dname 4 1 setimage icon large 0, $+ x.ico
  did -a $dname 4 1 Kanallar
  did -a $dname 4 1 -
  did -i $dname 4 1 setimage icon large 0, $+ x.ico
  did -a $dname 4 1 Radio
  did -a $dname 4 1 -
  did -i $dname 4 1 setimage icon large 0, $+ x.ico
  did -a $dname 4 1 Meşgul
  did -a $dname 4 1 -
  did -i $dname 4 1 setimage icon large 0, $+ x.ico
  did -a $dname 4 1 Korumalar
  .timerram 0 3 ramuse
  .timersaatarih 0 0 saat
}

alias ramuse {
  var %f = ProcInfo.dll
  var %a = $dll(%f,GetRam,memory)
  var %u = %a - $dll(%f,GetRam,memoryavail)
  if ($dialog(x)) did -a x 3 $round($calc(%u / %a * 100),0) $+ $iif($1,% ( $+ $kbs(%u) / $kbs(%a) $+ ))
}
alias lg dialog -m x x
alias xLagmt { .timerlagsx 0 3 did -a x 17 $round($calc($$1 * 10),0) | .timerlags 0 3 mtb Toolbar Progressbar Position 1 $round($calc($$1 * 10),0) }
alias xLag { .notice $me LAG $ticks }
on ^*:notice:LAG*:*: {
  haltdef
  if ($2 !isnum) { return }
  if ($calc($ticks - $2) > 0) {
    .xLagmt $calc(($ticks - $2) / 1000)
  }
}

on *:dialog:x:sclick:*: {
  if $did == 4  {
    var %s $did(4).sel
    if (%s == 2) update.tb
    if (%s == 4) echo -a İkinci Button
    if (%s == 6) echo -a Üçüncü button
    if (%s == 8) echo -a Dördüncü button
    if (%s == 10) echo -a Beşinci button
  }
}
alias -l update.tb {
  if ($dialog(x)) {
    if ($server) { did -o x 4 2 1 Kopart | disconnect }
    else { did -o x 4 2 1 Bağlan | server }
  }
}
on *:connect: $iif($dialog(x),did -o x 4 2 1 Kopart)
on *:disconnect: $iif($dialog(x),did -o x 4 2 1 Bağlan)