| immortaL | 23 Kasım 2016 17:47 |
/* Pencereniz Skype Gibi Olsun İstiyorsanız */
Kod:
alias ozel { dialog -md new new }
dialog New {
title "Özel Mesaj Penceresi"
size -1 -1 295 184
option dbu
edit "", 1, 6 16 287 121, multi return vsbar
edit "", 2, 8 142 242 39
button "Gonder", 3, 256 141 35 19
combo 4, 6 3 112 205, size drop
button "Temizle", 5, 256 163 35 19
}
on *:dialog:new:*:*: {
if $devent == sclick {
if $did == 5 {
did -r $dname 1
}
if $did == 3 {
msg $did(4) $did(2)
did -a $dname 1 $crlf
did -a $dname 1 $me $+ : $did(2)
did -r $dname 2
}
}
if $devent == init {
var %i 1
while %i <= $query(0) {
did -a $dname 4 $query(%i)
inc %i
}
did -c $dname 4 1
}
}
| 