Sub CreateBitmapWithText (text As String,bcol As Int,ubmp As String)
Dim img As B4XBitmap = xui.LoadBitmap(File.DirApp & "\images", ubmp)
Dim cvs As B4XCanvas = CreateCanvas(img.Width, img.Height)
cvs.DrawBitmap(img, cvs.TargetRect)
Dim offset As Int = 10
cvs.DrawText(text, 0, cvs.TargetRect.Height / 2 + offset, xui.CreateDefaultBoldFont(40 / scale), bcol, "CENTER")
cvs.Invalidate
Dim out As OutputStream = File.OpenOutput(File.DirApp & "\images", "fff1.png", False)
cvs.CreateBitmap.WriteToStream(out,100,"PNG")
out.Close
cvs.Release
End Sub
Private Sub CreateCanvas(width As Int, height As Int) As B4XCanvas
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, width, height)
Dim cvs As B4XCanvas
cvs.Initialize(p)
Return cvs
End Sub