Çevrimdışı

mirc 6.17 de remoteye kopyalayıp /clt yazmanız yeterli

;clt : Check Listbox Testi
alias clt { if !$dialog(clt) { dialog -m clt check_listbox_testi } }
dialog check_listbox_testi {
title "Check Listbox testi"
size -1 -1 198 180
option dbu
list 1, 1 0 142 179, check
button "Seçilileri echo'la", 2, 145 2 53 12
button "Tüm listeyi echo'la", 3, 145 16 53 12
button "Seçilileri sil", 4, 145 30 53 12
edit "", 5, 153 47 45 10
check "" , 6, 145 48 7 7
button "Ekle", 7, 145 58 53 12
button "Kapat", 8, 144 166 53 12, cancel
}
on *:dialog:clt:*:*: {
if $devent == init {
var %i = 1
;check box eklemek normal liste item eklemenin aynısı
while %i <= 35 { did -a $dname 1 Deneme itemi %i | inc %i 1 }

;eklediklerimizden 3. ile 15. itemler dahil aralarındakileri seçili yapalım
;3-15 parametresini kullanamıyoruz :S
var %i = 3
while %i <= 15 {
did -s $dname 1 %i
inc %i 1
}

;11. itemimizi de seçili olmasın istiyorum
did -l $dname 1 11
}
if $devent == sclick {
if $did == 2 {
var %i = 1
echo 4 -a $dname dialogu seçililerin echolanması
;Kaç tane seçili itemimiz olduğunu $did(1,0).csel ile alıyoruz, buaradaki 1 listbox id si
while %i <= $did(1,0).csel {
echo 7 -a seçilen:5 $did(1,%i).csel 7string:5 $did(1,$did(1,%i).csel)
inc %i 1
}
}
if $did == 3 {
var %i = 1
echo 4 -a $dname dialogu tüm listenin echolanması
;Kaç tane itemimiz olduğunu $did(1,0).lines ile alıyoruz
while %i <= $did(1,0).lines {
echo 7 -a seçilen:5 %i 7string:5 $did(1,%i)
inc %i 1
}
}
if $did == 4 {
var %i = $did(1,0).csel
;Kaç tane seçili itemimiz olduğunu $did(1,0).csel ile alıyoruz
while %i {
did -d $dname 1 $did(1,%i).csel
dec %i 1
}
}
;&& $did(5) kısmı eğer editboxta birşey var ise
;-c yeni itemi highlight(slect) etmek için
;$did(6).state eğer editboxun önündeki check işaretli ise s parametresini kullanıp onu seçili hale getir.
if $did == 7 && $did(5) {
did -ca $dname 1 $did(5)
;-sa veya -sca çalışmadığı için alttaki kısıma eklemek zorunda kaldım :)
if $did(6).state { did -s $dname 1 $did(1,0).lines }
}
}
}