home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9302 / svga / fonts.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-02-17  |  1.0 KB  |  38 lines
  1. (*========================================================*)
  2. (*                        FONTS.PAS                       *)
  3. (* Bindet alle Standardschriften ein und registriert sie  *)
  4. (*========================================================*)
  5. {$I xgraph.h}
  6.  
  7. Unit Fonts;
  8.  
  9. INTERFACE
  10.  
  11.   PROCEDURE SmallFontProc;
  12.   PROCEDURE TriplexFontProc;
  13.   PROCEDURE SansSerifFontProc;
  14.   PROCEDURE GothicFontProc;
  15.  
  16. IMPLEMENTATION
  17.  
  18.   USES
  19.     Graph;
  20.  
  21.   PROCEDURE SmallFontProc;     EXTERNAL; {$L LITT.OBJ}
  22.   PROCEDURE TriplexFontProc;   EXTERNAL; {$L TRIP.OBJ}
  23.   PROCEDURE SansSerifFontProc; EXTERNAL; {$L SANS.OBJ}
  24.   PROCEDURE GothicFontProc;    EXTERNAL; {$L GOTH.OBJ}
  25.  
  26.   VAR
  27.     dummy : INTEGER;
  28.  
  29. BEGIN
  30.   dummy := RegisterBGIFont(@SmallFontProc);
  31.   dummy := RegisterBGIFont(@TriplexFontProc);
  32.   dummy := RegisterBGIFont(@SansSerifFontProc);
  33.   dummy := RegisterBGIFont(@GothicFontProc);
  34. END.
  35.  
  36. (*========================================================*)
  37. (*                   Ende von FONTS.PAS                   *)
  38.