paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 11:45:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Bugfixes for RegisterBGIFont which can be called BEFORE

Browse Source 
InitGraph.
This commit is contained in:
carl 1999-05-30 23:07:59 +00:00
parent 3fa1d1b644
commit b0bdd46ee1
1 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
rtl/inc/graph/graph.pp
View File

@ -605,6 +605,9 @@ procedure SetFillPattern(Pattern: FillPatternType; Color: word);
procedure MoveRel(Dx, Dy: Integer);
procedure MoveTo(X,Y: Integer);
procedure SetDirectVideo(DirectAccess: boolean);
function GetDirectVideo: boolean;
{ -------------------- Color/Palette ------------------------------- }
procedure SetBkColor(ColorNum: Word);
function GetColor: Word;
@ -757,6 +760,7 @@ var
DriverName: String;
DirectColor : Boolean ; { Is it a direct color mode? }
ModeList : PModeInfo;
DirectVideo : Boolean; { Direct access to video memory? }
@ -1909,12 +1913,7 @@ end;
{ overridable routines. }
{********************************************************}
Begin
InstalledFonts := 0;
{ Install standard fonts }
InstallUserFont('TRIP');
InstallUserFont('LITT');
InstallUserFont('SANS');
InstallUserFont('GOTH');
DirectVideo := TRUE; { By default use fastest access possible }
ArcCall.X := 0;
ArcCall.Y := 0;
ArcCall.XStart := 0;
@ -2572,6 +2571,18 @@ end;
end;
procedure SetDirectVideo(DirectAccess: boolean);
begin
DirectVideo := DirectAccess;
end;
function GetDirectVideo: boolean;
begin
GetDirectVideo := DirectVideo;
end;
var
ExitSave: pointer;
@ -2582,6 +2593,13 @@ begin
{ This must be called at startup... because GetGraphMode may }
{ be called even when not in graph mode. }
QueryAdapterInfo;
{ Install standard fonts }
{ This is done BEFORE startup... }
InstalledFonts := 0;
InstallUserFont('TRIP');
InstallUserFont('LITT');
InstallUserFont('SANS');
InstallUserFont('GOTH');
{ This installs an exit procedure which cleans up the mode list...}
ExitSave := ExitProc;
ExitProc := @CleanMode;