[B4X] [XUI] AS Settings
Introducing a new library that allows you to create your own settings page with minimal code. This library comes equipped with automatic saving and loading features, making it incredibly easy to manage your settings. It supports booleans, free text, numbers, comboboxes, action buttons and more...
With this property, you can offer the user several options and he can then select either one or more.
Example
B4X:
'Second Page
SettingPage2.Initialize(AS_Settings1,"Page #2")
SettingPage2.AddGroup("MultiOptionExample","Multi Option")
Dim lst_Items As List
lst_Items.Initialize
lst_Items.Add(AS_Settings1.CreateSelectionListItem("Option #1",Null,1))
lst_Items.Add(AS_Settings1.CreateSelectionListItem("Option #2",Null,2))
lst_Items.Add(AS_Settings1.CreateSelectionListItem("Option #3",Null,3))
lst_Items.Add(AS_Settings1.CreateSelectionListItem("Option #4",Null,4))
lst_Items.Add(AS_Settings1.CreateSelectionListItem("Option #5",Null,5))
SettingPage2.AddProperty_SelectionList("MultiOptionExample","OptionsExample1",lst_Items,Array(),True,True)The default value is an array, if you dont want a default value, then put an empty array.
B4X:
Dim lst_Items As List
lst_Items.Initialize
lst_Items.Add(AS_Settings1.CreateSelectionListItem("Option #1",Null,1))
lst_Items.Add(AS_Settings1.CreateSelectionListItem("Option #2",Null,2))
lst_Items.Add(AS_Settings1.CreateSelectionListItem("Option #3",Null,3))
lst_Items.Add(AS_Settings1.CreateSelectionListItem("Option #4",Null,4))
lst_Items.Add(AS_Settings1.CreateSelectionListItem("Option #5",Null,5))
'Option #1 is default value
SettingPage2.AddProperty_SelectionList("MultiOptionExample","OptionsExample1",lst_Items,Array(1),True,True)
'Option #1 and Option #5 is default value
SettingPage2.AddProperty_SelectionList("MultiOptionExample","OptionsExample1",lst_Items,Array(1,5),True,True)
'No default value
SettingPage2.AddProperty_SelectionList("MultiOptionExample","OptionsExample1",lst_Items,Array(),True,True)If true more than one item can selected. If false only one item is selected if you click, it deselect the previous item
CanDeselectAll
If false, then the last item cannot be deselected, it need min one selected
Icons
B4X:
SettingPage2.Initialize(AS_Settings1,"Theme")
SettingPage2.AddGroup("MultiOptionExample","Accent Color")
Dim lst_Items As List
lst_Items.Initialize
lst_Items.Add(AS_Settings1.CreateSelectionListItem("Green",AS_Settings1.FontToBitmap(Chr(0xF111),False,30,xui.Color_RGB(45, 136, 121)),1))
lst_Items.Add(AS_Settings1.CreateSelectionListItem("Blue",AS_Settings1.FontToBitmap(Chr(0xF111),False,30,xui.Color_RGB(73, 98, 164)),2))
lst_Items.Add(AS_Settings1.CreateSelectionListItem("Red",AS_Settings1.FontToBitmap(Chr(0xF111),False,30,xui.Color_RGB(221, 95, 96)),3))
lst_Items.Add(AS_Settings1.CreateSelectionListItem("Purple",AS_Settings1.FontToBitmap(Chr(0xF111),False,30,xui.Color_RGB(141, 68, 173)),4))
lst_Items.Add(AS_Settings1.CreateSelectionListItem("Magenta",AS_Settings1.FontToBitmap(Chr(0xF111),False,30,xui.Color_Magenta),5))
lst_Items.Add(AS_Settings1.CreateSelectionListItem("Cyan",AS_Settings1.FontToBitmap(Chr(0xF111),False,30,xui.Color_Cyan),6))
SettingPage2.AddProperty_SelectionList("MultiOptionExample","OptionsExample1",lst_Items,Array(1),False,False)Attachments
Last edited: