Public Sub TextToBitmap (Text As String, FontSize As Float, FontColor As Int, TextAlignment As String) As B4XBitmap
Dim xui As XUI
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 700dip, 700dip)
Dim cvs1 As B4XCanvas
cvs1.Initialize(p)
Dim fnt As B4XFont = xui.CreateDefaultFont(FontSize)
Dim r As B4XRect = cvs1.MeasureText(Text, fnt)
Dim BaseLine As Int = cvs1.TargetRect.CenterY - r.Height / 2 - r.Top
cvs1.DrawText(Text, cvs1.TargetRect.CenterX, BaseLine, fnt, FontColor, TextAlignment)
Dim b As B4XBitmap = cvs1.CreateBitmap
cvs1.Release
Return b
End Sub