FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Fonts
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Fonts
Posted: Wed Apr 06, 2016 08:14 AM

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.

Regards,

Michel D.
Genk (Belgium)


_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Posts: 38
Joined: Tue Mar 04, 2008 03:44 PM
Re: Fonts
Posted: Wed Apr 06, 2016 10:31 AM
Michel,

I,m using.

Code (fw): Select all Collapse
 
LOCAL hDc      := GetDc(0)
LOCAL aFonts   := GetFontNames(hDc)
LOCAL cFont    := "Arial"

      ReleaseDc(0, hDc)

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

Moon

FWH 16.11 | xHarbour | Harbour | BCC72 | DBF | ADS | MySQL | DrLib

Continue the discussion