03-02-2007, 05:00 PM
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages
str controls = "3 4"
str e3 e4
if(!ShowDialog("Dialog30" &Dialog30 &controls)) ret
;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 223 135 "Dialog"
;1 Button 0x54030001 0x4 120 116 48 14 "OK"
;2 Button 0x54030000 0x4 170 116 48 14 "Cancel"
;3 Edit 0x54030080 0x200 60 8 160 14 ""
;4 Edit 0x54030080 0x200 60 26 160 14 ""
;5 Button 0x54032000 0x0 6 8 48 14 "MD5"
;6 Button 0x54032000 0x0 6 26 48 14 "Copy"
;END DIALOG
;DIALOG EDITOR: "" 0x2020002 "" ""
ret
;messages
sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 5
,str s
,s.getwintext(id(3 hDlg))
,if(s.len) s.encrypt(2|8)
,s.setwintext(id(4 hDlg))
,
,case 6
,s.getwintext(id(4 hDlg))
,s.setclip
,
,case IDOK
,case IDCANCEL
ret 1