B4J Question [Solved] Need help with Canvas.DrawText.

Dominik H said:

My end goal for drawing text is so that I can stretch it out, and modify it. using simply a label does not allow me to achieve this.

Click to expand...

Daestrum said:

Are you calling cnv.ClearRect(...) each time before the DrawText ?

eg

B4X:

Sub DrawIt(s As String)
    cnv.ClearRect(0,0,cnv.Width ,cnv.Height)
    cnv.DrawText(s,cnv.width/2,cnv.height, fx.DefaultFont(20),fx.Colors.Blue,"CENTER")
End Sub

Click to expand...

Erel said:

Tip: I never use Canvas. B4XCanvas is preferred as it is cross platform.

Not sure what exactly are you trying to do but check BCTextEngine.

Click to expand...

Dominik H said:

I'm at a loss here. I need to dynamically draw text with Canvas.DrawText, and while it works the first time around, when the text is changed it overlaps.
I've tried:

• Canvas.ClearRect()
• Canvas.DrawRect() - with fx.Colors.Transparent
• Setting views invisible and visible again
• Adding and removing canvas from pane.

Not sure what else to try. Here is what I mean:

Code in question::

cnv.DrawText(New, cnv.Width/2, cnv.Height, fx.LoadFont(File.DirAssets, "ITC_Souvenir_LT_Light.ttf", 48), fx.Colors.Black, "CENTER")

My end goal for drawing text is so that I can stretch it out, and modify it. using simply a label does not allow me to achieve this.

Click to expand...

klaus said:

What exactly do you want to do?

Click to expand...

Star-Dust said:

Fx.Colors.Transparent doesn't cover just because it is transparent, you have to fill it with the background color (or background image) if you use DrawRec().

But I agree with @Erel, use B4XCanvas.
B4XCanvas.ClearRect (B4XCanvas.TargetRect)

Click to expand...

Can B4XCanvas stretch text (not scale, but stretch as in distorting it)?

Click to expand...

klaus said:

Not directly.
You could draw the text with the given size on a small bitmap.
And the copy the bitmap to a wider rectangle.

Click to expand...

Sub Process_Globals
    Dim cnv As B4XCanvas
    Dim Pane1 As Pane
    Dim rect As B4XRect
    Dim IMG As ImageView
End Sub
--
Sub DrawText
    rect.Initialize(0, 0, Pane1.Width, Pane1.Height)
    cnv.DrawText(New, BMP.Width/2, BMP.Height - 15dip, fx.LoadFont(File.DirAssets, "ITC_Souvenir_LT_Light.ttf", 48), xui.Color_Black, "CENTER")
    IMG.SetImage(BMP.Snapshot2(fx.Colors.Transparent))
    cnv.ClearRect(rect)
End Sub

Erel said:

Tip: I never use Canvas. B4XCanvas is preferred as it is cross platform.

Not sure what exactly are you trying to do but check BCTextEngine.

Click to expand...