Sub Globals
Private userchanged As Boolean
Private checkbox1 As CheckBox
End Sub
Sub Activity_Create(FirstTime As Boolean)
checkbox1.Initialize("checkbox1")
checkbox1.Text = "Checkbox1"
Activity.AddView(checkbox1,0,0,200,100)
loadsettings
End Sub
Sub checkbox1_CheckedChange(Checked As Boolean)
If userchanged Then Return 'exit if user changed
File.WriteString(File.DirInternal,"check.txt",returnInt(Checked)) 'save new state to settings file
End Sub
Sub loadsettings
userchanged = True 'set user change to true
checkbox1.Checked = returnBol(File.ReadString(File.DirInternal,"check.txt")) 'update checkbox1 without performing Checkbox1 event
userchanged = False 'set user change to false
End Sub
Sub returnInt(bol As Boolean) As Int
Select bol
Case True
Return 1
Case False
Return 0
End Select
End Sub
Sub returnBol(int1 As Int) As Boolean
Select int1
Case 0
Return False
Case 1
Return True
End Select
End Sub