home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / grafik / extfonts.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-04-18  |  1.3 KB  |  47 lines
  1. (*===================================================================*)
  2. (*                             EXTFONTS.PAS                          *)
  3. (*       Bindet alle erweiterten Fonts ein und registriert sie       *)
  4. (*===================================================================*)
  5.  
  6. Unit ExtFonts;
  7.  
  8. INTERFACE
  9.  
  10. VAR
  11.   ScriptFont,
  12.   TriplexScriptFont,
  13.   SimplexFont,
  14.   ComplexFont,
  15.   EuropeanFont,
  16.   BoldFont: INTEGER;
  17.  
  18. PROCEDURE ScriptFontProc;
  19. PROCEDURE SimplexFontProc;
  20. PROCEDURE TriplexScriptFontProc;
  21. PROCEDURE ComplexFontProc;
  22. PROCEDURE EuropeanFontProc;
  23.  
  24.  
  25. IMPLEMENTATION
  26.  
  27. USES
  28.   Graph, BoldFonts_;
  29.  
  30. PROCEDURE ScriptFontProc;        EXTERNAL; {$L SCRI.OBJ}
  31. PROCEDURE SimplexFontProc;       EXTERNAL; {$L SIMP.OBJ}
  32. PROCEDURE TriplexScriptFontProc; EXTERNAL; {$L TSCR.OBJ}
  33. PROCEDURE ComplexFontProc;       EXTERNAL; {$L LCOM.OBJ}
  34. PROCEDURE EuropeanFontProc;      EXTERNAL; {$L EURO.OBJ}
  35.  
  36.  
  37. BEGIN
  38.   ScriptFont        := RegisterBGIFont(@ScriptFontProc);
  39.   SimplexFont       := RegisterBGIFont(@SimplexFontProc);
  40.   TriplexScriptFont := RegisterBGIFont(@TriplexScriptFontProc);
  41.   ComplexFont       := RegisterBGIFont(@ComplexFontProc);
  42.   EuropeanFont      := RegisterBGIFont(@EuropeanFontProc);
  43.   BoldFont          := RegisterBGIFont(@BoldFontProc);
  44. END.
  45.  
  46. (*===================================================================*)
  47.