Display paragraph

BlitzMax Forums/BlitzMax Beginners Area/Display paragraph

hub	(Posted 2010) [#1]

Hi !
i'm searching an idea to oode a function to display a text paragraph. Something very basic using drawtext, setimagefont.

Function DrawParagraph (Text$, posX, PosY, pWidth)

Width is the paragraph width in pixels. PosX, PosY the text location.

(note that i need to save the paragraph inside a single string variable as i save it later into a file using a writeline hFile, Text$ command.)

What the best method for the function ?

My idea
- Put words inside an array from the string text$
- calculate textwidth for each word + one space. Cumulate the width (w) and go to the next line when w > pWidth then drawtext and PosY = PosY + 15 and w=0 for the next line ?

(sorry i've not bmax on this computer, i'm not at home !)

Thanks for your help !

Last edited 2010

Jesse

(Posted 2010) [#2]

There is a recent example in the code archives:
http://www.blitzmax.com/codearcs/codearcs.php?code=2776#comments

hub	(Posted 2010) [#3]

This is blitzbasic code but easy to convert. Thanks to point this (i've used the .bmx filter on my last code archive search).

hub	(Posted 2010) [#4]

seems to work now.

Strict

Graphics 800, 600
Global work$[50+1,1+1]

Global fntArial:TImageFont = LoadImageFont("Arial", 20, SMOOTHFONT)
Global fntTimes:TImageFont = LoadImageFont("Times New Roman", 20, SMOOTHFONT)

Global msg1$

msg1$="Not a database guru? Need another example? Okay. Let's say you are setting "
msg1$=msg1$+"up an auditorium for a speech or event and you are putting up hundreds of chairs for "
msg1$=msg1$+"the spectators. The chairs have to be in a certain place on the floor, and some will "
msg1$=msg1$+"need to be raised up a bit higher than others (visiting dignitaries, the mayor is "
msg1$=msg1$+"coming, etc.). So being the computer genius you are, you start figuring out how you "
msg1$=msg1$+"can layout the chairs with the least amount of effort. You realize that the floor "
msg1$=msg1$+"is checkered, so its really a huge grid! This will make it easy! You just need to "
msg1$=msg1$+"number the floor on a piece of graph paper and put into the grid how high each "
msg1$=msg1$+"chair should be, based on where the boss told you the important people are to sit. "
msg1$=msg1$+"So, for each chair, you will have a row and column on the graph paper (x and y location) "
msg1$=msg1$+"and a level to adjust the chair to (height). Good, we are organized. Now, even "
msg1$=msg1$+"though we have it all on paper, we still have to do the work of placing all the "
msg1$=msg1$+"chairs. After you are done, let's say your boss walks up to you and says 'they aren't "
msg1$=msg1$+"centered right .. move'em all over 1 square'. Oh no! You have them all perfect, and "
msg1$=msg1$+"even though it is a simple thing to move a chair one square to the right (After all, "
msg1$=msg1$+"their order and height won't change) - you still have to move each and every chair! "
msg1$=msg1$+"Sure would be nice if you could just wave your hand and say 'For Each chair in the "
msg1$=msg1$+"room, add 1 square to its x location' and have it just magically happen. Alas, in "
msg1$=msg1$+"the real world, get busy - you've got a lot of chairs to move!"


Global msg2$

msg2$ = "In Blitz, you could have set up a TYPE called CHAIR, set the TYPE's FIELDS "
msg2$=msg2$+"as X, Y, and HEIGHT. You would then create as many chairs as you need with the NEW "
msg2$=msg2$+"command (each time you call NEW, it makes a new chair, with its OWN X, Y, and HEIGHT "
msg2$=msg2$+"variables) and assign them the X, Y, and HEIGHT values you decide upon. In our "
msg2$=msg2$+"example above, when the boss told you to move the chairs over 1 box, you probably "
msg2$=msg2$+"groaned inside. That's a lot of work! In Blitz, we could use four lines of code to "
msg2$=msg2$+"adjust all our CHAIR objects to the new position (using FOR ... EACH commands). "



While Not KeyDown (KEY_ESCAPE)


Cls

SetImageFont fntTimes
wrapText(  10,  10, msg1$, 780, 0,0,0, 248,255,192, 1)

'SetImageFont fntArial
'wrapText(  10, 380, msg2$, 780, 255,255,255, 32,80,192, 1)
'wrapText( 250, 545,"Click to view side-by-side layout",300, 255,255,255, 255,0,0, 1)

SetColor 255,255,255
DrawText "En cours",300,300


Flip

Wend

fntArial = Null
fntTimes = Null

End

Function wrapText%(x%, y%, msg$, wide%, fr%, fg%, fb%, br%, bg%, bb%, center% = 0)
'=======================================================================
' This function wraps text inside of a rounded rectangle with an option to
' center the text.
'=======================================================================
' x,y = upperleft coordinates of the rounded rectangle
'
' msg$ = text string that you wish to place in rounded rectangle
'
' wide = maximum width of button in pixels
'
' fr, fg, fb = text color (RGB triplet)
'
' br, bg, bb = button color (RGB triplet)
'
' center = when 'center' = 1 then each line of text is centered
'		   the default setting is zero. (no centering)
'=======================================================================
	Local  rad%, initX%, initY%, txtHigh%, count%, nxtWord$, flag%, txtCenter%
	Local tLine$, temp$, lineCount%, boxWide%, boxHigh%, pad%, tLen%
	
	pad = 10 'the padding can be adjusted to suit your particular needs
	rad = 9  'radius of rounded corner - values 2 To 26 recommended
	Local  diam = rad + rad 'diameter of circles
	initX = x
	initY = y
	Local  txtWide = wide - pad*2
	txtHigh = TextHeight(msg$) 'height of Current font in pixels	
	
	y = y + pad
	Repeat
		count = count + 1
		nxtWord$ = Word$(msg$, count, " ")
		tLine$ = temp$
		temp$ = temp$ + nxtWord$ + " "
		If TextWidth(temp$) >= txtWide Then
			tLine$ = Trim(tLine$)
			lineCount = lineCount+1
			work$[lineCount,0] = String(x) + " " + String(y)
			work$[lineCount,1] = tLine$
			y = y + txtHigh
			temp$ = ""
			count = count-1
		End If
	Until nxtWord$ = ""
	
	tLine$ = Trim(tLine$)
	If work$[lineCount,1] <> tLine$ Then
		lineCount = lineCount + 1
		work$[lineCount,0] = String(x)+" "+String(y)
		work$[lineCount,1] = tLine$
	End If
	
	boxWide = wide
	boxHigh = lineCount * txtHigh + pad*2
	SetColor br, bg, bb
	'draw the filled circles To make rounded corners
	DrawOval initX, initY, diam, diam
	DrawOval initX, initY+boxHigh-diam-1, diam, diam
	DrawOval initX+boxWide-diam-1, initY, diam, diam
	DrawOval initX+boxWide-diam-1, initY+boxHigh-diam-1, diam, diam
	'fill in the space between circles using filled boxes
	DrawRect initX, initY+rad, boxWide-1, boxHigh-diam-1
	DrawRect initX+rad, initY, boxWide-diam-1, boxHigh-1
	SetColor fr, fg, fb
	
	For Local i = 1 To lineCount
		x = Int(Word(work$[i,0],1))
		y = Int(Word(work$[i,0],2))
		'Notify "y=" + y
		If center = 1 Then
			tLen = TextWidth(work$[i,1])
			txtCenter = (boxWide - tLen) Shr 1
			x = x + txtCenter
		Else 
			x = x + pad
		End If
		DrawText work$[i,1], x, y 
	Next
	
End Function

Function Word:String(string2Chk$, n, delimiter$=" ")
	'initialize local variables
	Local count%, findDelimiter%, position%, Current$
		
	count = 0
	findDelimiter = 0
	position = 1
	'current$ = ""

	''n' must be greater than zero
	'otherwise exit function and return null string
	If n > 0 Then
		'strip leading and trailing spaces
		string2Chk$  = Trim(string2Chk$)
		'find the word(s)
		Repeat
			'first check if the delimiter occurs in string2Chk$
			findDelimiter% = Instr(string2Chk$,delimiter$,position)
			If findDelimiter <> 0 Then
				'extract current word in string2Chk$
				Current$ = Mid$(string2Chk$,position,findDelimiter-position)
				'word extracted; increment counter
				count = count + 1
				'update the start position of the next pass
				position = findDelimiter + 1
				'if counter is same as n then exit loop
				If count = n Then findDelimiter = 0
			End If
		Until findDelimiter = 0
		'Special Case: only one word and no delimiter(s) or last word in string2Chk$
		If (count < n) And (position <= Len(string2Chk$)) Then
			Current$ = Mid$(string2Chk$,position, Len(string2Chk$) - position+1)
			count = count + 1
			'looking for word that is beyond length of string2Chk$
			If count < n Then Current$ = ""
		End If
	End If
	'Notify Current$
	Return Current$
	
End Function 

 the space between circles using filled boxes
	DrawRect initX, initY+rad, boxWide-1, boxHigh-diam-1
	DrawRect initX+rad, initY, boxWide-diam-1, boxHigh-1
	SetColor fr, fg, fb
	
	For i = 1 To lineCount
		x = Int(Word(work$[i,0],1))
		y = Int(Word(work$[i,0],2))
		'Notify "y=" + y
		If center = 1 Then
			tLen = TextWidth(work$[i,1])
			txtCenter = (boxWide - tLen) Shr 1
			x = x + txtCenter
		Else 
			x = x + pad
		End If
		DrawText work$[i,1], x, y 
	Next
	
End Function

Function Word:String(string2Chk$, n, delimiter$=" ")
	'initialize local variables
	Local count%, findDelimiter%, position%, Current$
		
	count = 0
	findDelimiter = 0
	position = 1
	'current$ = ""

	''n' must be greater than zero
	'otherwise exit function and return null string
	If n > 0 Then
		'strip leading and trailing spaces
		string2Chk$  = Trim(string2Chk$)
		'find the word(s)
		Repeat
			'first check if the delimiter occurs in string2Chk$
			findDelimiter% = Instr(string2Chk$,delimiter$,position)
			If findDelimiter <> 0 Then
				'extract current word in string2Chk$
				Current$ = Mid$(string2Chk$,position,findDelimiter-position)
				'word extracted; increment counter
				count = count + 1
				'update the start position of the next pass
				position = findDelimiter + 1
				'if counter is same as n then exit loop
				If count = n Then findDelimiter = 0
			End If
		Until findDelimiter = 0
		'Special Case: only one word and no delimiter(s) or last word in string2Chk$
		If (count < n) And (position <= Len(string2Chk$)) Then
			Current$ = Mid$(string2Chk$,position, Len(string2Chk$) - position+1)
			count = count + 1
			'looking for word that is beyond length of string2Chk$
			If count < n Then Current$ = ""
		End If
	End If
	'Notify Current$
	Return Current$
	
End Function

Last edited 2010

Jesse

(Posted 2010) [#5]

That code doesn't work as is. I think you left some code that was there before the edit. anyway I had a go at it and made a one to one port:

SuperStrict
AppTitle = "Wrapped and Centered Text in Rounded Rects"
Graphics 800, 600

Local fntArial:timagefont = LoadImageFont("application/Arial", 20)
Local fntTimes:timageFont = LoadImageFont("application/Times New Roman", 20)
Local msg1$
'text excerpted from Blitz help on 'Types'
msg1$=msg1$+"Not a database guru? Need another example? Okay. Let's say you are setting "
msg1$=msg1$+"up an auditorium for a speech or event and you are putting up hundreds of chairs for "
msg1$=msg1$+"the spectators. The chairs have to be in a certain place on the floor, and some will "
msg1$=msg1$+"need to be raised up a bit higher than others (visiting dignitaries, the mayor is "
msg1$=msg1$+"coming, etc.). So being the computer genius you are, you start figuring out how you "
msg1$=msg1$+"can layout the chairs with the least amount of effort. You realize that the floor "
msg1$=msg1$+"is checkered, so its really a huge grid! This will make it easy! You just need to "
msg1$=msg1$+"number the floor on a piece of graph paper and put into the grid how high each "
msg1$=msg1$+"chair should be, based on where the boss told you the important people are to sit. "
msg1$=msg1$+"So, for each chair, you will have a row and column on the graph paper (x and y location) "
msg1$=msg1$+"and a level to adjust the chair to (height). Good, we are organized. Now, even "
msg1$=msg1$+"though we have it all on paper, we still have to do the work of placing all the "
msg1$=msg1$+"chairs. After you are done, let's say your boss walks up to you and says 'they aren't "
msg1$=msg1$+"centered right .. move'em all over 1 square'. Oh no! You have them all perfect, and "
msg1$=msg1$+"even though it is a simple thing to move a chair one square to the right (After all, "
msg1$=msg1$+"their order and height won't change) - you still have to move each and every chair! "
msg1$=msg1$+"Sure would be nice if you could just wave your hand and say 'For Each chair in the "
msg1$=msg1$+"room, add 1 square to its x location' and have it just magically happen. Alas, in "
msg1$=msg1$+"the real world, get busy - you've got a lot of chairs to move!"

Local msg2$
msg2$ = "In Blitz, you could have set up a TYPE called CHAIR, set the TYPE's FIELDS "
msg2$=msg2$+"as X, Y, and HEIGHT. You would then create as many chairs as you need with the NEW "
msg2$=msg2$+"command (each time you call NEW, it makes a new chair, with its OWN X, Y, and HEIGHT "
msg2$=msg2$+"variables) and assign them the X, Y, and HEIGHT values you decide upon. In our "
msg2$=msg2$+"example above, when the boss told you to move the chairs over 1 box, you probably "
msg2$=msg2$+"groaned inside. That's a lot of work! In Blitz, we could use four lines of code to "
msg2$=msg2$+"adjust all our CHAIR objects to the new position (using FOR ... EACH commands). "



SetImageFont fntTimes
wrapText(  10,  10, msg1$, 780, 0,0,0, 248,255,192, 1)

SetImageFont fntArial
wrapText(  10, 380, msg2$, 780, 255,255,255, 32,80,192, 1)

wrapText( 250, 545,"Click to view side-by-side layout",300, 255,255,255, 255,0,0, 1)
Flip
WaitMouse()

Cls
SetImageFont fntArial	'switch from Times To Arial
wrapText( 10,   5, msg1$, 470, 0,0,0, 248,255,192, 0)

SetImageFont fntTimes 	'switch from Arial To Times
wrapText( 490, 5, msg2$, 300, 255,255,255, 32,80,192, 0)

wrapText( 540, 465,"Waiting for left mouse click to exit.",200, 255,255,255, 255,0,0,1)

Flip 

WaitMouse()

End

Function wrapText%(x%, y%, msg$, wide%, fr%, fg%, fb%, br%, bg%, bb%, center% = 0)
'=======================================================================
' This Function wraps text inside of a rounded rectangle with an option To
' center the text.
'=======================================================================
' x,y = upperleft coordinates of the rounded rectangle
'
' msg$ = text String that you wish To place in rounded rectangle
'
' wide = maximum width of button in pixels
'
' fr, fg, fb = text color (RGB triplet)
'
' br, bg, bb = button color (RGB triplet)
'
' center = when 'center' = 1 then each line of text is centered
'		   the Default setting is zero. (no centering)
'=======================================================================
	Local rad%, initX%, initY%, txtHigh%, count%, nxtWord$, flag%, txtCenter%
	Local tLine$, temp$, lineCount%, boxWide%, boxHigh%, pad%, tLen%
	
	Local work$[50,2]
	pad = 10 'the padding can be adjusted To suit your particular needs
	rad = 9  'radius of rounded corner - values 2 To 26 recommended
	Local diam:Int = rad + rad 'diameter of circles
	initX = x
	initY = y
	Local txtWide:Int = wide - pad*2
	txtHigh:Int = TextHeight(msg$) 'height of Current font in pixels
	y = y + pad
	Repeat
		count = count + 1
		nxtWord$ = Word$(msg$, count, " ")
		tLine$ = temp$
		temp$ = temp$ + nxtWord$ + " "
		If TextWidth(temp$) >= txtWide Then
			tLine$ = Trim(tLine$)
			lineCount = lineCount+1
			work$[lineCount,0] = x+" "+y
			work$[lineCount,1] = tLine$
			y = y + txtHigh
			temp$ = ""
			count = count-1
		End If
	Until nxtWord$ = ""
	
	tLine$ = Trim(tLine$)
	If work$[lineCount,1] <> tLine$ Then
		lineCount = lineCount + 1
		work$[lineCount,0] = x+" "+y
		work$[lineCount,1] = tLine$
	End If
	
	boxWide = wide
	boxHigh = lineCount * txtHigh + pad*2
	SetColor br, bg, bb
	'draw the filled circles To make rounded corners
	DrawOval initX, initY, diam, diam
	DrawOval initX, initY+boxHigh-diam-1, diam, diam
	DrawOval initX+boxWide-diam-1, initY, diam, diam
	DrawOval initX+boxWide-diam-1, initY+boxHigh-diam-1, diam, diam
	'fill in the space between circles using filled boxes
	DrawRect initX, initY+rad, boxWide-1, boxHigh-diam-1
	DrawRect initX+rad, initY, boxWide-diam-1, boxHigh-1
	SetColor fr, fg, fb
	For Local i:Int = 0 To lineCount
		x = Word$( work$[i,0], 1).toint()
		y = Word$( work$[i,0], 2).toint()
		If center = 1 Then
			tLen = TextWidth(work$[i,1])
			txtCenter = (boxWide - tLen) Shr 1
			x = x + txtCenter
		Else 
			x = x + pad
		End If
		DrawText work$[i,1],x ,y
	Next
End Function

Function Word$(string2Chk$, n:Int, delimiter$=" ")
	'initialize Local variables
	Local count%, findDelimiter%, position%, Current$
		
	count = 0
	findDelimiter = 0
	position = 1
	'Current$ = ""

	''n' must be greater than zero
	'otherwise Exit Function And Return Null String
	If n > 0 Then
		'strip leading And trailing spaces
		string2Chk$  = Trim(string2Chk$)
		'find the word(s)
		Repeat
			'first check If the delimiter occurs in string2Chk$
			findDelimiter% = Instr(string2Chk$,delimiter$,position)
			If findDelimiter <> 0 Then
				'extract Current word in string2Chk$
				Current$ = Mid$(string2Chk$,position,findDelimiter-position)
				'word extracted' increment counter
				count = count + 1
				'update the start position of the Next pass
				position = findDelimiter + 1
				'If counter is same as n Then Exit loop
				If count = n Then findDelimiter = 0
			End If
		Until findDelimiter = 0
		'Special Case: only one word And no delimiter(s) Or last word in string2Chk$
		If (count < n) And (position <= Len(string2Chk$)) Then
			Current$ = Mid$(string2Chk$,position, Len(string2Chk$) - position+1)
			count = count + 1
			'looking For word that is beyond length of string2Chk$
			If count < n Then Current$ = ""
		End If
	End If
	Return Current$
End Function

hub	(Posted 2010) [#6]

More basic.

' adapted from blitzplus code from Andy_A
Strict

Graphics 800, 600

Global fntTimes:TImageFont = LoadImageFont("arial", 50, SMOOTHFONT)
'If fntTimes = Null Then "oops"

Global msg1$

msg1$="Not a database guru? Need another example? Okay. Let's say you are setting "
msg1$=msg1$+"up an auditorium for a speech or event and you are putting up hundreds of chairs for "
msg1$=msg1$+"the spectators. The chairs have to be in a certain place on the floor, and some will "
msg1$=msg1$+"need to be raised up a bit higher than others (visiting dignitaries, the mayor is "
msg1$=msg1$+"coming, etc.). So being the computer genius you are, you start figuring out how you "
msg1$=msg1$+"can layout the chairs with the least amount of effort. You realize that the floor "
msg1$=msg1$+"is checkered, so its really a huge grid! This will make it easy! You just need to "
msg1$=msg1$+"number the floor on a piece of graph paper and put into the grid how high each "
msg1$=msg1$+"chair should be, based on where the boss told you the important people are to sit. "
msg1$=msg1$+"So, for each chair, you will have a row and column on the graph paper (x and y location) "

' --------------------------------------------------------------------------------------------------------------

Function wrapText%(x%, y%, msg$, wide%, center% = 0)

	'
	' This function wraps text inside of a rounded rectangle with an option to
	' center the text.
	'
	' x,y = upperleft coordinates of the rounded rectangle
	' msg$ = text string that you wish to place in rounded rectangle
	' wide = maximum width of button in pixels
	' center = when 'center' = 1 then each line of text is centered
	'		   the default setting is zero. (no centering)
	'

	Local work$[50+1,1+1]
	Local txtHigh%, count%, nxtWord$, flag%, txtCenter%
	Local tLine$, temp$, lineCount%, tLen%
	
	Local  txtWide = wide
	txtHigh = TextHeight(msg$) 'height of Current font in pixels	
	
	y = y 
	Repeat
		count = count + 1
		nxtWord$ = Word$(msg$, count, " ")
		tLine$ = temp$
		temp$ = temp$ + nxtWord$ + " "
		If TextWidth(temp$) >= txtWide Then
			tLine$ = Trim(tLine$)
			lineCount = lineCount+1
			work$[lineCount,0] = String(x) + " " + String(y)
			work$[lineCount,1] = tLine$
			y = y + txtHigh
			temp$ = ""
			count = count-1
		End If
	Until nxtWord$ = ""
	
	tLine$ = Trim(tLine$)
	If work$[lineCount,1] <> tLine$ Then
		lineCount = lineCount + 1
		work$[lineCount,0] = String(x)+" "+String(y)
		work$[lineCount,1] = tLine$
	End If
	
	For Local i = 1 To lineCount
		x = Int(Word(work$[i,0],1))
		y = Int(Word(work$[i,0],2))
		If center = 1 Then
			tLen = TextWidth(work$[i,1])
			txtCenter = (Wide - tLen) Shr 1
			x = x + txtCenter
		End If
		DrawText work$[i,1], x, y 
	Next
	
End Function

' --------------------------------------------------------------------------------------------------------------

Function Word:String(string2Chk$, n, delimiter$=" ")
	'initialize local variables
	Local count%, findDelimiter%, position%, Current$
		
	count = 0
	findDelimiter = 0
	position = 1
	Current$ = ""

	''n' must be greater than zero
	'otherwise exit function and return null string
	If n > 0 Then
		'strip leading and trailing spaces
		string2Chk$  = Trim(string2Chk$)
		'find the word(s)
		Repeat
			'first check if the delimiter occurs in string2Chk$
			findDelimiter% = Instr(string2Chk$,delimiter$,position)
			If findDelimiter <> 0 Then
				'extract current word in string2Chk$
				Current$ = Mid$(string2Chk$,position,findDelimiter-position)
				'word extracted; increment counter
				count = count + 1
				'update the start position of the next pass
				position = findDelimiter + 1
				'if counter is same as n then exit loop
				If count = n Then findDelimiter = 0
			End If
		Until findDelimiter = 0
		'Special Case: only one word and no delimiter(s) or last word in string2Chk$
		If (count < n) And (position <= Len(string2Chk$)) Then
			Current$ = Mid$(string2Chk$,position, Len(string2Chk$) - position+1)
			count = count + 1
			'looking for word that is beyond length of string2Chk$
			If count < n Then Current$ = ""
		End If
	End If
	Return Current$
	
End Function 

' --------------------------------------------------------------------------------------------------------------

SetColor 255,255,255

SetImageFont fntTimes

While Not KeyDown (KEY_ESCAPE)

	Cls
	wrapText(  100,  100, msg1$, 500, 0)
	Flip

Wend

fntTimes = Null

End

Jesse

(Posted 2010) [#7]

usable!

Do you, or anybody know how to change image font in a mac? I mean find the font and set it.

never mind figured it out:

/library/fonts/fontname

Last edited 2010