B4A Library [B4X] [XUI] AS Radio Button

This is a simple cross platform RadioButton.

I spend a lot of time in creating views, like this and to create a high quality view cost a lot of time. If you want to support me and further views, then you can do it here by Paypal.

Spoiler: Dependencies/Libraries you need for this view

B4j: jXUI
B4a: XUi,XUI Views
B4i: iXUI,XUI Views

In B4I the animation is limited, because otherwise the circle would look too angular in the animation.

Animation = NONE (default)

ASCheckbox
Author: Alexander Stolte
Version: 1.04

• ASRadioButton
  • Events:
    • CheckedChange (Checked As Boolean)
  • Fields:
    • g_Haptic As Boolean
    • mBase As B4XView
    • Tag As Object
  • Functions:
    • Class_Globals As String
    • DesignerCreateView (Base As Object, Lbl As Label, Props As Map) As String
      Base type must be Object
    • getBase As B4XView
    • getChecked As Boolean
    • getDisabledCheckedBackgroundColor As Int
    • getDisabledUncheckedBackgroundColor As Int
    • getEnabled As Boolean
    • Initialize (Callback As Object, EventName As String) As String
    • IsInitialized As Boolean
      Tests whether the object has been initialized.
    • setBorderWidth (width As Int) As String
    • setChecked (b_checked As Boolean) As String
    • setCheckedBackgroundColor (crl As Int) As String
    • setDisabledCheckedBackgroundColor (crl As Int) As String
    • setDisabledUncheckedBackgroundColor (crl As Int) As String
    • setEnabled (enable As Boolean) As String
    • setUncheckedBackgroundColor (crl As Int) As String
  • Properties:
    • Base As B4XView [read only]
    • BorderWidth
    • Checked As Boolean
    • CheckedBackgroundColor
    • DisabledCheckedBackgroundColor As Int
    • DisabledUncheckedBackgroundColor As Int
    • Enabled As Boolean
    • UncheckedBackgroundColor

Changelog

• 1.00
  • Release
• 1.01
  • B4I Better Animations thanks to @Semen Matusovskiy
  • Add getBase
• 1.02
  • Add DisabledCheckedBackgroundColor property and designer property
  • Add DisabledUnCheckedBackgroundColor property and designer property
    • 
  • Add Enable property - enable or disable the view
  • BugFixes
• 1.03
  • Add Designer Property Animation -Select-Animation NONE=without Slide=the normal animation
    • 
• V1.04
  • BugFix - Enabled = False, now the view is disabled, no touch gestures allowed
• V1.05
  • Base_Resize is now public

Have Fun

 

[angel_]

It looks really cool, it would be nice to have the Enable property

 

[Alexander Stolte]

Update
1.01

• B4I Better Animations thanks to @Semen Matusovskiy
• Add getBase

it would be nice to have the Enable property

ASRadioButton1.Base.Enabled = False

 

[Alexander Stolte]

Update

• 1.02
  • Add DisabledCheckedBackgroundColor property and designer property
  • Add DisabledUnCheckedBackgroundColor property and designer property
    • 
  • Add Enable property - enable or disable the view
  • BugFixes

 

[Alexander Stolte]

Update

• 1.03
  • Add Designer Property Animation -Select-Animation NONE=without Slide=the normal animation
    • 

Default is NONE

 

[Alexander Stolte]

Update
V1.04

• BugFix - Enabled = False, now the view is disabled, no touch gestures allowed

 

[wimpie3]

If I'm right, we have to add the text next to the radio button ourselves? The "text" property is not supported? This means that we also need to calculate the y-offsets for multiline labels, like in this example? (same question for AS Checkbox)

 

[Alexander Stolte]

we have to add the text next to the radio button ourselves?

yes

we also need to calculate the y-offsets for multiline labels, like in this example? (same question for AS Checkbox)

yes

 

[wimpie3]

OK very clear (and adding more work for me...)

 

[Alexander Stolte]

and adding more work for me...

You would have even more work if this library didn't exist.

 

[wimpie3]

You would have even more work if this library didn't exist.

Oh that's for sure

Is this view addable via code? Or only through the designer? Or do I have to use the DesignerCreateView trick?

 

[Alexander Stolte]

Is this view addable via code? Or only through the designer? Or do I have to use the DesignerCreateView trick?

Only with the designer or with the trick.

 

[wimpie3]

These properties don't seem to be correct or sufficient?

    Dim m_Properties As Map
    m_Properties.Initialize
    m_Properties.Put("Animation",0)
    m_Properties.Put("CheckedBackgroundColor",0xFF2D8879)
    m_Properties.Put("UnCheckedBackgroundColor",0xFFFFFFFF)
    m_Properties.Put("DisabledCheckedBackgroundColor",0x98FFFFFF)
    m_Properties.Put("DisabledUncheckedBackgroundColor",0x98FFFFFF)
    m_Properties.Put("BorderWidth",2)
    m_Properties.Put("HapticFeedback",False)

Is there a way to find out exactly what properties have to be added?

 

[Alexander Stolte]

Is there a way to find out exactly what properties have to be added?

a "DesignerProperty" have a FieldType e.g. String and a DefaultValue e.g. NONE.
you can see which data type is required and what its default value is.

m_Properties.Put("Animation",0)

wrong. In the source code is the following:

#DesignerProperty: Key: Animation, DisplayName: Animation, FieldType: String, DefaultValue: NONE, List: NONE|Slide

FieldType = String
Value = "NONE"

 

[wimpie3]

Hmmm... I seem to do something terribly wrong, cause I don't see the radio button appearing (I only see the cyan background of the panel):

    Dim m_Properties As Map
    m_Properties.Initialize
    m_Properties.Put("Animation","NONE")
    m_Properties.Put("CheckedBackgroundColor",0xFF2D8879)
    m_Properties.Put("UnCheckedBackgroundColor",0xFFFFFFFF)
    m_Properties.Put("DisabledCheckedBackgroundColor",0x98FFFFFF)
    m_Properties.Put("DisabledUnCheckedBackgroundColor",0x98FFFFFF)
    m_Properties.Put("BorderWidth",2)
    m_Properties.Put("HapticFeedback",False)
   
    Dim xpnl_RadioButton As B4XView = xui.CreatePanel("")
    xpnl_RadioButton.Color=Colors.cyan
    Root.AddView(xpnl_RadioButton,0,0,300dip,50dip)
    
    Dim rb1 As ASRadioButton
    rb1.Initialize(Me,"rb1")
    Dim tmplbl As Label
    tmplbl.Initialize("")
    rb1.DesignerCreateView(xpnl_RadioButton,tmplbl,m_Properties)

 

[Alexander Stolte]

Root.AddView(xpnl_RadioButton,0,0,300dip,50dip)

This will not work, the view is a circle, so it must also be a square.

 

[wimpie3]

Square dimensions is not what's causing the problem, the radio button doesn't show up with 50dip x 50dip either.

 

[Alexander Stolte]

Square dimensions is not what's causing the problem, the radio button doesn't show up with 50dip x 50dip either.

    rb1.DesignerCreateView(xpnl_RadioButton,tmplbl,m_Properties)
    rb1.Base_Resize(50dip,50dip)

Update

• V1.05
  • Base_Resize is now public

 

[wimpie3]

Thanks for helping me out, but it's not (yet) working. I have to click on the panel to show the radio button. Strange.

PS I suspect AS_Checkbox needs it's Base_Resize to be made public as well?

 

[Alexander Stolte]

Thanks for helping me out, but it's not (yet) working. I have to click on the panel to show the radio button. Strange.

I took the Example Project, took your code and after calling Base_Resize, the radio button appeared on the panel.

PS I suspect AS_Checkbox needs it's Base_Resize to be made public as well?

I think so