home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / PCTV2N4.ZIP / XFONTS.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1991-06-25  |  574 b   |  23 lines
  1. UNIT xFonts;
  2.  
  3. INTERFACE
  4.  
  5. USES Graph;
  6.  
  7. TYPE
  8.   ExtraFonts = (TScript, Script, Bold, Euro, Lcom, Simp);
  9.  
  10. VAR
  11.   xFontHandle : ARRAY[ExtraFonts] OF Integer;
  12.  
  13. IMPLEMENTATION
  14.  
  15. BEGIN
  16.   xFontHandle[TScript] := InstallUserFont('Tscr'); {Triplex script}
  17.   xFontHandle[Script]  := InstallUserFont('Scri'); {Script}
  18.   xFontHandle[Bold]    := InstallUserFont('Bold'); {Bold}
  19.   xFontHandle[Euro]    := InstallUserFont('Euro'); {Euro}
  20.   xFontHandle[Lcom]    := InstallUserFont('Lcom'); {Little comlex}
  21.   xFontHandle[Simp]    := InstallUserFont('Simp'); {Simplex}
  22. END.
  23.