Sub Globals
Dim rConfig As RandomAccessFile
Dim rdTOK_Val As Boolean
Dim readVar As Boolean = True
Dim DummyStatus As String
Private pnl_rdTOK As Panel
Private rdTOK_SI As RadioButton
Private rdTOK_NO As RadioButton
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Opts")
rConfig.Initialize(File.DirInternal,"MyCFG.dat",True)
Try
rdTOK_Val = rConfig.ReadObject(rConfig.CurrentPosition)
Catch
readVar = False
End Try
If readVar Then
rdTOK_SI.Checked = rdTOK_Val
rdTOK_NO.Checked = Not(rdTOK_Val)
End If
rConfig.Close
End Sub
Sub btnOK_Click
rConfig.Initialize(File.DirInternal,"MyCFG.dat",False)
rConfig.WriteObject(rdTOK_SI.Checked,True,rConfig.CurrentPosition)
rConfig.Close
Activity.Finish
End Sub