Checking Font in windows

[Character]

Hi people, I've a quick question:

I want to check if a font is present in windows.
But, according the help file, in windows if a font is not present, another font is loaded.
How, can I check then if a specific font is present or not?

(this code propably checks if any font is loaded only...)

Code: Select all

If IsFont(LoadFont(#PB_Any, "Tahoma", 8)) = #False 
  Debug "ouch"
Else 
  Debug Font = LoadFont(#PB_Any, "Tahoma", 8)
EndIf

[dell_jockey]

Thanks for pointing out the defaul behaviour on Windows, I wasn't aware of that.
I suppose that not even prior checking whether a file called "c:\windows\fonts\tahoma*.ttf" exists at all would indeed guarantee that it will be loaded correctly....

[Trond]

Code: Select all

Procedure EnumFontFamProc(*lpelf.ENUMLOGFONT, *lpntm.NEWTEXTMETRIC,	FontType, lParam)
  Name.s = Trim(PeekS(@*lpelf\elfLogFont\lfFaceName, 32))
  If Name = PeekS(lParam)
    ProcedureReturn 0
  EndIf
  ProcedureReturn 1
EndProcedure

Procedure IsFontName(Name.s)
  hDC = GetDC_(0)
  V = EnumFonts_(hDC, 0, @EnumFontFamProc(), @Name)
  ReleaseDC_(0, hDC)
  ProcedureReturn 1-V
EndProcedure

Debug IsFontName("Tahoma")

   

[Character]

Thanks!

[Michael Vogel]

How to check if a font is also available in italic?

Code: Select all

Procedure EnumFontFamProc(*lpelf.ENUMLOGFONT, *lpntm.NEWTEXTMETRIC,   FontType, lParam)
	Name.s = Trim(PeekS(@*lpelf\elfLogFont\lfFaceName, 32))
	If Name = PeekS(lParam)
		ProcedureReturn 0
	EndIf
	ProcedureReturn 1
EndProcedure

Procedure IsFontName(Name.s)
	hDC = GetDC_(0)
	V = EnumFonts_(hDC, 0, @EnumFontFamProc(), @Name)
	ReleaseDC_(0, hDC)
	ProcedureReturn 1-V
EndProcedure

Debug IsFontName("Book Antiqua");			1
Debug IsFontName("Book Antiqua Italic");		0
Debug IsFontName("Cambria");				1
Debug IsFontName("Cambria Italic");			should be 1