FB II Compiler
Find the system font
How do you get the current system font?
I'm writing a WDEF and change the window title in the title bar to a smaller font. Trouble is, I need to restore the system font to what it was before.
The current system font ID and point size are always zero and zero, respectively.
Try this as well, if you want to know which font "zero" is...
PRINT "System font is ";fontName$
LONG IF fontName$ <> "Chicago" 'Probably Charcoal
IF state% THEN PRINT " (Chicago is font #";state%;")"
PRINT "Application font is ";fontName$