Android Question AS Settings - Boolean

[sigster]

Hi

How can I have only one Boolean True
when I select
PropertyName_1 True then PropertyName_2 and PropertyName_3 will be False automatic
PropertyName_2 True then PropertyName_1 and PropertyName_3 will be False automatic
PropertyName_3 True then PropertyName_1 and PropertyName_2 will be False automatic

propbag.AddProperty_Boolean("Basic","PropertyName_1","Boolean Property True","Description Test Text",Null,True)
 propbag.AddProperty_Boolean("Basic","PropertyName_2","Boolean Property True","Description Test Text",Null,False)
 propbag.AddProperty_Boolean("Basic","PropertyName_3","Boolean Property True","Description Test Text",Null,False)

Regards
Sigster

 

[Alexander Stolte]

[B4X] AS Settings - Master and child switch

https://www.b4x.com/android/forum/threads/b4x-xui-as-settings.147435/ You need AS_Settings V2.00+ for this example. In the following example, PropertyName_2 and PropertyName_3 are set to the same value as PropertyName_1. e.g. PropertyName_2 and PropertyName_3 are dependent on PropertyName_1...

www.b4x.com

[B4X] AS Settings - Deactivate a property if a certain condition is met

https://www.b4x.com/android/forum/threads/b4x-xui-as-settings.147435/ You need AS_Settings V2.00+ for this example The object property has a new variable called "view". It contains the view with which the user interacts. e.g. for a boolean it is the B4XSwitch, for a text it is the TextField...

www.b4x.com

 

[sigster]

Thanks

It works like this

Select Property.PropertyName
        Case "PropertyName_1"       
            AS_Settings1.MainPage.GetProperty("PropertyName_2").View.As(B4XSwitch).Value = False
            AS_Settings1.MainPage.GetProperty("PropertyName_3").View.As(B4XSwitch).Value = False
        Case "PropertyName_2"
            AS_Settings1.MainPage.GetProperty("PropertyName_1").View.As(B4XSwitch).Value = False
            AS_Settings1.MainPage.GetProperty("PropertyName_3").View.As(B4XSwitch).Value = False
        Case "PropertyName_3"
            AS_Settings1.MainPage.GetProperty("PropertyName_1").View.As(B4XSwitch).Value = False
            AS_Settings1.MainPage.GetProperty("PropertyName_2").View.As(B4XSwitch).Value = False
        Case Else
            Log("PropertyName: " & Property.PropertyName & " Value: " & Value)
    End Select