8 de marzo de 2000

Saber si un tipo de letra (fuente) está instalado

*-------------------------------------------
* Retorna .T. si la fuente esta instalada 
* Ejemplo: ? _ExistFont("Algerian")
*-------------------------------------------
FUNCTION _ExistFont(tcFont)
*-------------------------------------------
 LOCAL laArray(1), lnI, llRet
 llRet = .F.
 IF AFONT(laArray)
  tcFont = UPPER(tcFont)
  FOR lnI = 1 TO ALEN(laArray)
   IF UPPER(laArray(lnI)) == tcFont
    llRet = .T.
    EXIT
   ENDIF
  ENDFOR
 ELSE
  MESSAGEBOX('La fuente no esta instalada!!!')
 ENDIF
 RETURN llRet
ENDFUNC
Luis María Guayán

No hay comentarios. :

Publicar un comentario