Object Pascal bindings for SDL_bgi library.
Repository structure -
ubgi.pas- Pascal API unit.bin- Dynamic Windows libraries v2.4.3.examples- Pascal port of some original examples.include- C API v2.4.3 header file.
program exus;
{$IF Defined(FPC)}{$MODE Delphi}{$ENDIF}
{$APPTYPE Console}
uses ubgi;
var
gd, gm: Integer;
info: String;
begin
gd := DETECT; gm := VGAHi;
InitGraph(gd, gm, '');
SetColor(BLUE);
SetBkColor(WHITE);
info := 'SDL_bgi & Object Pascal';
SetTextStyle(SimplexFont, HorizDir, 0);
OutText(info);
ReadKey();
CloseGraph();
end.
Embarcadero Delphi compiler -
dcc64 -B -U.. exus.pas
Free Pascal compiler -
fpc -B -Fu.. exus.pas
