|
|
 |
 |
Okunma |
|
357
|
dialog memoserv { title "Memoserv Addon" size 240 228 280 142 button "Memo Gönder", 1, 13 18 105 23 box "Memo Oku:", 2, 134 3 140 99 button "Memo 1", 31, 140 21 53 20 button "Memo 4", 34, 211 21 53 20 button "Memo 2", 32, 140 46 53 20 button "Diğer", 6, 211 71 53 20 button "Memo 3", 33, 140 71 53 20 button "Son", 8, 211 46 53 20 button "Mesaj Sil", 9, 13 46 105 23 button "Tümünü Sil", 11, 13 75 105 23 button "Mesajları Listele", 12, 12 104 105 23 box "", 13, 5 2 122 133 button "Tamam", 14, 137 111 65 22,ok button "İptal", 15, 208 111 65 22, cancel } on 1:dialog:memoserv:sclick:*:{ if $did == 1 { dialog -m memo1 memo1 } if $did == 8 { %msg memoserv read last } if $did isnum 31-34 { %msg memoserv read $calc($did - 30) } if $did == 12 { %msg memoserv list } if $did == 11 { %msg memoserv del all } if $did == 9 { If $dialog(memo2) == $null { %memo.t = Memo Sil %memo.b = Sil %memo.c = del dialog -ma memo2 memo2 } } if $did == 6 { If $dialog(memo2) == $null { %memo.t = Memo Oku %memo.b = Oku %memo.c = read dialog -ma memo2 memo2 } } } dialog memo1 { title "Memo Gönder" size 307 197 233 170 button "Gönder", 1, 36 146 75 20, ok text "Nick:", 2, 15 7 26 13 edit "", 3, 47 5 175 19, autohs text "Mesaj:", 4, 6 31 36 16, right edit "", 5, 48 29 174 99, multi, return, vsbar box "", 8, 6 129 221 11 button "Vazgeç", 9, 119 146 75 20,cancel } on 1:dialog:memo1:sclick:1:{ if $did(3) == $null { %erromsg = Nick Yazmadınız..!! | dialog -ma erro erro | halt } if $did(5) == $null { %erromsg = Memo girilmedi | dialog -ma erro erro | halt } var %tmp = 1 var %tmp2 = $did(5).lines var %memo = "" while (%tmp <= %tmp2) { %memo = %memo $chr(32) $+ $did(5,%tmp) inc %tmp } %msg memoserv send $did(3) %memo unset %memo.* } dialog memo2 { title %memo.t size 307 197 175 74 button %memo.b, 1, 13 48 68 20,ok text "Mesaj No:", 2, 22 9 87 13 edit "", 3, 113 5 35 21, autohs box "", 8, 4 29 165 11 button "Vazgeç", 9, 92 48 67 20,cancel } on 1:dialog:memo2:sclick:1:{ if $did(3) == $null { %erromsg = Memo Boş Bırakmayın | dialog -ma erro erro | halt } %msg memoserv %memo.c $did(3) unset %memo.* }
|