Dialog Radio Buttons

[QM Assistant]

Here see if this is what you wanted.



Macro ( Trigger )

Code:

Copy      Help

str controls = "3 4 5 6 7"
str o3NL o4Oma o5 o6PL e7
o3NL=1
if(!ShowDialog("Help_Dialog" &Help_Dialog &controls)) ret
if(o3NL=1)
,out "5 times"
if(o4Oma=1)
,out "21 times"
if(o5=1)
,out "15 times"
if(o6PL=1)
,out "12 times"
out e7;;this is not necessary

Function ( Help_Dialog )

Code:

Copy      Help

;\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages


;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 126 108 "My Help Dialog"
;1 Button 0x54030001 0x4 8 90 48 14 "Open1"
;2 Button 0x54030000 0x4 72 90 48 14 "CLOSE"
;3 Button 0x54032009 0x0 4 54 48 13 "Open2"
;4 Button 0x54002009 0x0 76 54 48 13 "CLOSE"
;5 Button 0x54002009 0x0 4 70 48 13 "Open3"
;6 Button 0x54002009 0x0 76 70 48 13 "CLOSE"
;7 Edit 0x54030080 0x200 14 12 96 14 "Open4"
;8 Button 0x54032000 0x0 36 28 48 14 "CLOSE"
;9 Static 0x54000000 0x0 4 2 70 10 "Open5"
;10 Button 0x54020007 0x0 2 44 124 42 "CLOSE"
;END DIALOG
;DIALOG EDITOR: "" 0x202000B "" ""


ret
;messages
if(message=WM_INITDIALOG) DT_Init(hDlg lParam)
;int param=DT_GetParam(hDlg)

sel message
,case WM_INITDIALOG
,ret 1
,case WM_DESTROY DT_DeleteData(hDlg)
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 8
,,_s.getclip
,,_s.setsel(0 id(7 hDlg))
,case IDOK DT_Ok hDlg
,case IDCANCEL DT_Cancel hDlg
ret 1