Fonts

[driessen]

Hello,

Is there a way in FWH to check if a font is installed or not?
If a font is not installed, how can I install it in FWH?

Thanks a lot in advance for any help.

[dbmanfwh]

Michel,

I,m using.

Code: Select all  Expand view

LOCAL hDc      := GetDc(0)
LOCAL aFonts   := GetFontNames(hDc)
LOCAL cFont    := "Arial"

      ReleaseDc(0, hDc)

       IF ASCAN(aFonts, cFont ) <> 0
           WinExec( "control fonts")
        ENDIF