Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
CreatePreferenceScreen
If SettingsManager.GetAll.Size = 0 Then SetDefaults
End If
Activity.LoadLayout("maintablet7")
End Sub
Sub CreatePreferenceScreen
SettingsScreen.Initialize("Settings", "")
'create one category
Dim cat1 As PreferenceCategory
cat1.Initialize("POP3 Settings")
cat1.AddEditText("edit1", "Server Address", "", "")
cat1.AddEditText("edit2", "User Name", "", "")
cat1.AddEditText("edit3", "Password", "", "")
cat1.AddCheckBox("check1", "Check to Use SSL", "", False)
'add the category to the settings screen
SettingsScreen.AddPreferenceCategory(cat1)
End Sub
Sub SetDefaults
'defaults are only set on the first run.
SettingsManager.SetString("edit1", "") ' ( replace empty strings with stored variables
SettingsManager.SetString("edit2", "") ' (
SettingsManager.SetString("edit3", "") ' (
SettingsManager.SetString("check1", "") ' (
'Return
End Sub
Sub settingsButton2_Click
StartActivity(SettingsScreen.CreateIntent)
End Sub