B4J Question [SOLVED] BCTextEngine Example (BCTextExample)

    Dim xbtn As B4XView = btn
    If xui.IsB4i Then xbtn.SetColorAndBorder(xui.Color_Transparent, 1dip, xui.Color_Black, 2dip)
    xbtn.Text = "Click!"
    xbtn.SetLayoutAnimated(0, 0, 0, 100dip, 40dip)
    
    Dim pnl As B4XView = xui.CreatePanel("")
    pnl.SetLayoutAnimated(0, 0, 0, 200dip, 120dip)
    pnl.LoadLayout("CustomListView")
    
    For i = 1 To 50
        CustomListView1.AddTextItem($"Item ${i}"$, "")
    Next
    
    BBCodeView1.Views.Put("clv", pnl)
    BBCodeView1.Views.Put("btn", btn)

    BBCodeView1.Text = _
$"[Alignment=Center][TextSize=30][b][u][Font=MyFont Size=50]This is the title [/Font][FontAwesome=0xF034/] [FontAwesome=0xF035/][/u][/b][/TextSize][/Alignment]
Emoji made of multiple "characters": ?‍? and a flag: [TextSize=30][e=??/][/TextSize]
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nunc fermentum elit vitae nisi faucibus, vitae lacinia turpis mattis.
Lets add a [Color=#ff0000][b]button:[/b][/color] [View=btn Vertical=10/]  and more text here...

We can also add links, for example: [url]https://www.google.com[/url]. You can click on the link. The title will be updated.
Here is a nice logo: [img FileName="logo.png" width=50/]

Do you wonder whether it is possible to add more complex views?
Sure: [vertical=30][view=clv/][/vertical]

Private Sub AnimatePanelText(xlv As CustomListView, _
                         WaitAfter As Int, _
                         Content As String, _
                         Height As Int, _
                         Color As Int) As ResumableSub

    LogSub("AnimatePanel:  Content = " & Content)
 
    Dim p As B4XView = xui.CreatePanel("")
    p.SetLayoutAnimated(0,0,0, xlv.AsView.Width, Height)
    p.SetColorAnimated(0, xui.Color_Transparent, Color)
 
    '    1. Create a layout with BBCodeView.
    '    2. Initialize a BCTextEngine object. This should be called after the BBCodeViews And BBLabels were added.
    p.LoadLayout("pnlBCEngine")
 
    ''BBCodeView1.mBase.SetLayoutAnimated(0,0,0,320,Height)    '    nope

    Dim sp As ScrollPane = BBCodeView1.sv
    sp.SetVScrollVisibility("NEVER")
    ''sp.SetLayoutAnimated(0,0,0,B4M.xDevWidth,Height)
    sp.SetLayoutAnimated(0,0,0,320,Height)    '    nope
    ''sp.FitToWidth = True        '    nope
 
    TextEngine.Initialize(p)
    BBCodeView1.Text = Content

    ''BBCodeView1.Base_Resize(B4M.xDevWidth, Height)    '    nope

    xlv.Add(p, xlv.Size)    '     unique at least
 
    p = xlv.GetPanel(xlv.Size-1)
    p.Visible = False
    p.SetVisibleAnimated(WaitAfter, True)
 
    If xui.IsB4J Then
        Sleep(0)
    Else
        Sleep(WaitAfter)
    End If
 
    Return True
 
End Sub

#Region Project Attributes
    #MainFormWidth: 600
    #MainFormHeight: 600
#End Region

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI

    Private BBCodeView1 As BBCodeView
    Private TextEngine As BCTextEngine
    Private xlvText As CustomListView

End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.Show
   
    '    works perfectly by itself
''    TextEngine.Initialize(MainForm.RootPane)
''    BBCodeView1.Text = "[Alignment=Center][TextSize=24][color=#f9a11b][Vertical=30]I am TEXT.[/Vertical][/color]"
''    Dim sp As ScrollPane = BBCodeView1.sv
''    sp.SetVScrollVisibility("NEVER")

    xlvText.Clear

    For i = 0 To 1
       
        '    strange void at right of p panel -- color is background of Layout1
       
        Dim p As B4XView = xui.CreatePanel("")
        p.SetLayoutAnimated(0,0,0, 320, 100)
        p.LoadLayout("pnlBCEngine")
       
        TextEngine.Initialize(p)
       
        BBCodeView1.Text = "[Alignment=Center][TextSize=24][color=#f9a11b][Vertical=30]I am TEXT.[/Vertical][/color]"
        Dim sp As ScrollPane = BBCodeView1.sv
        sp.SetVScrollVisibility("NEVER")
       
        xlvText.Add(p,i)
       
    Next
   
End Sub

sp.SetVScrollVisibility("NEVER")