|
dialog'u hazirladiktan sonra dedigi gibi copy dialog code yapcaksin daha sonra o dialogda butonlarin veya formlarin id lerine komut atiyacaksin. örnek :
dialog away {
title "Away Ayarları"
size -1 -1 118 76
option dbu
check "Otomatik away", 1, 11 46 50 10
edit "", 3, 61 46 23 10
text "dk sonra", 4, 90 47 22 8
check "Kayıt açık", 5, 11 21 37 10
box "", 8, 5 4 109 57
edit "", 14, 44 33 39 10
text "Away nick :", 15, 10 34 30 8
button "&Tamam", 16, 5 63 109 10, ok cancel default
check "Özelleri kapat", 17, 11 11 50 10
button "&Kayıtları Oku", 2, 58 21 44 9
}
yukardaki kodlar sana dialog studio tarafindan verilecek. asagidaki kodlari kendin yazacaksin. bu sadece ornektir aynisini yapma.
on 1:dialog:away:edit:*: {
if ($did == 3) { set %otoawaytime $calc(60*$did(3)) | set %awaytime2 $did(3) }
if ($did == 14) { set %awaynick $did(14) }
}
on 1:dialog:away:sclick:*: {
if ($did(1).state) { set %otoaway « } | else { unset %otoaway }
if ($did(5).state) { set %logaway « } | else { unset %logaway }
if ($did(17).state) { set %closeaway « } | else { unset %closeaway }
if ($did == 2) {
if (%savedsomething) { awaylogs } | else { set %temp.error.msg Kayıt yok. | error }
}
}
on 1:dialog:away:init:*: {
did -a away 3 %awaytime2
did -a away 14 %awaynick
if (%otoaway) did -c away 1
if (%logaway) did -c away 5
if (%closeaway) did -c away 17
}
|