Mutually Exclusive Radio Buttons in Dialogs

[Gintaras]

Code:

Copy      Help

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

str controls = "9 5 11 4 6 7 10 12 13"
str o9All o5All o11All c4A c6A c7A c10B c12B c13b


if(!ShowDialog("ButtonHierarchyDialog" &ButtonHierarchyDialog &controls)) ret


;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 391 438 "RadioButtons"
;9 Button 0x54013009 0x0 146 232 78 45 "All Group A and B"
;2 Button 0x54030000 0x4 186 380 78 45 "Cancel"
;1 Button 0x54030001 0x4 104 380 72 45 "OK"
;5 Button 0x54013009 0x0 24 116 78 45 "All Group A"
;11 Button 0x54013009 0x0 208 116 78 45 "All Group B"
;3 Static 0x54000000 0x0 50 16 48 12 "Group A"
;4 Button 0x54013003 0x0 50 44 48 14 "A1"
;6 Button 0x54013003 0x0 50 64 48 14 "A2"
;7 Button 0x54013003 0x0 50 86 48 14 "A3"
;8 Static 0x54000000 0x0 226 18 48 12 "Group B"
;10 Button 0x54013003 0x0 224 42 48 14 "B1"
;12 Button 0x54013003 0x0 224 64 48 14 "B3"
;13 Button 0x54013003 0x0 224 86 48 14 "b3"
;END DIALOG
;DIALOG EDITOR: "" 0x2020105 "*" "" ""

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

sel message
,case WM_INITDIALOG
,DT_Init(hDlg lParam)
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 5 ;;All Group A
,TO_Check hDlg "4 6 7" 0
,case 11 ;;All Group B
,TO_Check hDlg "10 12 13" 0
,case 9 ;;All Group A and B
,TO_Check hDlg "4 6 7 10 12 13" 0
,case IDOK DT_Ok hDlg
,case IDCANCEL DT_Cancel hDlg
ret 1

Replace TO_Check to the name of your copy of TO_Check. Don't use TO_Check because it can be changed or removed in the future.