REM TEST
INSTALL @lib$+"WINLIB2"
INSTALL @lib$+"WINLIB4"
datapages%=1
DIM datapage%(datapages%-1),hdlg%(datapages%-1)
PROC_CONTESTANT_INFO_PROP_SHT_SETUP
PROC_showpropsheet(contdlg%,hdlg%())
SYS "CheckRadioButton", hdlg%(0), 25, 28, 25
G=GET
PROC_closedialog(contdlg%)
END
DEF PROC_CONTESTANT_INFO_PROP_SHT_SETUP
datapage%(0)=FN_newdialog("Contestant", 0, 0,500,300, 10,1000)
PROC_static(datapage%(0),"Surname", 10, 5, 6, 43, 12,&2)
PROC_editbox(datapage%(0),"", 20, 50, 5,100, 12,&1000)
PROC_groupbox(datapage%(0),"", 30,155, 0,110, 16,0)
PROC_radiobutton(datapage%(0),"Mr", 25,160, 5, 25, 10,0)
PROC_radiobutton(datapage%(0),"Mrs", 26,185, 5, 25, 10,0)
PROC_radiobutton(datapage%(0),"Miss", 27,210, 5, 25, 10,0)
PROC_radiobutton(datapage%(0),"Ms", 28,235, 5, 25, 10,0)
PROC_static(datapage%(0),"First Name", 11, 5, 21, 43, 12,&2)
PROC_editbox(datapage%(0),"", 21, 50, 20,100, 12,&1000)
PROC_static(datapage%(0),"Membership No.", 12,160, 21, 53, 12,&2)
PROC_editbox(datapage%(0),"", 22,215, 20,150, 12,&1000)
PROC_static(datapage%(0),"Address", 13, 5, 36, 43, 12,&2)
PROC_editbox(datapage%(0),"", 23, 50, 35,315, 12,&1000)
PROC_radiobutton(datapage%(0),"In WI", 29,340, 5, 25, 10,0)
contdlg% = FN_newpropsheet("Contestant Information",1,0,&80,datapage%())
ENDPROC
WS_GROUP = &20000
PROC_radiobutton(datapage%(0),"Mr", 25,160, 5, 25, 10, WS_GROUP)
PROC_radiobutton(datapage%(0),"Mrs", 26,185, 5, 25, 10,0)
PROC_radiobutton(datapage%(0),"Miss", 27,210, 5, 25, 10,0)
PROC_radiobutton(datapage%(0),"Ms", 28,235, 5, 25, 10,0)
....
PROC_radiobutton(datapage%(0),"In WI", 29,340, 5, 25, 10, WS_GROUP)