FONTS
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.
wave
The current system font ID and point size are always zero and zero, respectively.
Mars
Try this as well, if you want to know which font "zero" is...
CALL GETFONTNAME(0,fontName$)
PRINT "System font is ";fontName$
LONG IF fontName$ <> "Chicago" 'Probably Charcoal
CALL GETFNUM("Chicago",state%)
IF state% THEN PRINT " (Chicago is font #";state%;")"
END IF
CALL GETFONTNAME(1,fontName$)
PRINT "Application font is ";fontName$
Bill