DrawText() — New Line Support (#CRLF$)

[Phantomas]

Hello. It would be nice if DrawText() function support New Line, like TextGadget() with #CRLF$.
Example (set #enable constant to 0 or 1):

Code: Select all

#enable = 1 ;1 or 0

OpenWindow(0, #PB_Ignore, #PB_Ignore, 320, 280, "2D Text")
CreateImage(0, 320, 280)
StartDrawing(ImageOutput(0))


CompilerIf #enable
  DrawText(0, 0, "Hello")
  DrawText(0, TextHeight("Hello"), "World!")
CompilerElse
  DrawText(0, 0, "Hello" + #CRLF$ + "World!")
CompilerEndIf

StopDrawing()
ImageGadget(0, 0, 0, 320, 280, ImageID(0))
Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
  EndSelect
ForEver

[STARGÅTE]

It is easy to create a function:

Code: Select all

Procedure DrawTextEx(X.i, Y.i, Text.s)
	Protected I.i, Max = CountString(Text, #CRLF$)+1
	Protected Line.s
	For I = 1 To Max
		Line = StringField(Text, I, #CRLF$)
		DrawText(X, Y, Line)
		Y + TextHeight(" ")
	Next 
EndProcedure

OpenWindow(0, #PB_Ignore, #PB_Ignore, 320, 280, "2D Text")
CreateImage(0, 320, 280)
StartDrawing(ImageOutput(0))

DrawTextEx(0, 0, "Hello" + #CRLF$ + "World!" + #CRLF$ + #CRLF$ + "Nice!")

StopDrawing()
ImageGadget(0, 0, 0, 320, 280, ImageID(0))
Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
  EndSelect
ForEver

[Phantomas]

Yes, but native will be better.
For example, with DrawTextEx() you also need to create "Ex" functions of TextWidth/Height, something else .
Just my wish...

[Taz]

quite confusing function name, thought that NewLine is supported, but now that I needed it I had to realize that's not the case.

The function is called DrawText, would be better DrawString, or add Newline support to DrawText

[walbus]

The DrawText function is very limited in its functionality
There is a better solution, with CR-LF support - and many more

DrawText_EX and DrawText_BF

http://www.purebasic.fr/english/viewtop ... 12&t=69145

[mk-soft]

From me...

DrawTextBox http://www.purebasic.fr/german/viewtopi ... =8&t=27954

[Taz]

Thank you guys