dialog cpanel {
  title "Dialog"
  size -1 -1 404 427
  option pixels notheme
  tab "Tab 1", 10, -7 -23 494 458
  tab "Tab 2", 11
  tab "Tab 3", 12
  tab "Tab 4", 13
  tab "Tab 5", 14
  tab "Tab 6", 15
  icon 2, 5 3 393 60, $mircdirsys\resim\sub.JPG, 0
  list 5, 4 71 92 325, size
  edit "", 1, 98 399 303 20, read multi vsbar
  box "1 nolu Tab", 3, 99 65 301 330, tab 10
  box "2 Nolu Tab", 4, 99 65 301 330, tab 11
  box "3 Nolu Tab", 6, 99 65 301 330, tab 12
  box "4 Nolu Tab", 7, 99 65 301 330, tab 13
  box "5 Nolu Tab", 8, 99 65 301 330, tab 14
  box "6 Nolu Tab", 9, 99 65 301 330, tab 15
}
on *:dialog:cpanel:init:*:{
  mdxdll SetMircVersion $version
  mdxdll MarkDialog $dname
  mdxdll SetControlMDX $dname 5 Progressbar smooth > $ctl
  mdxdll SetControlMDX $dname 5 toolbar flat wrap arrows nodivider > $bars
  mdxdll SetControlMDX $dname 5 toolbar flat arrows nodivider wrap > $aux.mdx(bars)
  rebar HideToolbar .
  rebar Dock $dialog(toolbar).hwnd > top
  mdxdll SetColor 5 background  $rgb(155,155,155) 
  mdxdll SetColor $dname 1 background $rgb(155,155,155)
  mdxdll SetColor $dname 1 textbg $rgb(155,155,155)
  did -i $dname 5 1 bmpsize 32 32
  did -i $dname 5 1 setimage icon large sys\icon\i1.ico
  did -i $dname 5 1 setimage icon large sys\icon\i2.ico
  did -i $dname 5 1 setimage icon large sys\icon\i3.ico
  did -i $dname 5 1 setimage icon large sys\icon\i4.ico
  did -i $dname 5 1 setimage icon large sys\icon\i5.ico
  did -i $dname 5 1 setimage icon large sys\icon\i6.ico
  did -a $dname 5 +a 1 Sol Blok Menü 1
  did -a $dname 5 +a 2 Sol Blok Menü 2
  did -a $dname 5 +a 3 Sol Blok Menü 3             
  did -a $dname 5 +a 4 Sol Blok Menü 4
  did -a $dname 5 +a 5 Sol Blok Menü 5
  did -a $dname 5 +a 6 Sol Blok Menü 6
  did -a cpanel 1 Falanca Script bilmem kaçıncı version
}
on *:dialog:cpanel:sclick:*:{
  if $did == 5 {
    if $did(5).sel == 2 { did -f $dname 10 }
    if $did(5).sel == 3 { did -f $dname 11 }
    if $did(5).sel == 4 { did -f $dname 12 }
    if $did(5).sel == 5 { did -f $dname 13 }
    if $did(5).sel == 6 { did -f $dname 14 }
    if $did(5).sel == 7 { did -f $dname 15 }
  }
}