Browse Source

* fix compilation error

pierre 23 years ago
parent
commit
b8534404fe
1 changed files with 11 additions and 3 deletions
  1. 11 3
      ide/fpusrscr.pas

+ 11 - 3
ide/fpusrscr.pas

@@ -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