09-15-2013, 05:24 PM
Function Dialog227
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages
str controls = "3"
str c3Sta
if(!ShowDialog("Dialog227" &Dialog227 &controls)) ret
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 297 117 "Dialog"
;5 Static 0x5440C001 0x0 6 4 45 11 ""
;3 Button 0x54031003 0x0 6 22 46 14 "Start"
;2 Button 0x54030000 0x0 248 0 48 14 "Close"
;END DIALOG
;DIALOG EDITOR: "" 0x2030604 "*" "" "" ""
ret
;messages
sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 3
,if(but(lParam))
,,_s.RandomString(5 5 "A-Z")
,,_s.setwintext(id(5 hDlg))
,else
,,_s.getwintext(id(5 hDlg))
,SetDlgItemText hDlg wParam iif(but(lParam) "End" "Start")
,out F"text: {_s}"
ret 1