Browse Source

* use correct video buffer size

pierre 24 years ago
parent
commit
746679aac6
1 changed files with 6 additions and 3 deletions
  1. 6 3
      ide/fpmansi.inc

+ 6 - 3
ide/fpmansi.inc

@@ -42,8 +42,8 @@ var
      end;
      end;
 begin
 begin
   { First copy the whole screen untouched }
   { First copy the whole screen untouched }
-  GetMem(Buf,VideoBufSize * SizeOf(TVideoCell));
-  Move(VideoBuf^,Buf^,VideoBufSize * SizeOf(TVideoCell));
+  GetMem(Buf,VideoBufSize);
+  Move(VideoBuf^,Buf^,VideoBufSize);
   { partial screen save ? }
   { partial screen save ? }
   PushStatus(msg_click_upper_left);
   PushStatus(msg_click_upper_left);
   UL.X:=0;UL.Y:=0;
   UL.X:=0;UL.Y:=0;
@@ -81,7 +81,10 @@ end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.1  2001-08-04 11:30:23  peter
+  Revision 1.2  2001-10-12 14:20:11  pierre
+   * use correct video buffer size
+
+  Revision 1.1  2001/08/04 11:30:23  peter
     * ide works now with both compiler versions
     * ide works now with both compiler versions
 
 
   Revision 1.1.2.2  2000/11/22 11:03:32  pierre
   Revision 1.1.2.2  2000/11/22 11:03:32  pierre