Android Question Fourth state 'checkbox'

[Tomek92]

Referring to this thread:
https://www.b4x.com/android/forum/threads/checkbox-checked-color.61779/

I would like to add a fourth state "checked but disabled" because state checked and "checked but disabled" they look exactly the same when I use this function to change color. That's why I want to be able to set an additional color when the checkbox is checked but disabled.
I have no idea how to do this.

Will you help?

 

[Erel]

Consider using B4XSwitch. It removes the "thumb" when disabled.

 

[Tomek92]

Should I try like here?? There are no bugs in B4A in the code below, but it doesn't work.

Sub SetColorTintList(CB As CheckBox,Checked As Int,Enabled As Int,Disabled As Int)
    Dim States(3,1) As Int

    Dim v As B4XView = CB            ' my shift
    Dim sw As B4XSwitch = v.Tag        ' my shift
        
    If CB.Enabled = False Then        ' my shift
        sw.Enabled = False            ' my shift
    End If                            ' my shift

    States(0,0) = 16842912   'Checked
    States(1,0) = 16842910    'Enabled
    States(2,0) = -16842910 'Disabled

    Dim Color(3) As Int = Array As Int(Checked,Enabled,Disabled)

    Dim CSL As JavaObject
    CSL.InitializeNewInstance("android.content.res.ColorStateList",Array As Object(States,Color))
    Dim CB1 As JavaObject = CB
    CB1.RunMethod("setButtonTintList",Array As Object(CSL))

End Sub

I have yet tried to initialize StateListDrawable. But still the feature is setting the colors wrong, or I am doing it wrong:

Sub SetColorTintList(CB As CheckBox,Checked As Int,Unchecked As Int,Enabled As Int,Disabled As Int)
    Dim States(4,1) As Int
    Dim sd As StateListDrawable
    
    sd.Initialize
    
    States(0,0) = sd.State_Checked       'Checked
    States(1,0) = sd.State_Unchecked    'Unchecked
    States(2,0) = sd.State_Enabled        'Enabled
    States(3,0) = sd.State_Disabled     'Disabled,

    Dim Color(4) As Int = Array As Int(Checked,Unchecked,Enabled,Disabled)
    Dim CSL As JavaObject
    CSL.InitializeNewInstance("android.content.res.ColorStateList",Array As Object(States,Color))
    Dim CB1 As JavaObject = CB
    CB1.RunMethod("setButtonTintList",Array As Object(CSL))
End Sub

 

[William Lancee]

You need to load the layout using the designer. Select XUI Views first in the Libraries Panel.
In designer select Add View, then custom views, then B4XSwitch. Make color choices in designer.
Use designer tools to generate the switch's definition and event handler.

In your code you can enable and disable, set or reset the value.

    Root.LoadLayout("testswitch")
    B4XSwitch1.Value = True
    B4XSwitch1.Enabled = False

 

[Tomek92]

Oh I didn't know there are custom views in the designer if I choose the B4X view library. At first I didn't understand what was going on. Thank you for pointing me.

 

[Tomek92]

Ok, I use the xui view library, but now I have a problem how to use the enable function, e.g. seekbar to turn the seekbar enable and disable in code.
From what I found out, it should be done like this:

B4XSeekBar1.mBase.GetView(1).Enabled = False

but it doesn't work and app crash.

 

[Tomek92]

I found a way:

Sub EnableDisable_seekbar( enabledArg As Boolean )
    For Each v As B4XView In sbLightPage3.mBase.GetAllViewsRecursive    'wyłączenie seekbara
        v.Enabled = enabledArg                                            'wyłączenie seekbara
    Next
End Sub

But I have no idea how to change the color when the seekbar is disabled. I try so but it doesn't work:

    If enabledArg = False Then
        sbLightPage3.Color1 = Colors.LightGray
        sbLightPage3.Color2 = Colors.LightGray
        sbLightPage3.ThumbColor = Colors.LightGray
    End If

Is there any way?

 

[Mahares]

Is there any way?

See below:

If enabledArg = False Then
        sbLightPage3.Color1 = Colors.LightGray
        sbLightPage3.Color2 = Colors.LightGray
        sbLightPage3.ThumbColor = Colors.LightGray

       sbLightPage3.Update     'add this line
    End If

 

[Tomek92]

One line ? Thank you guys for your help. Everything works, problem solved.