B4J Question Looking for an example to add text to an image in b4j

[microbox]

Can anyone share a link to add custom text(color and size) to an image?

 

[DonManfred]

Search for Canvas examples.
Use the canvas, add the image, add text, save the canvas to a new file.

 

[microbox]

I will give it a try, thanks DonManfred

 

[TILogistic]

Very simple:

see:

[SOLVED] Write Text on Image and save

Hi i would like - load a image (from DirAsset) - write text on it - save it (as Copy) i will used it in a UI App, but work is better as "non-UI" how can i do that?, is there an Example?

www.b4x.com

or

Add text to image and save it ("water mark")

Hi all. I found this example in some old folders on my pc and decided to share here. it is a simple example of how add a text into a bitmap and later save it as image file. Download Here 640kb ........

www.b4x.com

 

[microbox]

My demo program is based in UI (project), the code below was created using B4xPage.

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    Dim bmp As B4XBitmap = xui.LoadBitmap(File.DirAssets,"c2.png")
    ImageView1.SetBitmap(bmp)
    pnDraw = xui.CreatePanel("")
    Root.AddView(pnDraw, ImageView1.Left, ImageView1.Top, ImageView1.Width, ImageView1.Height)
    mCanvas.Initialize(pnDraw)
    mRect.Initialize(0, 0, ImageView1.Width+10, ImageView1.Height+10)

    mCanvas.DrawBitmap(ImageView1.Snapshot, mRect)
    
    mCanvas.ClearRect(mCanvas.TargetRect)
    mCanvas.DrawBitmap(ImageView1.Snapshot, mRect)
    mCanvas.DrawText("Hello Test Message", 5, ImageView1.Height - 5 , xui.CreateDefaultFont(20), xui.Color_Blue, "LEFT")
End Sub

'
How can I convert this line of code..
Root.AddView(pnDraw, ImageView1.Left, ImageView1.Top, ImageView1.Width, ImageView1.Height) - gives error (undeclared variable Root)

 

[microbox]

I was able solve the issue by using @klaus's example using jCanvasExt here