FB II Compiler

PG PRO

Debugging

Memory

System

Mathematics

Resources

Disk I/O

Windows

Controls

Menus

Mouse

Keyboard

Text

Fonts

Drawing

Sound

Clipboard

Printing

Communication

ASM

Made with FB

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