|
@@ -304,7 +304,10 @@ var
|
|
W: word;
|
|
W: word;
|
|
begin
|
|
begin
|
|
Text:=''; Attr:='';
|
|
Text:=''; Attr:='';
|
|
- if (Line<GetHeight) and not assigned(GraphBuffer) and
|
|
|
|
|
|
+ if (Line<GetHeight) and
|
|
|
|
+{$ifdef USE_GRAPH_SWITCH}
|
|
|
|
+ not assigned(GraphBuffer) and
|
|
|
|
+{$endif USE_GRAPH_SWITCH}
|
|
assigned(VBuffer) then
|
|
assigned(VBuffer) then
|
|
begin
|
|
begin
|
|
W:=GetLineStartOfs(Line);
|
|
W:=GetLineStartOfs(Line);
|
|
@@ -325,7 +328,7 @@ begin
|
|
Text:='Graph driver: '+GraphDriverName
|
|
Text:='Graph driver: '+GraphDriverName
|
|
else if (Line=2) then
|
|
else if (Line=2) then
|
|
Text:='Graph mode: '+GraphModeName+' ('+
|
|
Text:='Graph mode: '+GraphModeName+' ('+
|
|
- IntToStr(GraphXres)+'x'+IntToStr(GraphYres)+')';
|
|
|
|
|
|
+ IntToStr(GraphXres+1)+'x'+IntToStr(GraphYres+1)+')';
|
|
Attr:=CharStr(chr($0F),Length(Text));
|
|
Attr:=CharStr(chr($0F),Length(Text));
|
|
end;
|
|
end;
|
|
{$else not USE_GRAPH_SWITCH}
|
|
{$else not USE_GRAPH_SWITCH}
|
|
@@ -357,12 +360,14 @@ begin
|
|
if LastTextConsoleVideoInfo.Mode<>0 then
|
|
if LastTextConsoleVideoInfo.Mode<>0 then
|
|
begin
|
|
begin
|
|
ConsoleVideoInfo:=LastTextConsoleVideoInfo;
|
|
ConsoleVideoInfo:=LastTextConsoleVideoInfo;
|
|
|
|
+{$ifdef USE_GRAPH_SWITCH}
|
|
if assigned(GraphBuffer) then
|
|
if assigned(GraphBuffer) then
|
|
begin
|
|
begin
|
|
FreeMem(GraphBuffer,GraphImageSize);
|
|
FreeMem(GraphBuffer,GraphImageSize);
|
|
GraphBuffer:=nil;
|
|
GraphBuffer:=nil;
|
|
GraphImageSize:=0;
|
|
GraphImageSize:=0;
|
|
end;
|
|
end;
|
|
|
|
+{$endif USE_GRAPH_SWITCH}
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
@@ -1304,7 +1309,10 @@ end;
|
|
end.
|
|
end.
|
|
{
|
|
{
|
|
$Log$
|
|
$Log$
|
|
- Revision 1.22 2002-09-21 22:22:10 pierre
|
|
|
|
|
|
+ Revision 1.23 2002-09-25 22:02:13 pierre
|
|
|
|
+ * fix compilation error
|
|
|
|
+
|
|
|
|
+ Revision 1.22 2002/09/21 22:22:10 pierre
|
|
* new Restore method added, used for dos graphic applications
|
|
* new Restore method added, used for dos graphic applications
|
|
|
|
|
|
Revision 1.21 2002/09/13 22:27:07 pierre
|
|
Revision 1.21 2002/09/13 22:27:07 pierre
|