Android Question [Solved by Klaus] 9 patch height

Sub Process_Globals
   Private MainForm As Form
   Private ImageView1 As ImageView
   Private xui As XUI
   Private ImageView2 As ImageView
   Private ImageView3 As ImageView
End Sub

Sub AppStart (Form1 As Form, Args() As String)
   MainForm = Form1
   MainForm.RootPane.LoadLayout("1") 'Load the layout file.
   MainForm.Show
   CreateComicBalloon(ImageView1)
   CreateComicBalloon(ImageView2)
   CreateComicBalloon(ImageView3)
End Sub

Sub CreateComicBalloon (ImageView As B4XView)
   Dim bcGradient As BitmapCreator
   bcGradient.Initialize(ImageView.Width / xui.Scale, ImageView.Height / xui.Scale)
   bcGradient.FillGradient(Array As Int(xui.Color_White, 0xFFCACACA), bcGradient.TargetRect, "TOP_BOTTOM")
   Dim bc As BitmapCreator
   bc.Initialize(bcGradient.mWidth, bcGradient.mHeight)
   Dim brush As BCBrush = bc.CreateBrushFromBitmapCreator(bcGradient)
   Dim borderBrush As BCBrush = bc.CreateBrushFromColor(xui.Color_Black)
   Dim r As B4XRect
   r.Initialize(0, 0, bc.mWidth, bc.mHeight * 0.8)
   bc.DrawRectRounded2(r, brush, True, 0, 50)
   bc.DrawRectRounded2(r, borderBrush, False, 2, 50)
   Dim path As BCPath
   Dim len As Int = (bc.mHeight - r.Bottom) / 3
   path.Initialize(60, r.Bottom-2)
   path.LineTo(60 + len, bc.mHeight)
   path.LineTo(60 + 2 * len, r.Bottom-2)
   bc.DrawPath2(path, brush, True, 0)
   path.RemoveLastPoint
   bc.DrawPath2(path, borderBrush, False, 1)
   bc.SetBitmapToImageView(bc.Bitmap, ImageView)
End Sub

Sub AdjustLabelHeight(Lbl As Label, Text As String ,TextSize As Float)
    Private jolbl As JavaObject
    Private pl, pt, pr, pb As Int
 
    jolbl = Lbl
    pl = jolbl.RunMethod("getPaddingLeft", Null)
    pt = jolbl.RunMethod("getPaddingTop", Null)
    pr = jolbl.RunMethod("getPaddingRight", Null)
    pb = jolbl.RunMethod("getPaddingBottom", Null)
 
    Private lblDummy As Label
    lblDummy.Initialize("")
 
    Activity.AddView(lblDummy, 0, 0, Lbl.Width - pl - pr, Lbl.Height - pt - pb)
    lblDummy.Text = Text
    lblDummy.TextSize = TextSize
    Lbl.Text = Text
    Lbl.TextSize = TextSize
    Dim su As StringUtils
    Lbl.Height = su.MeasureMultilineTextHeight(lblDummy, Text) + pt + pb
    lblDummy.RemoveView
End Sub

Sub AdjustLabelHeight(Lbl As Label, Text As String ,TextSize As Float)
    Private pd(4) As Int 
    pd = Lbl.Padding 
    Private lblDummy As Label
    lblDummy.Initialize("")
  
    Activity.AddView(lblDummy, 0, 0, Lbl.Width - pd(0) - pd(2), Lbl.Height - pd(1) - pd(3))
    lblDummy.Text = Text
    lblDummy.TextSize = TextSize
    Lbl.Text = Text
    Lbl.TextSize = TextSize
    Dim su As StringUtils
    Lbl.Height = su.MeasureMultilineTextHeight(lblDummy, Text) + pd(1) + pd(3)
    lblDummy.RemoveView
End Sub

' Returns the number of text lines.
Sub AdjustLabelHeight(Lbl As Label) As Int
    Dim lblDummy As Label
    lblDummy.Initialize("")
    Dim Parent As Panel = Lbl.Parent
    Parent.AddView(lblDummy, 0, 0, Lbl.Width - Lbl.Padding(0) - Lbl.Padding(2), Lbl.Height - Lbl.Padding(1) - Lbl.Padding(3))
    lblDummy.Text = Lbl.Text
    lblDummy.TextSize = Lbl.TextSize
    lblDummy.Typeface = Lbl.Typeface
    Dim su As StringUtils
    Lbl.Height = su.MeasureMultilineTextHeight(lblDummy, Lbl.Text) + Lbl.Padding(1) + Lbl.Padding(3)
    lblDummy.RemoveView

    Dim Source As JavaObject = Lbl
    Dim LineCount As Int = Source.RunMethod("getLineCount", Null) + 1
    Return LineCount
End Sub