iOS Question Resize circle B4XRadioButton

[angel_]

I'm trying to change (by code) the circle of the radiobutton but I can't do it.

Private Sub B4XPage_Resize (Width As Float, Height As Float)
    #if B4i
        Dim r As Rect = B4XPages.GetNativeParent(Me).SafeAreaInsets
        Root.SetLayoutAnimated(0, r.Left, r.Top, Width - r.Right - r.Left, Height - r.Bottom - r.Top)
    #end if

    Resize1(B4XRadioButton1)
    Resize2(B4XRadioButton2)
End Sub

Sub Resize1(xrbt As B4XRadioButton)
    Dim Height As Int = 30dip
   
    xrbt.mBase.GetView(1).Height = Height
    xrbt.mBase.GetView(1).Width = xrbt.mBase.GetView(0).Height
    xrbt.mBase.GetView(1).top = (Height - xrbt.mBase.GetView(0).Height) / 2
End Sub

Sub Resize2(xrbt As B4XRadioButton)
    Dim Height As Int = 40dip
   
    xrbt.mBase.GetView(2).Height = Height
    xrbt.mBase.GetView(2).Width = xrbt.mBase.GetView(0).Height
    xrbt.mBase.GetView(2).top = (Height - xrbt.mBase.GetView(0).Height) / 2
End Sub

 

[Erel]

Try to resize the view in the designer script. It should resize the internal views automatically.

 

[angel_]

I wanted to give it dimensions smaller than usual, in B4A I can do it with code

 

[Semen Matusovskiy]

B4XRadioButton1.mBase.Height = 30dip (instead of Resize1 subroutine) should work

 

[angel_]

B4XRadioButton1.mBase.Height = 30dip (instead of Resize1 subroutine) should work

It works but I wanted the circle to have smaller dimensions than it does

 

[Semen Matusovskiy]

If you need classic view, you can use Label instead of B4XRadioButton. Label supports CSBuilder, you can make a combination with FontAware icon.

 

[Erel]

B4XRadioButton also supports CSBuilder.