home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
archives
/
queenskermit.tar.gz
/
queenskermit.tar
/
fonts.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-12-14
|
893b
|
37 lines
unit Fonts;
{ This unit links all the BGI graphics fonts into a single TPU file and
registers them so it can be used.}
interface
uses Graph ;
procedure GothicFontProc;
procedure SansSerifFontProc;
procedure SmallFontProc;
procedure TriplexFontProc;
implementation
procedure GothicFontProc; external;
{$L GOTH.OBJ }
procedure SansSerifFontProc; external;
{$L SANS.OBJ }
procedure SmallFontProc; external;
{$L LITT.OBJ }
procedure TriplexFontProc; external;
{$L TRIP.OBJ }
Begin { Fonts Unit }
{ Register all the fonts }
if RegisterBGIfont(@GothicFontProc) < 0 then
Writeln('Gothic - is missing' );
if RegisterBGIfont(@SansSerifFontProc) < 0 then
Writeln('SansSerif - is missing');
if RegisterBGIfont(@SmallFontProc) < 0 then
Writeln('Small - is missing');
if RegisterBGIfont(@TriplexFontProc) < 0 then
Writeln('Triplex - is missing');
end. { Fonts Unit }