Android Example [B4X] AS Settings - SelectionList Property

[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...

www.b4x.com

With this property, you can offer the user several options and he can then select either one or more.

Example

    '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)

Default Value
The default value is an array, if you dont want a default value, then put an empty array.

    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)

MultiSelect
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

    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)

 

[Sergio Haurat]

Hi @Alexander Stolte, I am trying to implement "SelectionList". I downloaded the example file in #1 and couldn't find a code segment that explains the correct way to do it.

The example code seen above:
- What would be the way to call .ShowPage?
- Is there a way to change the text size of the elements to make them smaller? (I have some records with text that does not look good, so large and with so many characters)

I have managed to run using .ShowPage in .Action, but when selecting an item, it returns the following error.

** Activity (main) Resume **
Error occurred on line: 1604 (AS_SettingsPage)
java.lang.RuntimeException: Object should first be initialized (View).
Did you forget to call Activity.LoadLayout?
at anywheresoftware.b4a.AbsObjectWrapper.getObject(AbsObjectWrapper.java:67)
at anywheresoftware.b4a.objects.B4XViewWrapper.GetView(B4XViewWrapper.java:335)
at ar.com.sysprofile.psahb.as_settingspage._refreshselectionlistitems(as_settingspage.java:3397)
at ar.com.sysprofile.psahb.as_settingspage._selectionitem_click(as_settingspage.java:3507)
at java.lang.reflect.Method.invoke(Native Method)
at anywheresoftware.b4a.shell.Shell.runMethod(Shell.java:732)
at anywheresoftware.b4a.shell.Shell.raiseEventImpl(Shell.java:348)
at anywheresoftware.b4a.shell.Shell.raiseEvent(Shell.java:255)
at java.lang.reflect.Method.invoke(Native Method)
at anywheresoftware.b4a.ShellBA.raiseEvent2(ShellBA.java:157)
at anywheresoftware.b4a.BA.raiseEvent(BA.java:201)
at anywheresoftware.b4a.objects.ViewWrapper$1.onClick(ViewWrapper.java:80)
at android.view.View.performClick(View.java:7535)
at android.view.View.performClickInternal(View.java:7512)
at android.view.View.-$$Nest$mperformClickInternal(Unknown Source:0)
at android.view.View$PerformClick.run(View.java:29488)
at android.os.Handler.handleCallback(Handler.java:984)
at android.os.Handler.dispatchMessage(Handler.java:104)
at android.os.Looper.loopOnce(Looper.java:238)
at android.os.Looper.loop(Looper.java:357)
at android.app.ActivityThread.main(ActivityThread.java:8118)
at java.lang.reflect.Method.invoke(Native Method)
at com.android.internal.os.RuntimeInit$MethodAndArgsCaller.run(RuntimeInit.java:548)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:957)

Some code

Sub Class_Globals
    Private pnlSettings As AS_Settings
    Private pnlSettingPage As AS_SettingsPage
End Sub

        'AS_Settings
        pnlSettings.MainPage.AddGroup("set_basic", mdlFunctions.loc.Localize("def_values"))
        pnlSettings.MainPage.AddDescriptionItem("set_basic", mdlFunctions.loc.Localize("set_fed_club"))
        pnlSettings.MainPage.AddProperty_Action("set_basic", "fed_action", mdlFunctions.loc.Localize("fed"), "", Null, mdlFunctions.loc.Localize("cmb_select"))
        pnlSettings.MainPage.AddGroup("set_advance", mdlFunctions.loc.Localize("set_advance"))
        pnlSettings.MainPage.AddProperty_Boolean("set_advance", "appConnect", mdlFunctions.loc.Localize("set_user_login"), mdlFunctions.loc.Localize("link_app"), Null, False)
        pnlSettingPage.Initialize(pnlSettings, mdlFunctions.loc.Localize("opt_short"))
        pnlSettingPage.AddGroup("selection", mdlFunctions.loc.Localize("fed"))
        Dim lstItems As List
        lstItems.Initialize
        For Each intID As Int In mdlFunctions.map_cmn_lst_federaciones.Keys
            Dim strItem As String = mdlFunctions.map_cmn_lst_federaciones.Get(intID).As (List).Get(0).As (String)
            lstItems.Add(pnlSettings.CreateSelectionListItem(strItem, Null, intID))
        Next
        pnlSettingPage.AddProperty_SelectionList("selection", "federation", lstItems, Array(), False, True)
        pnlSettings.MainPage.Create
        'AS_Settings

Private Sub pnlSettings_ActionClicked(Property As AS_Settings_Property)
    Select Case Property.PropertyName
        Case "fed_action"
            pnlSettingPage.ShowPage()
    End Select
End Sub

Graphic example to show you the problem with text size

 

[Alexander Stolte]

Please make a new thread, i dont answer questions here. Thanks.

 

[Alexander Stolte]

New Example Project in the attachement on the first post.