dialog x {
  title "Toolbarz"
  size -1 -1 514 47
  option dbu
  box "Menüler", 5, 218 4 204 41
  icon 6, 227 13 25 16,  x.ico, 0
  text "Bağlan", 7, 225 34 30 8
  text "Kanallar", 9, 264 34 26 8
  text "Radio", 11, 307 34 23 8
  text "Meşgul", 13, 345 34 25 8
  text "Korumalar", 15, 380 34 29 8
  box "Bilgiler", 16, 428 4 68 41
  icon 4, 266 13 25 16,  x.ico, 0
  icon 8, 308 13 25 16,  x.ico, 0
  icon 10, 347 13 25 16,  x.ico, 0
  icon 12, 384 13 25 16,  x.ico, 0
  text "Saat ", 14, 437 15 49 8
  text "Tarih ", 19, 436 28 55 8
  text "Cpu", 1, 5 5 14 8
  text "Lag:", 2, 5 15 14 8
  text "", 3, 21 5 78 8
  text "", 17, 21 15 78 8
}
alias ramuse {
  var %f = ProcInfo.dll
  var %a = $dll(%f,GetRam,memory)
  var %u = %a - $dll(%f,GetRam,memoryavail)
  return $round($calc(%u / %a * 100),0) $+ $iif($1,% ( $+ $kbs(%u) / $kbs(%a) $+ ))
}
alias lg dialog -m x x
on *:dialog:x:init:*: {
  dll mdx.dll MarkDialog $dname
  dll mdx.dll SetControlMDX $dname 3,17 Progressbar smooth > ctl_gen.mdx
  .timerram 0 3 did -a x 3 $remove($gettok($ramuse(1),1,32),%)
}
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)
  }
}