Sub Process_Globals
Dim manager As AHPreferenceManager
Dim screen,screen2 As AHPreferenceScreen
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
If FirstTime Then
CreateSettings
If manager.GetAll.Size = 0 Then SetDefaults
End If
End Sub
Sub CreateSettings
Dim cat1, cat2 As AHPreferenceCategory
screen.Initialize("Settings", "")
cat1.Initialize("Group1")
cat1.AddList("test1","test1","test1 des","","",Array As String("A","B"))
cat1.AddEditText2("test2", "test2", "I want only numbers", "",2,False,True,"")
screen2.Initialize("Group2","second row")
screen2.AddCheckBox("chkBox1","chkBox1","text on","text off",False,"")
' for screen2 there's not .AddEditText2 so I use AddEditText
screen2.AddEditText("op1","Option 1","text for option 1","","chkBox1")
screen2.AddEditText("op2","Option 2","text for option 2","","chkBox1")
screen2.AddEditText("op3","Option 3","text for option 3","","chkBox1")
cat2.Initialize("Main group")
cat2.AddPreferenceScreen(screen2,"")
screen.AddPreferenceCategory(cat1)
screen.AddPreferenceCategory(cat2)
End Sub