Android Question Chat Example - BCTextEngine

Dim imgRun As B4XBitmap = LoadBitmapResize(File.DirAssets, "imagemArquivo.png", 15dip, 15dip, True)
Dim TextRun As BCTextRun = Engine.CreateRun(Text & CRLF)
TextRun.TextFont = xui.CreateFont(fontRegular,14)
Dim time As BCTextRun = Engine.CreateRun(hora)
time.TextFont = xui.CreateFont(fontRegular,10)
If Right Then time.TextColor = 0xFFF1F1F1 Else time.TextColor = xui.Color_Gray

Return Array(imgRun, TextRun, time)

'BBCodeView1.ExternalRuns = BuildMessage(Text, User)
'BBCodeView1.ParseAndDraw
BBCodeView1.Text = BuildMessage(Text, User) 'BuildMessage returns String

BBCodeView1.Text = BuildMessage(Text, Right, timeParsed)

Dim msg As String
msg = $"[img FileName="imagemArquivo.png" width=15/] [font=fontRegular size=14]${Text}[/font] [font=fontRegular size=10]${CRLF & hora}[/font]"$
Return msg

Dim ivText As B4XView = CreateImageView
'get the bitmap from BBCodeView1 foreground layer.
Dim bmpText As B4XBitmap = GetBitmap(BBCodeView1.ForegroundImageView)
'the image might be scaled by Engine.mScale. The "correct" dimensions are:
Dim TextWidth As Int = bmpText.Width / Engine.mScale
Dim TextHeight As Int = bmpText.Height / Engine.mScale
'bc is not really used here. Only the utility method.
bc.SetBitmapToImageView(bmpText, ivText)
Dim ivBG As B4XView = CreateImageView
'Draw the bubble.
Dim bmpBG As B4XBitmap = DrawBubble(TextWidth, TextHeight, Right)
bc.SetBitmapToImageView(bmpBG, ivBG)
p.SetLayoutAnimated(0, 0, 0, CLV.sv.ScrollViewContentWidth - 2dip, TextHeight + 3 * Gap)
'2020-01-16 16:54:29
DateTime.DateFormat = "yyyy-MM-dd HH:mm:ss"
If Right Then
        p.AddView(ivBG, p.Width - bmpBG.Width * xui.Scale, Gap, bmpBG.Width * xui.Scale, bmpBG.Height * xui.Scale) 'BALÃO
        p.AddView(ivText, p.Width - Gap - ArrowWidth - TextWidth, 2 * Gap, TextWidth, TextHeight) 'TEXTO
...

    'BBCodeView1.ExternalRuns = BuildMessage(Text, User)
    'BBCodeView1.ParseAndDraw

    BBCodeView1.Text = $"[img FileName="myimg.png" width=50/][b]${User}[/b]
    [Alignment=Left]${Text}[/Alignment]
    [TextSize=10][Color=#999999]${DateTime.Time(DateTime.Now)}[/Color][/TextSize]
    "$
   
    Dim bmpText As B4XBitmap = GetBitmap(BBCodeView1.ForegroundImageView)
    'get the bitmap from BBCodeView1 foreground layer for dimensions.
    'the image might be scaled by Engine.mScale. The "correct" dimensions are:
    Dim TextWidth As Int = 50 + bmpText.Width / Engine.mScale
    Dim TextHeight As Int = - 10 + bmpText.Height / Engine.mScale

    'Now get the whole image
    Dim bmpAll As B4XBitmap = BBCodeView1.mBase.Snapshot
    bmpText = bmpAll.Crop(0, 0, TextWidth, TextHeight)

    Dim TextWidth As Int = 50 + bmpText.Width / Engine.mScale
    Dim TextHeight As Int = - 10 + bmpText.Height / Engine.mScale