Color a text - GameCreators Forum

Author

Message

Hubert BAYRE

7

Years of Service

User Offline

Joined: 21st Oct 2017

Location: France

Posted: 26th Jan 2018 21:26 Edited at: 28th Jan 2018 14:56

Link

I'm trying to use tags to color text inside a createtext item.
Not work as expected.
Could you help me ? Perhaps another logic ? The problem occur when i remove the tags (ReplaceString)

Here my code to try :

// Project: ColorText 
// Created: 2018-01-28

SetErrorMode(2)

SetWindowTitle( "ColorText" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 )

SetVirtualResolution( 1024, 768 ) 
SetOrientationAllowed( 1, 1, 1, 1 ) 
SetSyncRate( 30, 0 ) 
SetScissor( 0,0,0,0 ) 
UseNewDefaultFonts( 1 )

#option_explicit

#Constant TRUE 1
#Constant FALSE 0

#Constant TEXT_RED 1
#Constant TEXT_GREEN 2
#Constant TEXT_BLUE 3
#Constant TEXT_BOLD 4

Global Sentence as String
Global MyText as Integer

Function ColorText (Text_id as Integer, Action as Integer)

Local Index as Integer
	Local x as Integer
	
	Local i as Integer
	
	Local Text as String
	Local bFind as Integer

Local Start_tag as String
	Local End_tag as String

Local Zone_startX as Integer[]
	Local Zone_endX as Integer[]
	Local Nb_tags as Integer
	
	Local Value as Integer

Select Action

Case TEXT_RED
			
			Start_tag = "<r>"
			End_tag = "</r>"
			
		EndCase

Case TEXT_GREEN
			
			Start_tag = "<g>"
			End_tag = "</g>"
			
		EndCase

Case TEXT_BLUE
			
			Start_tag = ""
			End_tag = ""
			
		EndCase

Case TEXT_BOLD
			
			Start_tag = "<t>"
			End_tag = "</t>"
			
		EndCase

EndSelect

Text = GetTextString (Text_id)
	
	bFind = TRUE
	Nb_tags = 0
	x = 0
	Index = 1
		
	While bFind <> FALSE
		
		bFind = FALSE
		
		// Find start tag position -> Zone_StartX
		
		x = FindString (Text, Start_tag, 1, Index)
		
		if x <>	0
			
			Value = x - Len(Start_tag) + 1
			
			Zone_StartX.Insert (Value)
			Index = x + 1
			bFind = TRUE
			//message (Start_tag + " from " + str(Index))
		Endif
		
		// Find end tag position -> Zone_EndX
		
		x = FindString (Text, End_tag, 1, Index)
		
		if x <>	0
			
			Value = x - Len(End_tag) 
			
			Zone_EndX.Insert (Value )
			Index = x + 1
			Inc Nb_tags,1
			bFind = TRUE
			//message (End_tag + " to " + str(index))
		Endif
	EndWhile
	
	Local j as Integer
	
	// Set Char color (or bold) from Zone_StarX to Zone_EndX
	
	Select Action

Case TEXT_RED
			
			For i=0 To Nb_tags-1
				For j = Zone_StartX[i] to Zone_EndX[i]
					SetTextCharColor (Text_Id ,j , 255, 0, 0, 255)
				Next
			Next
			
		EndCase

Case TEXT_GREEN
			
			For i=0 To Nb_tags-1
				For j=Zone_StartX[i] to Zone_EndX[i]
					SetTextCharColor (Text_Id, j, 0, 255, 0, 255)
				Next
			Next
			
		EndCase

Case TEXT_BLUE
			
			For i=0 To Nb_tags-1
				For j=Zone_StartX[i] to Zone_EndX[i]
					SetTextCharColor (Text_Id, j, 0, 0, 255, 255)
				Next
			Next
			
		EndCase
		
		Case TEXT_BOLD

For i=0 To Nb_tags-1
				For j=Zone_StartX[i] to Zone_EndX[i]
					SetTextCharBold (Text_Id, j, TRUE)
				Next
			Next
			
		EndCase
			
	EndSelect
	
	// Remove the <tag> and </tag> into the initial text.

Text = ReplaceString (Text, Start_tag,"",-1)
	Text = ReplaceString (Text, End_tag,"",-1)
	
	SetTextString (Text_Id, Text)

EndFunction

Sentence = "Hello everybody <r>This is red text</r>, now this is blue text and <g>this is green text</g>." 
Sentence = Sentence + Chr(10) + "Also <t>bold text</t>."

MyText = CreateText (Sentence)
SetTextSize (MyText, 40)
SetTextMaxWidth (MyText, 400)
SetTextPosition (MyText, (GetDeviceWidth() - GetTextTotalWidth(MyText)) /2, (GetDeviceHeight() - GetTextTotalHeight(MyText)) /2)
SetTextColor (MyText, 255,255,255,255)

ColorText (MyText, TEXT_RED)
ColorText (MyText, TEXT_GREEN)
ColorText (MyText, TEXT_BLUE)
ColorText (MyText, TEXT_BOLD)

do

Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet

// Project: ColorText 
// Created: 2018-01-28


SetErrorMode(2)


SetWindowTitle( "ColorText" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) 


SetVirtualResolution( 1024, 768 ) 
SetOrientationAllowed( 1, 1, 1, 1 ) 
SetSyncRate( 30, 0 ) 
SetScissor( 0,0,0,0 ) 
UseNewDefaultFonts( 1 ) 

#option_explicit

#Constant TRUE 1
#Constant FALSE 0

#Constant TEXT_RED 1
#Constant TEXT_GREEN 2
#Constant TEXT_BLUE 3
#Constant TEXT_BOLD 4

Global Sentence as String
Global MyText as Integer

Function ColorText (Text_id as Integer, Action as Integer)

	
	Local Index as Integer
	Local x as Integer
	
	Local i as Integer
	
	Local Text as String
	Local bFind as Integer

	Local Start_tag as String
	Local End_tag as String

	Local Zone_startX as Integer[]
	Local Zone_endX as Integer[]
	Local Nb_tags as Integer
	
	Local Value as Integer
	

	Select Action

		Case TEXT_RED
			
			Start_tag = "<r>"
			End_tag = "</r>"
			
		EndCase

		Case TEXT_GREEN
			
			Start_tag = "<g>"
			End_tag = "</g>"
			
		EndCase

		Case TEXT_BLUE
			
			Start_tag = "<b>"
			End_tag = "</b>"
			
		EndCase

		Case TEXT_BOLD
			
			Start_tag = "<t>"
			End_tag = "</t>"
			
		EndCase

	EndSelect

	Text = GetTextString (Text_id)
	
	bFind = TRUE
	Nb_tags = 0
	x = 0
	Index = 1
		
	While bFind <> FALSE
		
		bFind = FALSE
		
		// Find start tag position -> Zone_StartX
		
		x = FindString (Text, Start_tag, 1, Index)
		
		if x <>	0
			
			Value = x - Len(Start_tag) + 1
			
			Zone_StartX.Insert (Value)
			Index = x + 1
			bFind = TRUE
			//message (Start_tag + " from " + str(Index))
		Endif
		
		// Find end tag position -> Zone_EndX
		
		x = FindString (Text, End_tag, 1, Index)
		
		if x <>	0
			
			Value = x - Len(End_tag) 
			
			Zone_EndX.Insert (Value )
			Index = x + 1
			Inc Nb_tags,1
			bFind = TRUE
			//message (End_tag + " to " + str(index))
		Endif
	EndWhile
	
	Local j as Integer
	
	// Set Char color (or bold) from Zone_StarX to Zone_EndX
	
	Select Action

		Case TEXT_RED
			
			For i=0 To Nb_tags-1
				For j = Zone_StartX[i] to Zone_EndX[i]
					SetTextCharColor (Text_Id ,j , 255, 0, 0, 255)
				Next
			Next
			
		EndCase

		Case TEXT_GREEN
			
			For i=0 To Nb_tags-1
				For j=Zone_StartX[i] to Zone_EndX[i]
					SetTextCharColor (Text_Id, j, 0, 255, 0, 255)
				Next
			Next
			
		EndCase

		Case TEXT_BLUE
			
			For i=0 To Nb_tags-1
				For j=Zone_StartX[i] to Zone_EndX[i]
					SetTextCharColor (Text_Id, j, 0, 0, 255, 255)
				Next
			Next
			
		EndCase
		
		Case TEXT_BOLD

			For i=0 To Nb_tags-1
				For j=Zone_StartX[i] to Zone_EndX[i]
					SetTextCharBold (Text_Id, j, TRUE)
				Next
			Next
			
		EndCase
			
	EndSelect
	
	// Remove the <tag> and </tag> into the initial text.

	Text = ReplaceString (Text, Start_tag,"",-1)
	Text = ReplaceString (Text, End_tag,"",-1)
	
	SetTextString (Text_Id, Text)

EndFunction



Sentence = "Hello everybody <r>This is red text</r>, now <b>this is blue text</b> and <g>this is green text</g>." 
Sentence = Sentence + Chr(10) + "Also <t>bold text</t>."

MyText = CreateText (Sentence)
SetTextSize (MyText, 40)
SetTextMaxWidth (MyText, 400)
SetTextPosition (MyText, (GetDeviceWidth() - GetTextTotalWidth(MyText)) /2, (GetDeviceHeight() - GetTextTotalHeight(MyText)) /2)
SetTextColor (MyText, 255,255,255,255)

ColorText (MyText, TEXT_RED)
ColorText (MyText, TEXT_GREEN)
ColorText (MyText, TEXT_BLUE)
ColorText (MyText, TEXT_BOLD)

do
    

    Print( ScreenFPS() )
    Sync()
loop

Note : i've edited my previous thread so you can now try the code on your computer.

Back to top

Profile PM

Hubert BAYRE

7

Years of Service

User Offline

Joined: 21st Oct 2017

Location: France

Posted: 28th Jan 2018 15:19

Link

i'm trying another method 'split to word the sentence...

Back to top

Profile PM

Bengismo

7

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 28th Jan 2018 15:34

Link

Hi Hubert

I think the format tags make it hard so I quickly modified the example to do it a different way.

// Project: TextColour 
// Created: 2018-01-26

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "TextColour" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

text$ = "Bonjour a vous, La borne Ehpad2 propose du contenu multimedia à destination des residents, familles et soignants. Elle a ete conçue pour être le plus accessible possible et se veut tres conviviale. C’est un modele unique, un prototype realise tout a la main ! Depuis la conception de son meuble, en passant par la gestion de son ordinateur, jusqu’au programme informatique dedie. Sa conception et sa realisation consomment uniquement du temps personnel, une sorte de benevolat. Aucun temps de soin n’est utilise. Le contenu se veut toujours positif et valorisant. Le projet a ete en sommeil ces derniers mois. La premiere borne a ete un grand retour d’experience et de nombreux echanges avec les residents. Cette nouvelle borne demande quelques reglages avant d'être parfaite. Pour plus d’informations, Contact : hubert.bayre@wanadoo.fr"

Texte_texte_lecture = CreateText (text$)
SetTextSize (Texte_texte_lecture, 40)
SetTextMaxWidth(Texte_texte_lecture,900)
SetTextPosition (Texte_texte_lecture,200,100)
//SetTextColor (Texte_texte_lecture,0,0,0,255)

ColourText (Texte_texte_lecture, "realise tout a la main !", 255,0,0)
ColourText (Texte_texte_lecture, "hubert.bayre@wanadoo.fr", 0,255,0)
ColourText (Texte_texte_lecture, "contenu multimedia à destination des residents", 0,0,255)

do

Print( ScreenFPS() )
    Sync()
loop

Function ColourText(Id as integer, Str1 as string, Red as integer, Green as integer, blue as integer)

Text$ = GetTextString (Id)

St = Findstring(Text$,Str1)
	Ed = St + len(Str1)

for i=St to Ed-1
		SetTextCharColor(Id,i-1,Red,Green,Blue,255)
	next i
	
endfunction

+ Code Snippet

// Project: TextColour 
// Created: 2018-01-26

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "TextColour" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

 
text$ = "Bonjour a vous, La borne Ehpad2 propose du contenu multimedia à destination des residents, familles et soignants. Elle a ete conçue pour être le plus accessible possible et se veut tres conviviale. C’est un modele unique, un prototype realise tout a la main ! Depuis la conception de son meuble, en passant par la gestion de son ordinateur, jusqu’au programme informatique dedie. Sa conception et sa realisation consomment uniquement du temps personnel, une sorte de benevolat. Aucun temps de soin n’est utilise. Le contenu se veut toujours positif et valorisant. Le projet a ete en sommeil ces derniers mois. La premiere borne a ete un grand retour d’experience et de nombreux echanges avec les residents. Cette nouvelle borne demande quelques reglages avant d'être parfaite. Pour plus d’informations, Contact : hubert.bayre@wanadoo.fr"

 
 
Texte_texte_lecture = CreateText (text$)
SetTextSize (Texte_texte_lecture, 40)
SetTextMaxWidth(Texte_texte_lecture,900)
SetTextPosition (Texte_texte_lecture,200,100)
//SetTextColor (Texte_texte_lecture,0,0,0,255)

ColourText (Texte_texte_lecture, "realise tout a la main !", 255,0,0)
ColourText (Texte_texte_lecture, "hubert.bayre@wanadoo.fr", 0,255,0)
ColourText (Texte_texte_lecture, "contenu multimedia à destination des residents", 0,0,255)


do

    Print( ScreenFPS() )
    Sync()
loop


Function ColourText(Id as integer, Str1 as string, Red as integer, Green as integer, blue as integer)

    Text$ = GetTextString (Id)

	St = Findstring(Text$,Str1)
	Ed = St + len(Str1)

	for i=St to Ed-1
		SetTextCharColor(Id,i-1,Red,Green,Blue,255)
	next i
	
endfunction

Back to top

Profile PM

Hubert BAYRE

7

Years of Service

User Offline

Joined: 21st Oct 2017

Location: France

Posted: 28th Jan 2018 15:55

Link

Another version from my previous code : works only with tag </r> !

// Project: ColorText 
// Created: 2018-01-28

SetErrorMode(2)

SetWindowTitle( "ColorText" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 )

SetVirtualResolution( 1024, 768 ) 
SetOrientationAllowed( 1, 1, 1, 1 ) 
SetSyncRate( 30, 0 ) 
SetScissor( 0,0,0,0 ) 
UseNewDefaultFonts( 1 )

#option_explicit

#Constant TRUE 1
#Constant FALSE 0

#Constant TEXT_RED 1
#Constant TEXT_GREEN 2
#Constant TEXT_BLUE 3
#Constant TEXT_BOLD 4

Global Sentence as String
Global MyText as Integer

Function ColorTextToRed (Text_id as Integer)

Local Index as Integer
	Local x as Integer
	
	Local i as Integer
	
	Local Text as String
	Local bFind as Integer

Local Start_tag as String
	Local End_tag as String

Local Zone_startX as Integer[]
	Local Zone_endX as Integer[]
	Local Nb_tags as Integer
	
	Local Value as Integer

Start_tag = "<r>"
	End_tag = "</r>"

Text = GetTextString (Text_id)
	
	bFind = TRUE
	Nb_tags = 0
	x = 0
	Index = 1
		
	While bFind <> FALSE
		
		bFind = FALSE
		
		// Find start tag position -> Zone_StartX
		
		x = FindString (Text, Start_tag, 1, Index)
		
		if x <>	0
			
			Value = x - 1
			
			Zone_StartX.Insert (Value)
			Index = x + 1
			bFind = TRUE
			
			Text = ReplaceString (Text, Start_tag,"",1)
			
		Endif
		
		// Find end tag position -> Zone_EndX
		
		x = FindString (Text, End_tag, 1, Index)
		
		if x <>	0
			
			Value = x - 2
			
			Zone_EndX.Insert (Value )
			Index = x + 1
			Inc Nb_tags,1
			bFind = TRUE
			
			Text = ReplaceString (Text, End_tag,"",1)

Endif

EndWhile

Local j as Integer
	
	For i=0 To Nb_tags-1
		For j = Zone_StartX[i] to Zone_EndX[i]
			SetTextCharColor (Text_Id ,j , 255, 0, 0, 255)
		Next
	Next
	
	SetTextString (Text_Id, Text)

EndFunction

Sentence = "Hello everybody <r>This is red text</r>, now <r>this is always a red text</r> and <r>again red</r>." 
Sentence = Sentence + "And also <r>a red text ;-) !</r>."

MyText = CreateText (Sentence)
SetTextSize (MyText, 40)
SetTextMaxWidth (MyText, 400)
SetTextPosition (MyText, (GetDeviceWidth() - GetTextTotalWidth(MyText)) /2, (GetDeviceHeight() - GetTextTotalHeight(MyText)) /2)
SetTextColor (MyText, 255,255,255,255)

ColorTextToRed (MyText)

do

Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet

// Project: ColorText 
// Created: 2018-01-28


SetErrorMode(2)


SetWindowTitle( "ColorText" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) 


SetVirtualResolution( 1024, 768 ) 
SetOrientationAllowed( 1, 1, 1, 1 ) 
SetSyncRate( 30, 0 ) 
SetScissor( 0,0,0,0 ) 
UseNewDefaultFonts( 1 ) 

#option_explicit

#Constant TRUE 1
#Constant FALSE 0

#Constant TEXT_RED 1
#Constant TEXT_GREEN 2
#Constant TEXT_BLUE 3
#Constant TEXT_BOLD 4

Global Sentence as String
Global MyText as Integer


Function ColorTextToRed (Text_id as Integer)

	
	Local Index as Integer
	Local x as Integer
	
	Local i as Integer
	
	Local Text as String
	Local bFind as Integer

	Local Start_tag as String
	Local End_tag as String

	Local Zone_startX as Integer[]
	Local Zone_endX as Integer[]
	Local Nb_tags as Integer
	
	Local Value as Integer
	

	Start_tag = "<r>"
	End_tag = "</r>"

	Text = GetTextString (Text_id)
	
	bFind = TRUE
	Nb_tags = 0
	x = 0
	Index = 1
		
	While bFind <> FALSE
		
		bFind = FALSE
		
		// Find start tag position -> Zone_StartX
		
		x = FindString (Text, Start_tag, 1, Index)
		
		if x <>	0
			
			Value = x - 1
			
			Zone_StartX.Insert (Value)
			Index = x + 1
			bFind = TRUE
			
			Text = ReplaceString (Text, Start_tag,"",1)
			
		Endif
		
		// Find end tag position -> Zone_EndX
		
		x = FindString (Text, End_tag, 1, Index)
		
		if x <>	0
			
			Value = x - 2
			
			Zone_EndX.Insert (Value )
			Index = x + 1
			Inc Nb_tags,1
			bFind = TRUE
			
			Text = ReplaceString (Text, End_tag,"",1)

		Endif
		

	EndWhile

	
	Local j as Integer
	
	For i=0 To Nb_tags-1
		For j = Zone_StartX[i] to Zone_EndX[i]
			SetTextCharColor (Text_Id ,j , 255, 0, 0, 255)
		Next
	Next
	
	SetTextString (Text_Id, Text)

EndFunction

Sentence = "Hello everybody <r>This is red text</r>, now <r>this is always a red text</r> and <r>again red</r>." 
Sentence = Sentence + "And also <r>a red text ;-) !</r>."

MyText = CreateText (Sentence)
SetTextSize (MyText, 40)
SetTextMaxWidth (MyText, 400)
SetTextPosition (MyText, (GetDeviceWidth() - GetTextTotalWidth(MyText)) /2, (GetDeviceHeight() - GetTextTotalHeight(MyText)) /2)
SetTextColor (MyText, 255,255,255,255)

ColorTextToRed (MyText)

do
    

    Print( ScreenFPS() )
    Sync()
loop

Back to top

Profile PM

Bengismo

7

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 28th Jan 2018 15:58 Edited at: 28th Jan 2018 15:58

Link

The problems is that your code ONLY works when it is is used one with one set of tags....if you try the code above to highlight multiple different sections you have a problem where the colour doesnt line up with where your tags were.

You shorten the text but the highlighted letters stay in the same place so it becomes incorrect. The method I showed works no matter how many different colours or sections of text etc....

Back to top

Profile PM

Hubert BAYRE

7

Years of Service

User Offline

Joined: 21st Oct 2017

Location: France

Posted: 28th Jan 2018 15:59

Link

Thanks Bengismo. I'm testing another idea...

Back to top

Profile PM

Hubert BAYRE

7

Years of Service

User Offline

Joined: 21st Oct 2017

Location: France

Posted: 28th Jan 2018 16:02 Edited at: 28th Jan 2018 16:02

Link

another tag system : Sentence = "Hello everybody <cFF0000>This is red text</c>, now <c00FF00>this is green text</c> and <c0000FF>finally blue</c>."
with my last code.

Back to top

Profile PM

Bengismo

7

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 28th Jan 2018 16:18 Edited at: 28th Jan 2018 16:18

Link

That should work ok as it will process the first tags before later tags in the string and so colour should stay aligned with the text. Very nice!

Back to top

Profile PM

Hubert BAYRE

7

Years of Service

User Offline

Joined: 21st Oct 2017

Location: France

Posted: 28th Jan 2018 16:26 Edited at: 28th Jan 2018 16:33

Link

With red, blue,green color : hexa value like #FF0000

// Project: ColorText 
// Created: 2018-01-28

SetErrorMode(2)

SetWindowTitle( "ColorText" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 )

SetVirtualResolution( 1024, 768 ) 
SetOrientationAllowed( 1, 1, 1, 1 ) 
SetSyncRate( 30, 0 ) 
SetScissor( 0,0,0,0 ) 
UseNewDefaultFonts( 1 )

#option_explicit

#Constant TRUE 1
#Constant FALSE 0

#Constant TEXT_RED 1
#Constant TEXT_GREEN 2
#Constant TEXT_BLUE 3
#Constant TEXT_BOLD 4

Global Sentence as String
Global MyText as Integer

Function ColorTextToRed (Text_id as Integer)

Local Index as Integer
	Local x as Integer
	
	Local i as Integer
	
	Local Text as String
	Local bFind as Integer

Local Start_tag as String
	Local End_tag as String

Local Zone_startX as Integer[]
	Local Zone_endX as Integer[]
	
	Local Zone_Red as String[]
	Local Zone_Blue as String[]
	Local Zone_Green as String[]
	
	Local r_hexa as String
	Local g_hexa as String
	Local b_hexa as String
	
	Local Nb_tags as Integer
	
	Local Value as Integer

Start_tag = "#"
	End_tag = "</c>"

Text = GetTextString (Text_id)
	
	bFind = TRUE
	Nb_tags = 0
	x = 0
	Index = 1
		
	While bFind <> FALSE
		
		bFind = FALSE
		
		// Find start tag position -> Zone_StartX
		
		x = FindString (Text, Start_tag, 1, Index)
		
		if x <>	0
			
			Value = x - 1
			
			Zone_StartX.Insert (Value)
			Index = x + 1
			bFind = TRUE
			
			Text = ReplaceString (Text, Start_tag,"",1)
			
			r_hexa = mid (Text, x, 2)
			g_hexa = mid (Text, x+2,2)
			b_hexa = mid (Text, x+4,2)
			
			Zone_Red.Insert (r_hexa)
			Zone_Green.Insert (g_hexa)
			Zone_Blue.Insert (b_hexa)
			
			Text = ReplaceString (Text, r_hexa + g_hexa + b_hexa,"",1)
			
					
		Endif
		
		// Find end tag position -> Zone_EndX
		
		x = FindString (Text, End_tag, 1, Index)
		
		if x <>	0
			
			Value = x - 2
			
			Zone_EndX.Insert (Value )
			Index = x + 1
			Inc Nb_tags,1
			bFind = TRUE
			
			Text = ReplaceString (Text, End_tag,"",1)

Endif

EndWhile

Local j as Integer
	Local r as Integer
	Local g as Integer
	Local b as Integer
	
	For i=0 To Nb_tags-1
		
		r = Val (Zone_Red[i],16)
		g = Val (Zone_Green[i],16)
		b = Val (Zone_Blue[i],16)
		
		For j = Zone_StartX[i] to Zone_EndX[i]
			SetTextCharColor (Text_Id ,j , r, g, b, 255)
		Next
	Next
	
	SetTextString (Text_Id, Text)

EndFunction

Sentence = "Hello everybody #FF0000This is red text</c>, now #00FF00a green text</c> and #0000FFa blue one</c>." 
Sentence = Sentence + "And also #FF0000a red text ;-) !</c>."

MyText = CreateText (Sentence)
SetTextSize (MyText, 40)
SetTextMaxWidth (MyText, 400)
SetTextPosition (MyText, (GetDeviceWidth() - GetTextTotalWidth(MyText)) /2, (GetDeviceHeight() - GetTextTotalHeight(MyText)) /2)
SetTextColor (MyText, 255,255,255,255)

ColorTextToRed (MyText)

do

Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet

// Project: ColorText 
// Created: 2018-01-28


SetErrorMode(2)


SetWindowTitle( "ColorText" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) 


SetVirtualResolution( 1024, 768 ) 
SetOrientationAllowed( 1, 1, 1, 1 ) 
SetSyncRate( 30, 0 ) 
SetScissor( 0,0,0,0 ) 
UseNewDefaultFonts( 1 ) 

#option_explicit

#Constant TRUE 1
#Constant FALSE 0

#Constant TEXT_RED 1
#Constant TEXT_GREEN 2
#Constant TEXT_BLUE 3
#Constant TEXT_BOLD 4

Global Sentence as String
Global MyText as Integer


Function ColorTextToRed (Text_id as Integer)

	
	Local Index as Integer
	Local x as Integer
	
	Local i as Integer
	
	Local Text as String
	Local bFind as Integer

	Local Start_tag as String
	Local End_tag as String

	Local Zone_startX as Integer[]
	Local Zone_endX as Integer[]
	
	Local Zone_Red as String[]
	Local Zone_Blue as String[]
	Local Zone_Green as String[]
	
	Local r_hexa as String
	Local g_hexa as String
	Local b_hexa as String
	
	Local Nb_tags as Integer
	
	Local Value as Integer

	Start_tag = "#"
	End_tag = "</c>"

	Text = GetTextString (Text_id)
	
	bFind = TRUE
	Nb_tags = 0
	x = 0
	Index = 1
		
	While bFind <> FALSE
		
		bFind = FALSE
		
		// Find start tag position -> Zone_StartX
		
		x = FindString (Text, Start_tag, 1, Index)
		
		if x <>	0
			
			Value = x - 1
			
			Zone_StartX.Insert (Value)
			Index = x + 1
			bFind = TRUE
			
			Text = ReplaceString (Text, Start_tag,"",1)
			
			r_hexa = mid (Text, x, 2)
			g_hexa = mid (Text, x+2,2)
			b_hexa = mid (Text, x+4,2)
			
			Zone_Red.Insert (r_hexa)
			Zone_Green.Insert (g_hexa)
			Zone_Blue.Insert (b_hexa)
			
			Text = ReplaceString (Text, r_hexa + g_hexa + b_hexa,"",1)
			
					
		Endif
		
		// Find end tag position -> Zone_EndX
		
		x = FindString (Text, End_tag, 1, Index)
		
		if x <>	0
			
			Value = x - 2
			
			Zone_EndX.Insert (Value )
			Index = x + 1
			Inc Nb_tags,1
			bFind = TRUE
			
			Text = ReplaceString (Text, End_tag,"",1)

		Endif
		

	EndWhile

	
	Local j as Integer
	Local r as Integer
	Local g as Integer
	Local b as Integer
	
	For i=0 To Nb_tags-1
		
		r = Val (Zone_Red[i],16)
		g = Val (Zone_Green[i],16)
		b = Val (Zone_Blue[i],16)
		
		For j = Zone_StartX[i] to Zone_EndX[i]
			SetTextCharColor (Text_Id ,j , r, g, b, 255)
		Next
	Next
	
	SetTextString (Text_Id, Text)

EndFunction

Sentence = "Hello everybody #FF0000This is red text</c>, now #00FF00a green text</c> and #0000FFa blue one</c>." 
Sentence = Sentence + "And also #FF0000a red text ;-) !</c>."

MyText = CreateText (Sentence)
SetTextSize (MyText, 40)
SetTextMaxWidth (MyText, 400)
SetTextPosition (MyText, (GetDeviceWidth() - GetTextTotalWidth(MyText)) /2, (GetDeviceHeight() - GetTextTotalHeight(MyText)) /2)
SetTextColor (MyText, 255,255,255,255)

ColorTextToRed (MyText)

do
    

    Print( ScreenFPS() )
    Sync()
loop

Back to top

Profile PM

Hubert BAYRE

7

Years of Service

User Offline

Joined: 21st Oct 2017

Location: France

Posted: 28th Jan 2018 16:36

Link

i can process before call the fonction. Replace <r> by #FF0000 and by #0000FF

Many thanks for your help Bengismo.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers AppGameKit Corner / Color a text