paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 21:49:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ also preserve the CGA background color in the go32v2 IDE

Browse Source 
git-svn-id: trunk@29086 -
This commit is contained in:
nickysn 2014-11-17 00:34:05 +00:00
parent 5c67fcc43f
commit c53c4702b6
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/fpusrscr.pas
View File

@ -184,6 +184,7 @@ type
GraphModeName : string;
GraphXres,GraphYres : longint;
GraphBuffer : pointer;
GraphCGABkColor: Integer;
ConsoleGraphDriver, ConsoleGraphMode : smallint;
{$endif USE_GRAPH_SWITCH}
function GetLineStartOfs(Line: integer): word;
@ -530,6 +531,7 @@ begin
2: GraphMode:=CGAC3;
3: GraphMode:=CGAC1;
end;
GraphCGABkColor:=Mem[$40:$66] and $0F;
end;
$6 : begin
GraphDriver:=Graph.CGA;
@ -607,6 +609,10 @@ begin
Graph.InitGraph(ConsoleGraphDriver,ConsoleGraphMode,'');
if graphresult=grOk then
begin
if (ConsoleGraphDriver=CGA) and
(ConsoleGraphMode>=CGAC0) and
(ConsoleGraphMode<=CGAC3) then
SetBkColor(GraphCGABkColor);
PutImage(0,0,GraphBuffer^,CopyPut);
FreeMem(GraphBuffer,GraphImageSize);
GraphBuffer:=nil;