home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9302 / svga / xfonts.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-02-17  |  1.3 KB  |  46 lines
  1. (*========================================================*)
  2. (*                       XFONTS.PAS                       *)
  3. (*            (C) 1993 Jörg Braun & DMV-Verlag            *)
  4. (* Bindet alle erweiterten Fonts ein und registriert sie  *)
  5. (*========================================================*)
  6. {$I xgraph.h}
  7.  
  8. Unit XFonts;
  9.  
  10. INTERFACE
  11.  
  12.   PROCEDURE ScriptFontProc;      
  13.   PROCEDURE SimplexFontProc;
  14.   PROCEDURE TSCRFontProc;
  15.   PROCEDURE LightFontProc;
  16.   PROCEDURE EuroFontProc;
  17.  
  18. IMPLEMENTATION
  19.  
  20. USES
  21.   Graph;
  22.  
  23.   VAR
  24.     ScriptFont,
  25.     TSCRFont,
  26.     SimplexFont,
  27.     LightFont,
  28.     EuroFont : INTEGER;
  29.   
  30.   PROCEDURE ScriptFontProc;   EXTERNAL; {$L SCRI.OBJ}
  31.   PROCEDURE SimplexFontProc;  EXTERNAL; {$L SIMP.OBJ}
  32.   PROCEDURE TSCRFontProc;     EXTERNAL; {$L TSCR.OBJ}
  33.   PROCEDURE LightFontProc;    EXTERNAL; {$L LCOM.OBJ}
  34.   PROCEDURE EuroFontProc;     EXTERNAL; {$L EURO.OBJ}
  35.  
  36. BEGIN
  37.   ScriptFont  := RegisterBGIFont(@ScriptFontProc);
  38.   SimplexFont := RegisterBGIFont(@SimplexFontProc);
  39.   TSCRFont    := RegisterBGIFont(@TSCRFontProc);
  40.   LightFont   := RegisterBGIFont(@LightFontProc);
  41.   EuroFont    := RegisterBGIFont(@EuroFontProc);
  42. END.
  43.  
  44. (*========================================================*)
  45. (*                Ende von XFONTS.PAS                     *)
  46.