Android Code Snippet [B4X] SetPanelCornerRadius only for certain corners

I needed a way to have only the corners that I need and preferably cross-platform.
I have found a solution for B4A and B4I.
For working B4J code I would be very grateful, I have packed an example project in the attachment.
Thanks @LucaMs for the B4J code

    xpnl_MyPanel = xui.CreatePanel("")
    xpnl_MyPanel.Color = xui.Color_Red
    Root.AddView(xpnl_MyPanel,100dip,100dip,100dip,100dip)
    SetPanelCornerRadius(xpnl_MyPanel,20dip,True,True,False,False)

Private Sub SetPanelCornerRadius(View As B4XView, CornerRadius As Float,TopLeft As Boolean,TopRight As Boolean,BottomLeft As Boolean,BottomRight As Boolean)
    #If B4I
    'https://www.b4x.com/android/forum/threads/individually-change-corner-radius-of-a-view.127751/post-800352
    View.SetColorAndBorder(View.Color,0,0,CornerRadius)
    Dim CornerSum As Int = IIf(TopLeft,1,0) + IIf(TopRight,2,0) + IIf(BottomLeft,4,0) + IIf(BottomRight,8,0)
    View.As(NativeObject).GetField ("layer").SetField ("maskedCorners", CornerSum)
    #Else If B4A
    'https://www.b4x.com/android/forum/threads/gradientdrawable-with-different-corner-radius.51475/post-322392
    Dim cdw As ColorDrawable
    cdw.Initialize(View.Color, 0)
    View.As(View).Background = cdw
    Dim jo As JavaObject = View.As(View).Background
    If View.As(View).Background Is ColorDrawable Or View.As(View).Background Is GradientDrawable Then
        jo.RunMethod("setCornerRadii", Array As Object(Array As Float(IIf(TopLeft,CornerRadius,0), IIf(TopLeft,CornerRadius,0), IIf(TopRight,CornerRadius,0), IIf(TopRight,CornerRadius,0), IIf(BottomRight,CornerRadius,0), IIf(BottomRight,CornerRadius,0), IIf(BottomLeft,CornerRadius,0), IIf(BottomLeft,CornerRadius,0))))
    End If
    #Else If B4J
    'https://www.b4x.com/android/forum/threads/b4x-setpanelcornerradius-only-for-certain-corners.164567/post-1008965
    Dim Corners As String = ""
    Corners = Corners & IIf(TopLeft, CornerRadius, 0) & " "
    Corners = Corners & IIf(TopRight, CornerRadius, 0) & " "
    Corners = Corners & IIf(BottomLeft, CornerRadius, 0) & " "
    Corners = Corners & IIf(BottomRight, CornerRadius, 0)
    CSSUtils.SetStyleProperty(View, "-fx-background-radius", Corners)
    #End If
End Sub

 

[LucaMs]

Unfortunately, I have only found a solution for B4A and B4I.
For working B4J code I would be very grateful, I have packed an example project in the attachment.

    #Else If B4J
        Dim Corners As String = ""
        Corners = Corners & IIf(TopLeft, CornerRadius, 0) & " "
        Corners = Corners & IIf(TopRight, CornerRadius, 0) & " "
        Corners = Corners & IIf(BottomLeft, CornerRadius, 0) & " "
        Corners = Corners & IIf(BottomRight, CornerRadius, 0)
        CSSUtils.SetStyleProperty(View, "-fx-background-radius", Corners)
    #End If

 

[Alexander Stolte]

Thank you Luca, I have updated the code and included your post as a reference

 

[LucaMs]

Thank you Luca, I have updated the code and included your post as a reference

Thanks to you for this snippet, Alexander.

 

[Lucas Siqueira]

Congratulations @Alexander Stolte for the work, it was very good, especially since you already defined the borders in the view component itself.

If you want to draw using b4xcanvas, I once made an example with the help of other posts on the forum, I will leave it here so that it can be related to other users in the future. I will also leave other related links for cropping images with rounded corners.

Draw squares with a rounded corner b4xcanvas

What is the simplest way using b4xcanvas to draw each of these squares? I wish it was b4x (b4a+b4j+b4i)

www.b4x.com

[B4X] [XUI] Rectangle image with rounded corners

Code to create a rectangle image with rounded corners: Compatible with B4A, B4i and B4J. Depends on XUI library v1.47+. Sub CreateRoundRectBitmap (Input As B4XBitmap, Radius As Float) As B4XBitmap Dim BorderColor As Int = xui.Color_Black Dim BorderWidth As Int = 4dip Dim c As...

www.b4x.com

[B4X] [XUI] Create a round image

Better implementation in B4XImageView (XUI Views) This code snippet is based on XUI library and it is compatible with B4A, B4i and B4J. The input is a bitmap and the output is a round bitmap (with no distortions). 'xui is a global XUI variable. Sub CreateRoundBitmap (Input As B4XBitmap...

www.b4x.com