Check to be sure that your font will be loaded
If Not Load your other option
Code: Select all
Global font.s,result
Procedure EnumFontFamProc(*f.ENUMLOGFONT,*nt.NEWTEXTMETRIC, FontType, lParam)
If PeekS(@*f\elfLogFont\lfFaceName[0]) = font.s
result = 1
EndIf
ProcedureReturn 1
EndProcedure
Procedure.s SysInfo_Fonts()
hWnd = GetDesktopWindow_()
hDC = GetDC_(hWnd)
EnumFontFamilies_(hDC, 0, @EnumFontFamProc(), 0)
ReleaseDC_ (hWnd, hDC)
EndProcedure
font.s = "Consolas"
SysInfo_Fonts()
If result
Debug "Found"
Else
Debug "Not Found"
EndIf