Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias xxx { if !$dialog(x) { dialog -ma x x } }
on *:dialog:x:*:*:{
;INIT eventi dialog açıldığında devreye girer. Biz nickler.txt dosyamızın içindekileri
;2 id numaralı combo kutumuza aktarıyoruz ve 1. sıradaki veriyi seçiyoruz
if $devent == INIT { loadbuf 0 -o $dname 2 nickler.txt | did -c $dname 2 1 }
;eğer dialog üzerinde herhangi bir şeye basıldığında
if $devent == SCLICK {
;eğer bu 1 idli butonusa (ekle butonu)
if $did == 1 {
;eğer nickler.txt'de editte yazılan yazı yoksa nickler.txt'e ekle
var %_ = $did(2).text
if !$read(nickler.txt,w,%_) { write nickler.txt %_ | did -a $dname 2 %_ }
}
;eğer bu 3 idli butonsa (sil butonu)
if $did == 3 {
;eğer nickler.txt'te bu veri varsa dosyadan sil ve comboboxdan da sil.
if $read(nickler.txt,w,$did(2).seltext) { write $+(-dl,$readn) nickler.txt | did -d $dname 2 $did(2).sel | did -c $dname 2 1 }
}
;eğer 4 nolu idye basıldığında
if $did == 4 {
;echo ile seçili text ekrana gösteriliyor. istediğin komutu sen buraya yazmalısın.
echo :: Giriş tuşuna basıldı. $did(2).text seçili.
}
}
}
Yukardaki kodu dialog kodlarının altına koyup /xxx yazdığında dialogun istediğin gibi çalışacaktır. Açıklamaları da okursan neyin ne olduğunu anlayabilirsin. Bu konuyla ilgili bir daha soru sormadan önce açıklamaları dikkatli oku lütfen.
Umarım işine yarar...