home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
c
/
qk3fon.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
2020-01-01
|
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 }