32 lines
569 B
Plaintext
32 lines
569 B
Plaintext
BGI-Dateien / Fonts inline
|
|
|
|
BINOBJ.EXE <treibername> <objektname[.OBJ]> <linkname>
|
|
|
|
procedure <linkname>; EXTERNAL;
|
|
{$L <objektname>}
|
|
|
|
RegisterBGIDriver(treiber: pointer): integer;
|
|
RegisterBGIFont(font: pointer): integer;
|
|
|
|
ex:
|
|
|
|
Var drvno, fntno: integer;
|
|
|
|
procedure egavga_drv; external;
|
|
{$L egavga.obj}
|
|
|
|
procedure euro_fnt; external;
|
|
{$L euro.obj}
|
|
|
|
begin
|
|
drvno := RegisterBGIDriver(Addr(egavga_drv));
|
|
fntno := RegisterBGIFont(Addr(euro_fnt));
|
|
|
|
end.
|
|
|
|
:endex
|
|
|
|
binobj egavga.bgi egavga.obj egavga_drv
|
|
|
|
binobj euro.chr euro.obj euro_fnt
|