Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

installed fonts ?

Status
Not open for further replies.

154868

Programmer
Dec 5, 2003
23
How can I get the information about installed fonts. For Excample: Is the font "ARIAL" installed ?.
I'm looking for a API-Function.

Thank you.
 
Hi

There is no need for API functions.

If you want to know, if Arial font is installed..

IF AFONT(laFont,"ARIAL")
WAIT WINDOW "ARIAL font installed"
ELSE
WAIT WINDOW "ARIAL font not installed"
ENDIF

If you want have a list of all fonts installed
AFONT(laFonts)
FOR I=1 to ALEN(laFonts)
WAIT WINDOW laFonts(i)
ENDFOR

:)

____________________________________________
ramani - (Subramanian.G) :)
When you ask VFP questions, please add VFP version.
 
Hi

AFONT(laFont,"ARIAL") = that's was I'm looking for.

thank you.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top