B4J Question Rounded corners on BBCodeView

[MrKim]

I have played with this 'till I am blue in the face. Once again, I feel like I must be missing something obvious.
WYSIWYG Designer looks like this - perfect:

I run it it looks like this:

I add some text I get the blue but also a scroll bar??:

I found if I add this line: AboutCV.sv.ScrollViewInnerPanel.SetColorAndBorder(xui.Color_Blue , 5dip, xui.Color_Black , 45dip)
I can get part way there:

So, I tried putting the BBCodeView on a pane (B4J) thinking the pane would clip the corners. Once again, it looked great in the wysiwyg designer but did nothing when I run the program, even when I set the color and border on the pane in code.

Project included with lots of remmed code for all the things I tried.
Project is B4x pages, only the B4J project is set up. I was able to resolve this in B4A by setting the Base BackGround ColorDrawable Color to the same color as the background on the page. For some reason this has no affect in B4J.
Any help appreciated.

 

[Erel]

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    TextEngine.Initialize(Root)
    Dialog.Initialize(Root)
    Dialog.BackgroundColor = 0xFF0028FF
    Dialog.ButtonsColor = 0xFF0028FF
    Dialog.BorderColor = xui.Color_Gray
    Dialog.ButtonsTextColor = xui.Color_White
    Dialog.OverlayColor = xui.Color_Transparent
    Dialog.BorderCornersRadius = 30dip
    Dialog.BorderColor = xui.Color_Transparent
End Sub

Private Sub Button1_Click
    Dim p As B4XView = xui.CreatePanel("")
    p.SetLayoutAnimated(0, 0, 0, 300dip, 300dip)
    p.LoadLayout("BBDialog")
    BBCodeView1.TextEngine = TextEngine
    Dim sv As ScrollPane = BBCodeView1.sv
    sv.SetVScrollVisibility("NEVER")
    BBCodeView1.Text = $"[color=white][TextSize=18]jk lfsdjf lksdjf lksdf
weklfjwklefjklwef asdasdasd
wefjwlekf [b]jklwef w[/b] [color=yellow]asdasdasd[/color]
efwjelk fwklefj [u]wlkef jwlkefwlekf jwelfw[/u]
ef wjeklf jwelkf [/TextSize][/color]"$
    Dim rs As Object = Dialog.ShowCustom(p, "Setup", "", "")
    Dim btn As B4XView = Dialog.GetButton(xui.DialogResponse_Positive)
    btn.Left = btn.Left - 10dip
    Wait For (rs) Complete (Result As Int)
End Sub

 

[MrKim]

View attachment 114906

That was just an example. This is what I am trying to fix:

 

[Erel]

The example I did, shows how to create a dialog with BBCodeView that has round corners. The content doesn't matter.