[script]
n0=alias mouse dialog -m cursors cursors
n1=alias curs return $shortfn($mircdirdll\cursor.dll)
n2=alias views return $shortfn($mircdirdll\views.mdx)
n3=alias bars return $shortfn($mircdirdll\bars.mdx)
n4=alias ctlgen return $shortfn($mircdirdll\ctl_gen.mdx)
n5=alias mdx return $shortfn($mircdirdll\mdx.dll)
n6=dialog cursors {
n7=  title "Script Mouse İkonları"
n8=  size -1 -1 202 144
n9=  option dbu
n10=  icon $mircdirikon\im5.ani, 0
n11=  list 1, 14 12 173 104, size
n12=  box "Seçmek İçin Çift Tıklatın", 2, 7 3 188 119
n13=  button "Kapat", 3, 83 125 40 15, cancel
n14=}
n15=on 1:dialog:cursors:*:*:{
n16=  if $devent == init {
n17=    dll $mdx SetMircVersion $version
n18=    dll $mdx MarkDialog $dname
n19=    did -i $dname 1 1 bmpsize 32 32
n20=    dll $mdx SetControlMDX $dname 1 listview icon single noheader flatsb autoarrange > $views
n21=    var %cpanel.cnt 1
n22=    while (%cpanel.cnt <= $ini($shortfn($scriptdircursor.ini),cursor,0)) {
n23=      did -i $dname 1 1 seticon normal 0 $gettok($readini($shortfn($scriptdircursor.ini),cursor,%cpanel.cnt),1,222)
n24=      did -a $dname 1 0 + %cpanel.cnt 0 0 $gettok($readini($shortfn($scriptdircursor.ini),cursor,%cpanel.cnt),2,222)
n25=      inc %cpanel.cnt
n26=    }
n27=  }
n28=  if $devent == dclick {
n29=    if $did == 1 {
n30=      cursec
n31=    }
n32=  }
n33=}
n34=alias cursec $gettok($readini($shortfn($scriptdircursor.ini),cursor,$calc($did(1).sel -1)),3,222)
n35=alias mousesec {
n36=  set %mouseimlec $1
n37=  if ($1 == 6) { dll $curs RestoreCursor }
n38=  if ($isfile(cursor\ $+ $1 $+ .ani)) { dll $curs SetMouseCursor cursor\ $+ $1 $+ .ani }
n39=  else { dll $curs SetMouseCursor cursor\ $+ $1 $+ .cur }
n40=}