31 lines
684 B
Plaintext
31 lines
684 B
Plaintext
|
|
|||
|
|
{ Copyright (c) 1985, 1989 by Borland International, Inc. }
|
|||
|
|
|
|||
|
|
unit Fonts;
|
|||
|
|
{ Sample unit to accompany BGILINK.PAS. This unit links all the BGI graphics
|
|||
|
|
fonts into a single TPU file. This makes it easy to incorporate the font
|
|||
|
|
files directly into an .EXE file. See BGILINK.PAS for more information.
|
|||
|
|
}
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
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 }
|
|||
|
|
|
|||
|
|
end.
|
|||
|
|
|