Çevrimdışı

Aşağıda resmi görülen kişi listesinde yer alan radio seçeneklerinde; birine basıp tamam dediğinizde kod güzel bir şekilde çalışmaktadır. Ancak tekrar diyalogu açtığımız zaman seçili radio butonu görülmüyor. Bu durumda hangi seçeneğin işaretli olduğu belli olmuyor. Ben sadece diyalogun görünüşünde biraz değişiklik yaptım. Kodlara karışmadım. Diyaloga tekrar girdiğimizde en son seçili özelliğin radio butonunda görülmesini nasıl sağlayabiliriz? Teşekkürler..

Resim

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Kod

on *:LOAD:{
echo -a mIRC Messenger Kişi Listesi
echo -a Coder ßy KiLL
echo -a Sağ Tıklayıp ® Messenger Kişi Listesi Sekmesinden Ulaşabirsin..
echo -a Kişilerini Kısa Yoldan Nick Listesine Sağ Tıklayarak Gelen Seçenekten Ekleyebilirsin..
}

menu status,menubar {
® mIRC Messenger Kişi Listesi:.dialog -m messenger messenger
}
menu nicklist {
Messenger Kişi Listesine Ekle:.write messenger.txt $$1 | /echo -a $$1 Nick Messenger Kişi Listesine Eklendi.
}

dialog messenger {
title "mIRC Messenger Kişi Listesi"
size -1 -1 121 233
option dbu
box "", 11, 3 26 115 170
icon 12, 3 4 114 20, resimler\sessiz3.jpg, 0
list 1, 57 35 58 155, size
text "Kişi Ekle", 4, 20 38 20 8
edit "", 2, 7 49 45 12
button "TAMAM", 8, 7 127 45 60, ok
button "EKLE", 3, 7 65 45 15
button "SİL", 9, 7 85 45 15
button "SIFIRLA", 10, 7 105 45 15
box "", 13, 3 195 117 35
radio "", 5, 5 200 8 10, flat
text "Sadece Listemde Olan Arkadaşlarım Yazsın", 6, 13 201 104 8
radio "", 7, 5 215 10 10, flat
text "Herkes Bana Yazabilsin", 14, 13 217 104 8
}

on *:dialog:messenger:*:*:{
if ($devent == init) {
loadbuf -o $dname 1 $shortfn(messenger.txt) | did -c $dname 1 1
}
if ($devent == sclick) {
if ($did == 3) {
var %ekle = $did(2).text
if $read(messenger.txt,w,%ekle) {
echo -a 4 %ekle 2Nicki Zaten 4Messenger2 Listenizde Var. "
}
else {
write messenger.txt %ekle | did -a $dname 1 %ekle | did -d $dname 1 $did(1).text | did -r $dname 2
}
}
if ($did == 9) {
if $read(messenger.txt,w,$did(1).seltext) { write $+(-dl,$readn) messenger.txt | /echo -a 4 $did(1).seltext 2Nicki Messenger Listenizden Silindi. | did -d $dname 1 $did(1).sel }
}
if ($did == 10) {
if ($$?!="Messenger Listenizi Sıfırlamak İstediğiniz Eminmisiniz?" == $true) { set %saynick $lines(messenger.txt) | write -c messenger.txt | did -r $dname 1 | echo -a 2Messenger Listesindeki4 %saynick 2 Adet rumuz Silindi. | unset %saynick } | else { return }
}
if ($did == 5) { .enable #open | /echo -a 2Artık Sadece 4Messenger2 Listenizde Olanlar Size Mesaj Yollayabilecek. }
if ($did == 7) { .disable #open | /echo -a 2Artık Herkes Size Mesaj Yollayabilecek. }
if ($did == 8) { /dialog -c messenger messenger }
}