GLBasic forum

Is there any way to centre justify printed text or any other justification(left,right)

I make a small function for you, one moment pls ;)

So i got it  :D

CENTER TEXT:

// SX = String X (Center);    SY = StringY (Center)

FUNCTION Print_C: String$,SX,SY,Font_number

SETFONT Font_number

GETFONTSIZE FontX, FontY

PRINT String$, SX - (LEN(String$)*FontX)/2, SY - FontY / 2

ENDFUNCTIONTEXT RIGHT:
FUNCTION Print_R: String$,SX,SY,Font_number

SETFONT Font_number

GETFONTSIZE FontX, FontY

PRINT String$, SX - (LEN(String$)*FontX), SY - FontY / 2

ENDFUNCTIONText to the left are the normal Print ;)

For Example:

GLOBAL WinX = 800
GLOBAL WinY = 600

SETSCREEN WinX,WinY,0




WHILE TRUE

PRINT "Whats up there",0,WinY/2+10
Print_R("Test at the right side of life..... XD",WinX,WinY/2,0) // Set the Text to the right
Print_C("Hello World",WinX/2,WinY/2+10,0) // Center Text

SHOWSCREEN
WEND
END




FUNCTION Print_C: String$,SX,SY,Font_number

SETFONT Font_number

GETFONTSIZE FontX, FontY

PRINT String$, SX - (LEN(String$)*FontX)/2, SY - FontY / 2

ENDFUNCTION



FUNCTION Print_R: String$,SX,SY,Font_number

SETFONT Font_number

GETFONTSIZE FontX, FontY

PRINT String$, SX - (LEN(String$)*FontX), SY - FontY / 2

ENDFUNCTION

Works great.Thank you.

no problem ;)