home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / SHOWFONT.PRG < prev    next >
Encoding:
Text File  |  1993-02-01  |  1.2 KB  |  36 lines
  1. *****************************************************************
  2. *     * 09/92               SHOWFONT.PRG                        *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates how to display information     *
  8. *     * related to the number of installed fonts in a           *
  9. *     * Windows system.                                         *
  10. *****************************************************************
  11. DECLARE Fonts[1]
  12. IF  AFONT( Fonts )
  13.    FontCnt = ALEN( Fonts )
  14.    ? "The number of available fonts is:", FontCnt
  15.    ? "Names of the Fonts:"
  16.  
  17.    FOR Ft = 1 TO FontCnt
  18.        ? Fonts[Ft]
  19.        DECLARE SizeFont[1] 
  20.        IF AFONT( SizeFont, Fonts[Ft] )
  21.           IF SizeFont[1] = -1 
  22.               ?? " -- Font is scalable"
  23.           ELSE
  24.               FOR S = 1 TO ALEN( SizeFont )
  25.                   ?? SizeFont[S]
  26.               ENDFOR
  27.           ENDIF
  28.        ENDIF
  29.        RELEASE SizeFont    
  30.    ENDFOR
  31. ELSE
  32.   ? "Unable to retrieve fonts."
  33. ENDIF     
  34.    
  35.           
  36.