home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / grafik / fonts.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-09  |  1.0 KB  |  35 lines
  1. {$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X-}
  2. (*===================================================================*)
  3. (*                               FONTS.PAS                           *)
  4. (*         Bindet alle Standardschriften ein und registriert sie     *)
  5. (*===================================================================*)
  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. VAR
  26.   dummy : INTEGER;
  27.  
  28. BEGIN
  29.   dummy := RegisterBGIFont(@SmallFontProc);
  30.   dummy := RegisterBGIFont(@TriplexFontProc);
  31.   dummy := RegisterBGIFont(@SansSerifFontProc);
  32.   dummy := RegisterBGIFont(@GothicFontProc);
  33. END.
  34.  
  35. (*===================================================================*)