home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / c / qk3fon.pas < prev    next >
Pascal/Delphi Source File  |  2020-01-01  |  893b  |  37 lines
  1. unit Fonts;
  2. { This unit links all the BGI graphics fonts into a single TPU file and
  3.     registers them so it can be used.}
  4. interface
  5. uses Graph ;
  6.  
  7. procedure GothicFontProc;
  8. procedure SansSerifFontProc;
  9. procedure SmallFontProc;
  10. procedure TriplexFontProc;
  11.  
  12. implementation
  13.  
  14. procedure GothicFontProc; external;
  15. {$L GOTH.OBJ }
  16.  
  17. procedure SansSerifFontProc; external;
  18. {$L SANS.OBJ }
  19.  
  20. procedure SmallFontProc; external;
  21. {$L LITT.OBJ }
  22.  
  23. procedure TriplexFontProc; external;
  24. {$L TRIP.OBJ }
  25.  
  26. Begin { Fonts Unit }
  27.   { Register all the fonts }
  28.   if RegisterBGIfont(@GothicFontProc) < 0 then
  29.     Writeln('Gothic - is missing' );
  30.   if RegisterBGIfont(@SansSerifFontProc) < 0 then
  31.     Writeln('SansSerif - is missing');
  32.   if RegisterBGIfont(@SmallFontProc) < 0 then
  33.     Writeln('Small - is missing');
  34.   if RegisterBGIfont(@TriplexFontProc) < 0 then
  35.     Writeln('Triplex - is missing');
  36. end.  { Fonts Unit }
  37.