paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 12:29:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

* _GraphResult is now properly set to grOK by DetectGraph and

Browse Source 
InitGraph if there are no errors
This commit is contained in:
Jonas Maebe 1999-11-28 12:19:59 +00:00
parent 33a70bdf4b
commit 6ad29d29a6
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2866,6 +2866,7 @@ end;
_GraphResult := grNotDetected;
exit;
end;
_GraphResult := grOK;
GraphDriver := CpyDriver;
GraphMode := CpyMode;
end;
@ -2880,19 +2881,18 @@ end;
if not assigned(SaveVideoState) then
RunError(216);
{$ifdef logging}
LogLn('Calling SaveVideoState at '+strf(longint(savevideostate)));
{$endif logging}
SaveVideoState;
InitVars;
DriverName:=InternalDriverName; { DOS Graphics driver }
if (Graphdriver=Detect) then
begin
DetectGraph(GraphDriver,GraphMode);
If _GraphResult = grNotDetected then Exit;
{ _GraphResult is now already set to grOK by DetectGraph }
IntCurrentDriver := GraphDriver;
{ Actually set the graph mode...}
SaveVideoState;
InitVars;
{ Actually set the graph mode...}
SetGraphMode(GraphMode);
end
else
@ -2905,7 +2905,10 @@ end;
end
else
begin
_GraphResult := grOK;
IntCurrentDriver := GraphDriver;
SaveVideoState;
InitVars;
SetGraphMode(GraphMode);
end;
end;
@ -3003,7 +3006,11 @@ SetGraphBufSize
{
$Log$
Revision 1.41 1999-11-27 21:48:01 jonas
Revision 1.42 1999-11-28 12:19:59 jonas
* _GraphResult is now properly set to grOK by DetectGraph and
InitGraph if there are no errors
Revision 1.41 1999/11/27 21:48:01 jonas
* fixed VlineVESA256 and re-enabled it in graph.inc
* added procedure detectgraph to interface of graph unit