Below is my test code. AnyScreen displays an incorrect option value when I test.
AnySampleProc PROCEDURE
END
INCLUDE(‘AnyScreen.inc’)
INCLUDE(‘KeyCodes.clw’)
CODE
AnySampleProc
AnySampleProc PROCEDURE
lRadio LONG,AUTO
SampleWindow WINDOW(‘Sample Window’),AT(,252,150),CENTER,GRAY,FONT(‘Tahoma’,10)
BOX,AT(1,1,250,108),USE(?BOX),COLOR(COLOR:Black),LINEWIDTH(1)
SHEET,AT(1,110,250,12),USE(?SHEET),SPREAD,NOSHEET,BELOW,IMM
TAB(‘Option’),USE(?TAB:Option)
OPTION(‘Op&tions’),AT(10,26,100,52),USE(lRadio,?OPTION), |
BOXED
RADIO(‘Selection O&ne’),AT(20,38),USE(?RADIO:1)
RADIO(‘Selection &Two’),AT(20,50),USE(?RADIO:2)
RADIO(‘Selection T&hree’),AT(20,62),USE(?RADIO:3)
END
END
END
BUTTON(’&OK’),AT(130,127,60,20),USE(?BTN:Ok),LEFT
BUTTON(’&Cancel’),AT(191,127,60,20),USE(?BTN:Cancel),LEFT
END
CODE
AnyScreen:Init()
OPEN(SampleWindow)
lRadio = 3
ACCEPT
CASE EVENT()
OF EVENT:Accepted
CASE ACCEPTED()
OF ?BTN:Ok OROF ?BTN:Cancel
BREAK
END
END
END
CLOSE(SampleWindow)
AnyScreen:Kill()
RETURN