Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias bilgiler { dialog -a bilgiler bilgiler }
dialog bilgiler {
title "Sozler Menusu"
size -1 -1 137 136
option dbu
list 1, 5 7 127 53 size
edit ", 2 29 74 71 10
button "Ekle", 3, 8 87 25 12
button "Sil", 4, 89 87 25 12
button "Gonder", 5, 42 98 37 12
box "Sozler", 6 1 0 135 63
box "Fonksiyonlar", 7, 3 67 130 52
button "Tamam", 8, 48 121 37 12
}
on *:dialog:bilgiler:init:* {
var %i 1
while (%i <= $lines(bilgiler.txt) ) (
did -a bilgiler 1 $read(bilgiler.txt,%i)
inc %i
}
}
on *:dialog:bilgiler:sclick:*: (
if ($did == 3) ( write bilgiler.txt $did(2) | did -a bilgiler 1 $did(2) )
if ($did == 4) ( write -d bilgiler.txt $did(1). seltext | did -d bilgiler 1 $did(1).sel }
if ($did == 5) ( /msg $active $did(1).seltext }
}
arkadaşlar dialog-studio programı dersi izledim -----lu ve ----- anlatanın yaptığı gibi bir dialog yapmaya çalıştım sanırım beceremedim dialogun amacı mrc klasorunde bilgiler.txt dosyası var içinde bilgiler var bunu kanala yansitmak mesela mrc de sag tik yaparak cikan dialogda yazının ustune tikladigim salonda yada ozelde nerede aktif pencere varsa oraya yansıtmak istedim ama dialogu beceremedim sonrada mrc de sag tık eklemeyi beceremedim popus'a /dialog -a bilgiler bilgiler ekledim sanirim diaolog bozuk oldugu için acmadı yardimlarınızı bekliyorum dialog da yazı eklem silmede mevcuttur