Android Question Adding StatelistDrawable button in code

DonManfred said:

Is the forumsearch defect?

StateListDrawable example

StateListDrawable is a drawable objects that holds other drawables. Based on the view's current state a child drawable is selected. StateListDrawable holds a list of states. States can be "disabled", "enabled", "checked" and so on. A state can also be a combination of other states (like enabled...

www.b4x.com

Click to expand...

RB Smissaert said:

No, it is working fine and just found the same.

RBS

Click to expand...

    Dim b As Button
    b.Initialize("KeyboardButton")
    b.TextColor = Colors.Black
    b.TextSize = 18
    b.SingleLine = True
    b.Typeface = Typeface.DEFAULT
    b.Text = "h"
    b.Tag = "xxx"
    b.Gravity = Gravity.CENTER_HORIZONTAL
    b.Gravity = Gravity.CENTER_VERTICAL
    b.Padding = Array As Int(0,0,0,0)
    
    Dim UnPressed, Pressed As ColorDrawable
    UnPressed.Initialize2(0xFFFFFFFF, 6dip, 0, 0)
    Pressed.Initialize2(0x00FFFFFF, 6dip, 0, 0)
    'b.Background = UnPressed

    Dim sld As StateListDrawable
    sld.Initialize
    sld.AddState(sld.State_Enabled, UnPressed)
    sld.AddState(sld.State_Pressed, Pressed)
    b.Background = sld

    pnlKeys.AddView(b, 0, 72dip, 28dip, 36dip)

b.Background = UnPressed

RB Smissaert said:

Trying to add the button in code and make it look exactly the same as the one created in the designer, but so far not succeeded yet.
Main difference is that that the text is not centered horizontally.

B4X:

    Dim b As Button
    b.Initialize("KeyboardButton")
    b.TextColor = Colors.Black
    b.TextSize = 18
    b.SingleLine = True
    b.Typeface = Typeface.DEFAULT
    b.Text = "h"
    b.Tag = "xxx"
    b.Gravity = Gravity.CENTER_HORIZONTAL
    b.Gravity = Gravity.CENTER_VERTICAL
    b.Padding = Array As Int(0,0,0,0)
   
    Dim UnPressed, Pressed As ColorDrawable
    UnPressed.Initialize2(0xFFFFFFFF, 6dip, 0, 0)
    Pressed.Initialize2(0x00FFFFFF, 6dip, 0, 0)
    'b.Background = UnPressed

    Dim sld As StateListDrawable
    sld.Initialize
    sld.AddState(sld.State_Enabled, UnPressed)
    sld.AddState(sld.State_Pressed, Pressed)
    b.Background = sld

    pnlKeys.AddView(b, 0, 72dip, 28dip, 36dip)

It seems I don't actually need the StatelistDrawable as I can achieve the same by doing just:

B4X:

b.Background = UnPressed

What am I doing wrong regarding centering the text?

RBS

Click to expand...

Solved this problem.

RBS

RB Smissaert said:

Simply doing instead:

[/CODE]
b.Gravity = Gravity.CENTER

B4X:

Solved this problem.

RBS

Click to expand...

RB Smissaert said:

For the button width in the designer I have 28 and I need to make this 32dip to get the same width.
No idea yet why this is.

Click to expand...

Log(GetDeviceLayoutValues.Scale * 28)
Log(DipToCurrent(28))

Log(GetDeviceLayoutValues.Scale)

Mahares said:

It depends on the device's scale. To convert the 28 to dips, you can use either of these 2 lines which are equivalent forms:

B4X:

Log(GetDeviceLayoutValues.Scale * 28)
Log(DipToCurrent(28))

To get the scale of your device:

B4X:

Log(GetDeviceLayoutValues.Scale)

I am not sure if I am addressing your question

Click to expand...

RB Smissaert said:

It doesn't address the question, but I wasn't aware of these 2 functions and useful to know.

Click to expand...

Mahares said:

I was reluctant to answer your question at first because of your past questions that I found hard to decipher, but one should always be appreciative when someone attempts to help.

Click to expand...

RB Smissaert said:

For the button width in the designer I have 28 and I need to make this 32dip to get the same width.

Click to expand...

Dim size As Float = buttonsSize / xui.Scale