PureBasic Forums - English

http://www.purebasic.com
https://www.purebasic.fr/english/

EditorGadget change font problem

https://www.purebasic.fr/english/viewtopic.php?t=77778

Page 1 of 1

EditorGadget change font problem

Posted: Fri Aug 20, 2021 12:11 pm
by marc_256
Hello everyone,

For my robot communication program,
I like to change my font set to Courier New - 8pt.

So, I see that the command [SetGadgetFont (#PB_Default, FontID (#Font_0))] exist.
and I use it as follow ...

Image

Snipper 1:

Code: Select all

;======================================================================================================================
;- FONT TEST
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
EnableExplicit

;============================================================================================================================
;- ENUMERATION
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Enumeration
	#Window_0
	#Frame_0

	#Font_0

	#Receiver_Title
	#Receiver_EditorGadget

	#Transmitter_Title
	#Transmitter_EditorGadget
	#Transmitter_TextBoxGadget
	#Transmitter_StringGadget

EndEnumeration

;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;- GLOBALS
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global Event.i
Global GadgetID.i
Global GadgetEventType.i

Global Transmitter_Data.s
Global Transmitter_Key.s

;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;- LOAD FONTS
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
	LoadFont (#Font_0, "Courier New", 8)
	SetGadgetFont (#PB_Default, FontID (#Font_0))

;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;- CREATE WINDOW
;---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
	If OpenWindow (#Window_0, 10, 10, 800, 300, "BOBO one/two - Serial Communication Terminal - RS232/RS485 -", #PB_Window_TitleBar | #PB_Window_SystemMenu | #PB_Window_ScreenCentered)			; | #PB_Window_ScreenCentered 
		SetWindowColor (#Window_0, $004000)
		FrameGadget (#Frame_0, 2, 2, 796, 596, "", #PB_Frame_Single)

;- TRANSMITTER TITLE
		TextGadget (#Transmitter_TextBoxGadget, 4, 4, 792, 15, "- TRANSMITTER DATA -", #PB_Text_Center)
		SetGadgetColor (#Transmitter_TextBoxGadget, #PB_Gadget_FrontColor, $F0F0F0)
		SetGadgetColor (#Transmitter_TextBoxGadget, #PB_Gadget_BackColor, $004000)
;		SetGadgetFont (#Transmitter_TextBoxGadget, FontID (#Font_0))
;- TRANSMITTER EDITOR
		EditorGadget (#Transmitter_EditorGadget, 4, 24, 792, 140, #PB_Editor_ReadOnly | #ES_AUTOVSCROLL)
		SetGadgetColor (#Transmitter_EditorGadget, #PB_Gadget_FrontColor, $F0F0F0)
		SetGadgetColor (#Transmitter_EditorGadget, #PB_Gadget_BackColor, $004000)
;		SetGadgetFont (#Transmitter_EditorGadget, FontID (#Font_0))

		AddGadgetItem (#Transmitter_EditorGadget, -1, "╔═════════════════════════════════════════════════════════════════════════════╗")
		AddGadgetItem (#Transmitter_EditorGadget, -1, "║ BOBO one/two - 68000 MONITOR/DEBUGGER - Ver. 1.00                           ║")
		AddGadgetItem (#Transmitter_EditorGadget, -1, "╚═════════════════════════════════════════════════════════════════════════════╝")

		AddGadgetItem (#Transmitter_EditorGadget, -1, "+-----------------------------------------------------------------------------+")
		AddGadgetItem (#Transmitter_EditorGadget, -1, "| BOBO one/two - 68000 MONITOR/DEBUGGER - Ver. 1.00                           |")
		AddGadgetItem (#Transmitter_EditorGadget, -1, "+-----------------------------------------------------------------------------+")
;- TRANSMITTER STRING
		StringGadget (#Transmitter_StringGadget, 4, 175, 792, 40, "", #ES_MULTILINE)					;|#ES_AUTOVSCROLL)
		SetGadgetColor (#Transmitter_StringGadget, #PB_Gadget_FrontColor, $F0F0F0)
		SetGadgetColor (#Transmitter_StringGadget, #PB_Gadget_BackColor, $004000)
;		SetGadgetFont (#Transmitter_StringGadget, FontID (#Font_0))

		SetActiveGadget (#Transmitter_StringGadget)

;============================================================================================================================
;- DO LOOP
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
		Repeat
			Event = WaitWindowEvent(10)
			Select Event
				Case #PB_Event_Gadget
					GadgetID = EventGadget()
					Select GadgetID
						Case #Transmitter_StringGadget
							GadgetEventType = EventType()
							If GadgetEventType = #PB_EventType_Change
								Transmitter_Data = GetGadgetText (#Transmitter_StringGadget)
								Transmitter_Key = Right (Transmitter_Data, 1)
								If Transmitter_Key = Chr (13) Or Transmitter_Key = Chr (10)
;									SetGadgetFont (#Transmitter_EditorGadget, FontID (#Font_0))
									AddGadgetItem (#Transmitter_EditorGadget, -1, Transmitter_Data)
									ClearGadgetItems (#Transmitter_StringGadget)
									SetGadgetText (#Transmitter_StringGadget, "")
									SetActiveGadget (#Transmitter_StringGadget)
								EndIf
							EndIf
					EndSelect
			EndSelect

		Until Event = #PB_Event_CloseWindow

;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;- END OF PROGRAM
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------		CloseWindow (#Window_0)

	EndIf

;============================================================================================================================
And the result are this:

Image

Please try the snipper,
1) TITLE [TextGadget] text is OK -> CourierNew 8pt
2) Enter Text [StringGadget] text is OK -> CourierNew 8pt
3) Sended text [EditorGadget] text is NOK -> ??

4) Type "VERSION" in StringGadget and push [ENTER]
5) Then the EditorGadget Font is changed
6) Type again "VERSION" in StringGadget and push [ENTER]
7) And again EditorGadget Font is changed (See VERSION text)

Then I changed all the gadgets Fonts separately

Snipper 2:

Code: Select all

;============================================================================================================================
;- FONT TEST
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
EnableExplicit

;============================================================================================================================
;- ENUMERATION
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Enumeration
	#Window_0
	#Frame_0

	#Font_0

	#Receiver_Title
	#Receiver_EditorGadget

	#Transmitter_Title
	#Transmitter_EditorGadget
	#Transmitter_TextBoxGadget
	#Transmitter_StringGadget

EndEnumeration

;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;- GLOBALS
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global Event.i
Global GadgetID.i
Global GadgetEventType.i

Global Transmitter_Data.s
Global Transmitter_Key.s

;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;- LOAD FONTS
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
	LoadFont (#Font_0, "Courier New", 8)
;	SetGadgetFont (#PB_Default, FontID (#Font_0))

;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;- CREATE WINDOW
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
	If OpenWindow (#Window_0, 10, 10, 800, 300, "BOBO one/two - Serial Communication Terminal - RS232/RS485 -", #PB_Window_TitleBar | #PB_Window_SystemMenu | #PB_Window_ScreenCentered)			; | #PB_Window_ScreenCentered 
		SetWindowColor (#Window_0, $004000)
		FrameGadget (#Frame_0, 2, 2, 796, 596, "", #PB_Frame_Single)

;- TRANSMITTER TITLE
		TextGadget (#Transmitter_TextBoxGadget, 4, 4, 792, 15, "- TRANSMITTER DATA -", #PB_Text_Center)
		SetGadgetColor (#Transmitter_TextBoxGadget, #PB_Gadget_FrontColor, $F0F0F0)
		SetGadgetColor (#Transmitter_TextBoxGadget, #PB_Gadget_BackColor, $004000)
		SetGadgetFont (#Transmitter_TextBoxGadget, FontID (#Font_0))
;- TRANSMITTER EDITOR
		EditorGadget (#Transmitter_EditorGadget, 4, 24, 792, 140, #PB_Editor_ReadOnly | #ES_AUTOVSCROLL)
		SetGadgetColor (#Transmitter_EditorGadget, #PB_Gadget_FrontColor, $F0F0F0)
		SetGadgetColor (#Transmitter_EditorGadget, #PB_Gadget_BackColor, $004000)
		SetGadgetFont (#Transmitter_EditorGadget, FontID (#Font_0))

		AddGadgetItem (#Transmitter_EditorGadget, -1, "╔═════════════════════════════════════════════════════════════════════════════╗")
		AddGadgetItem (#Transmitter_EditorGadget, -1, "║ BOBO one/two - 68000 MONITOR/DEBUGGER - Ver. 1.00                           ║")
		AddGadgetItem (#Transmitter_EditorGadget, -1, "╚═════════════════════════════════════════════════════════════════════════════╝")

		AddGadgetItem (#Transmitter_EditorGadget, -1, "+-----------------------------------------------------------------------------+")
		AddGadgetItem (#Transmitter_EditorGadget, -1, "| BOBO one/two - 68000 MONITOR/DEBUGGER - Ver. 1.00                           |")
		AddGadgetItem (#Transmitter_EditorGadget, -1, "+-----------------------------------------------------------------------------+")
;- TRANSMITTER STRING
		StringGadget (#Transmitter_StringGadget, 4, 175, 792, 40, "", #ES_MULTILINE)					;|#ES_AUTOVSCROLL)
		SetGadgetColor (#Transmitter_StringGadget, #PB_Gadget_FrontColor, $F0F0F0)
		SetGadgetColor (#Transmitter_StringGadget, #PB_Gadget_BackColor, $004000)
		SetGadgetFont (#Transmitter_StringGadget, FontID (#Font_0))

		SetActiveGadget (#Transmitter_StringGadget)

;============================================================================================================================
;- DO LOOP
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
		Repeat
			Event = WaitWindowEvent(10)
			Select Event
				Case #PB_Event_Gadget
					GadgetID = EventGadget()
					Select GadgetID
						Case #Transmitter_StringGadget
							GadgetEventType = EventType()
							If GadgetEventType = #PB_EventType_Change
								Transmitter_Data = GetGadgetText (#Transmitter_StringGadget)
								Transmitter_Key = Right (Transmitter_Data, 1)
								If Transmitter_Key = Chr (13) Or Transmitter_Key = Chr (10)
									SetGadgetFont (#Transmitter_EditorGadget, FontID (#Font_0))
									AddGadgetItem (#Transmitter_EditorGadget, -1, Transmitter_Data)
									ClearGadgetItems (#Transmitter_StringGadget)
									SetGadgetText (#Transmitter_StringGadget, "")
									SetActiveGadget (#Transmitter_StringGadget)
								EndIf
							EndIf
					EndSelect
			EndSelect

		Until Event = #PB_Event_CloseWindow

;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;- END OF PROGRAM
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------

		CloseWindow (#Window_0)

	EndIf

;============================================================================================================================
Same result ...

Image

AFTER FIRST "VERSION" TYPED

Image

AFTER SECOND "VERSION" TYPED

Image


Can someone help me, with good advice ...

Sorry, forgot to tell

PB 5.73 LTS x64
PC Windows 8.1 x64

thanks,
marc

Re: EditorGadget change font problem

Posted: Fri Aug 20, 2021 2:40 pm
by Marc56us
Hi Marc,

It is the "Box Drawing" characters (en français: caractères "Filets") Range: 2500–257F that cause problems and give PB the wrong output (and 'random' errors). They are not well represented from one font to another.
You have to try other fonts, even if this one (Courrier News) has the "Box Drawing" characters or remove its.

When there is a font problem, Windows always tries to display something close. This means that there might be an ID problem somewhere else. (I tried some other solutions, without success. :| )

See page 1 of:
En: https://www.unicode.org/charts/PDF/U2500.pdf
Fr: https://www.unicode.org/charts/fr/PDF/U2500.pdf

:wink:

Re: EditorGadget change font problem

Posted: Fri Aug 20, 2021 3:50 pm
by marc_256
Hello Marc56us,

thanks for your answer ...
But this is the result with the same computer PC Win8.1 x64 and PB 5.61 x64...

Image

And this is the same program in PB 5.73 LTS x64

Image

So, I think this is a PB bug in PB 5.73 LTS x64

I can be wrong ??

Marc

Re: EditorGadget change font problem

Posted: Sat Aug 21, 2021 1:11 am
by BarryG
On my PC, SetGadgetFont (#Transmitter_EditorGadget, FontID (#Font_0)) in your Snipper 1 only works if I put it after all the AddGadgetItem (#Transmitter_EditorGadget, -1, ...) lines. That is, the EditorGadget only uses Courier when I put that line after them, and not before them.

So yes, it definitely looks like a bug to me, as SetGadgetFont() should be usable anytime after a gadget is created, without a requirement to put text in the gadget first. Or at least put this in the manual to explain that the gadget must contain text for SetGadgetFont() to take effect.

Re: EditorGadget change font problem

Posted: Sat Aug 21, 2021 8:29 am
by marc_256
Hallo BarryG,

yes, that is what I'm thinking also ...

PB 5.61 x64 -> OK
PB 5.71 x64 -> OK
PB 5.72 x64 -> OK
PB 5.73 LTS x64 -> NOT OK

Thanks,
marc

Re: EditorGadget change font problem

Posted: Sat Aug 21, 2021 9:48 am
by BarryG
I'm using v5.73 32-bit PureBasic, though.

Re: EditorGadget change font problem

Posted: Sat Aug 21, 2021 7:35 pm
by ChrisR
I also tested, in fact it is good in the v5.72 and earlier versions but not in v5.73. It looks like a bug to me too.

By digging a bit, randomly, the error seems to be in the Gadget library
In v5.73, by replacing Gadget (in PureLibraries) by the one of v5.72, it looks good, the texts are now aligned.

It would probably be a good idea to move the topic to the bug section. To show the bug more easily, I shortened the code

Code: Select all

Enumeration
	#Window_0
	#Font_0
	#Transmitter_EditorGadget
EndEnumeration

LoadFont (#Font_0, "Courier New", 8)

If OpenWindow (#Window_0, 10, 10, 800, 148, "Test Font Alignment", #PB_Window_TitleBar | #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

		EditorGadget  (#Transmitter_EditorGadget, 4, 4, 792, 140, #PB_Editor_ReadOnly | #ES_AUTOVSCROLL)
		SetGadgetFont (#Transmitter_EditorGadget, FontID(#Font_0))

		AddGadgetItem (#Transmitter_EditorGadget, -1, "╔═════════════════════════════════════════════════════════════════════════════╗")
		AddGadgetItem (#Transmitter_EditorGadget, -1, "║ BOBO one/two - 68000 MONITOR/DEBUGGER - Ver. 1.00                           ║")
		AddGadgetItem (#Transmitter_EditorGadget, -1, "╚═════════════════════════════════════════════════════════════════════════════╝")

		AddGadgetItem (#Transmitter_EditorGadget, -1, "+-----------------------------------------------------------------------------+")
		AddGadgetItem (#Transmitter_EditorGadget, -1, "| BOBO one/two - 68000 MONITOR/DEBUGGER - Ver. 1.00                           |")
		AddGadgetItem (#Transmitter_EditorGadget, -1, "+-----------------------------------------------------------------------------+")
		
		;SetGadgetFont (#Transmitter_EditorGadget, FontID(#Font_0))
		;SendMessage_(GadgetID(#Transmitter_EditorGadget), #WM_SETFONT, FontID(#Font_0), #True)
EndIf

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

Re: EditorGadget change font problem

Posted: Sat Aug 21, 2021 10:40 pm
by marc_256
Hi ChrisR,

Thanks for testing ...
I already placed a link in the BUG section

Marc
All times are UTC+01:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited