Right now my strategy is to try to load the preferred font and if that fails then load a font that is part of the system (at least I think Geneva is required).
Code: Select all
Global font$
Enumeration 1 ; font #s
#fontsize14
#fontsize18
#fontsize12
EndEnumeration
font$="New York"
If LoadFont(#fontsize14,font$,16)
LoadFont(#fontsize12,font$,12)
LoadFont(#fontsize18,font$,18)
Else
font$="Geneva"
;MessageRequester("Loading fonts...","Preferred font not found"+Chr(13)+"...will use Geneva.")
LoadFont(#fontsize14,font$,14)
LoadFont(#fontsize12,font$,12)
LoadFont(#fontsize18,font$,18)
EndIf