Sub SetDefaults
' General
scrManager.SetBoolean("tactileFeedback", True)
' Examing
scrManager.SetBoolean("barcodeDirectly", True)
scrManager.SetBoolean("barcodeScanerAutomatic", False)
End Sub
Sub CreatePreferenceScreen
scrScreen.Initialize("Настройки", "")
'create two categories
Dim cat1, cat2 As PreferenceCategory
cat1.Initialize("Общи")
'cat1.AddCheckBox("displayConfirmations", "Show confirmation dialogs", "E.g Delete Operations will require a confirmation.", True)
cat1.AddCheckBox("tactileFeedback", "Тактилна обратна връзка", "Телефонът вибрира когато работите с определени компоненти.", True)
cat1.AddCheckBox("barcodeDirectly", "Баркод от камерата ==> проверка", "Не се изисква натискането на бутона Провери ако сте прочели баркода с камерата.", True)
cat1.AddCheckBox("barcodeScanerAutomatic", "Отваряй скенера автоматично", "При проверка на продукт директно се отваря прозорецът за сканиране на Баркод.", False)
'add the categories to the main screen
scrScreen.AddPreferenceCategory(cat1)
End Sub