WingDings font not displaying

[Blue]

Not sure if this a Windows problem
or a PB problem.

  Windows X64 24H2 build 26120.6972
             PB 6.21 x64

The following minimal code used to work some months ago,
but no longer does.
I suspect it's a Windows problem, rather than a PB one.
I still mention it here, just in case...

Code: Select all

; Wingdings Font not displaying
; a Windows problem or a PB problem ?

EnableExplicit

Define font_wd = LoadFont(0, "WingDings", 16, #PB_Font_Bold)
Define font_se = LoadFont(1, "Segoe UI", 8)

Define txt$ = "1 élève "

OpenWindow(0,0,0,400,200,"WINGDINGS Font",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)

Define gi, gY, gH
gY = 10
gH = 25

gi = 0   ; gadget number
  ButtonGadget(gi,10,gY,120,gH,txt$ + gi)
  SetGadgetFont(gi,font_se)             ; works as expected
gi + 1
  gY + gH
  ButtonGadget(gi,10,gY,120,gH,txt$ + gi)
  SetGadgetFont(gi,font_wd)             ; does not work  
  
gi + 1
  gY + gH
  TextGadget(gi,10,gY,120,gH,txt$ + gi)
  SetGadgetFont(gi,font_se)             ; works as expected
gi + 1
  gY + gH
  TextGadget(gi,10,gY,120,gH,txt$ + gi)
  SetGadgetFont(gi,font_wd)             ; does not work  

While WaitWindowEvent() ! #PB_Event_CloseWindow : Wend

[STARGÅTE]

The text gadget is too small in width and the Text gadget makes a word wrap:

Code: Select all

TextGadget(gi,10,gY,120,gH+30,txt$ + gi)

[Blue]

The text gadget is too small in width and the Text gadget makes a word wrap:

Code: Select all

TextGadget(gi,10,gY,120,gH+30,txt$ + gi)

No.
The text (“1 élève” plus a 1 digit number), will fit easily in the allotted width.

You're confusing the text in the code with the content of the picture that follows the code, which was added only to show how the text is expected to look in WingDings.

Granted though, that picture is squished. Click on it, and you should see it correctly.

[Little John]

The WingDings font used in the demo code is too big (or the used gadgets are too small).

Code: Select all

; PB 6.30 beta 3 (x64) on Windows 11 Pro (version 24H2, last update 2025 Oct. 15)

EnableExplicit

Define txt$ = "1 élève "
Define.i gi, gY, gH = 25
Define.i font_wd = LoadFont(0, "WingDings", 8)
Define.i font_se = LoadFont(1, "Segoe UI",  8)

OpenWindow(0, 0,0, 400,200, "WingDings font", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)

gi = 0                                       ; gadget number
gY = 10
ButtonGadget (gi, 10,gY, 120,gH, txt$ + gi)
SetGadgetFont(gi, font_se)                   ; Segoe UI, works as expected

gi + 1
gY + gH
ButtonGadget (gi, 10,gY, 120,gH, txt$ + gi)
SetGadgetFont(gi, font_wd)                   ; WingDings, works as expected

gi + 1
gY + gH
TextGadget   (gi, 10,gY, 120,gH, txt$ + gi)
SetGadgetFont(gi, font_se)                   ; Segoe UI, works as expected

gi + 1
gY + gH
TextGadget   (gi, 10,gY, 120,gH, txt$ + gi)
SetGadgetFont(gi, font_wd)                   ; WingDings, works as expected

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

 
Looks OK to me.

//edit: Same result here with PB 6.21 (x64).

[Fred]

Works here too

[Blue]

Works here too

Thank you Little John and Fred for taking the time to look into this.

I can see from Little John's screenshot that WingDings displays normally on his Windows box, but it does NOT on mine. The reason for that has to be Windows. If you compare the Windows version I'm running to the one on your machines, you'll most likely see a difference.

An application I wrote for searching/modifying file names uses Wingdings as button icons. It has been working flawlessly until last week or so. It is now incapable of accessing WingDings.

Since I'm running a beta version of Windows, which updates itself with new material about once a week, the problem MUST come from there.
Conclusion : NOT a PB problem.

@Fred : Will you please move this post to another section of the forum ? thanks...

[RASHAD]

Hi Blue
It works fine for me too
But try to check the DPI staff for your Windows and your monitor
You mentioned before that you faced such thing as I remember

[Blue]

Hello Rashad and thank you.
Nice to see you still haunting PB forums.

Everything is as it should be in my settings.
The only things that have changed since I finished the app that uses WingDIngs is the version of PB (I switched to 6.21) and the version of Windows. Since everyone reports that they have no WingDings problem in PB, the culprit has to be Windows.

I'll take a screenshot of a message from Windows regarding Wingdings that I saw for the first time last night, and post it here.

addendum :
I tested the sample code (post #1) on a virtual machine and on a computer running an earlier version of Windows. Everything worked fine. My original app as well : no problem whatsoever.

So the culprit here is definitely (and demonstrably) the latest update to Windows (October 17 2025).

Thank you everyone for your patient feedback.