GetGadgetFontName() and GetGadgetFontSize()

[StarBootics]

Hello,

Some I would like to do is to reload the gadget font currently in use as a default one with different setting such as #PB_Font_Bold and/or #PB_Font_Italic.
So far, the only way I have found is to load an arbitrary font like :

Code: Select all

LoadFont(1, "Arial", 12, #PB_Font_Bold) 
LoadFont(2, "Arial", 12)

But doing this has many :

• 1. Two fonts as to be Loaded/Unloaded
  2. We are mixing the default font and the loaded font together in the same GUI

Imagine if we can reload the default font with different setting like this :

Code: Select all

LoadFont(1, GetGadgetFontName(#PB_Default), GetGadgetFontSize(#PB_Default), #PB_Font_Bold)

Nice and sweet, 1 font loaded, no font mixing in the GUI.

Regards
StarBootics

[Danilo]

I would like this, too. It is good to know the default gadget font name and size for creating new custom gadgets and using different styles (Bold, Italic, HighQuality, Underline, ...),
or use the default GUI font with different sizes (for header, footer, chapters, ordinary text, etc.).

GetGadgetFontName() and GetGadgetFontSize(). Maybe add GetGadgetFontStyle() if possible (returns #PB_Font_Bold etc. flags combination).

[TI-994A]

...I would like to do is to reload the gadget font currently in use as a default one with different setting such as #PB_Font_Bold and/or #PB_Font_Italic...

Hello StarBootics. It would indeed be great to have such a cross-platform function, especially to match the default UI font. For the time being, here's a Windows-only workaround:

Code: Select all

EnableExplicit
Enumeration
  #MainWindow
  #Text1
  #Text2
  #Text3
  #Font
EndEnumeration

Define sysFont.LOGFONT, sysFontName.s
Define wFlags, yDPI, scrDC, sysFontID, sysFontPointSize

wFlags = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
OpenWindow(#MainWindow, #PB_Any, #PB_Any, 400, 140, "Font Metrics", wFlags)
TextGadget(#Text1, 20, 10, 180, 20, "drawn with default gadget font:")
TextGadget(#Text2, 200, 10, 200, 20, "default gadget font, bold && italic:")
TextGadget(#Text3, 20, 60, 300, 80, "")

scrDC = StartDrawing(WindowOutput(#MainWindow))
  yDPI = GetDeviceCaps_(scrDC, #LOGPIXELSY)
  sysFontID = GetGadgetFont(#PB_Default)
  Box(0, 35, 400, 15, #White)
  DrawingFont(sysFontID)
  DrawingMode(#PB_2DDrawing_Transparent)
  DrawText(20, 35, "AaBbCcDdEeFfGgHhIiJjKk", #Red)
StopDrawing()

GetObject_(sysFontID, SizeOf(LOGFONT), @sysFont)
sysFontName = PeekS(@sysFont\lfFaceName[0])
sysFontPointSize = MulDiv_(-sysFont\lfHeight, 72, yDPI)
SetGadgetText(#Text3, "Font data from GetGadgetFont():" + #CRLF$ +
                      "name: " + sysFontName + #CRLF$ +
                      "pixel height: " + Str(-sysFont\lfHeight) +
                      #CRLF$ + "point size: " + sysFontPointSize)

LoadFont(#Font, sysFontName, sysFontPointSize, #PB_Font_Bold | #PB_Font_Italic)

StartDrawing(WindowOutput(#MainWindow))
  DrawingMode(#PB_2DDrawing_Transparent)
  DrawingFont(FontID(#Font))
  DrawText(200, 35, "AaBbCcDdEeFfGgHhIiJjKk", #Blue)
StopDrawing()

While WaitWindowEvent() ! #PB_Event_CloseWindow : CloseWindow : Wend

I posted this in another thread, but adapted it here to re-load the default font with bold & italic styles.

[Andre]

+1

Maybe a better way of implementation than I requested with CatchSystemFont(), although this goes in the same direction...