Browse Source

* accord to new WriteConsoleOuput declarations

pierre 25 years ago
parent
commit
897374c48c
1 changed files with 5 additions and 2 deletions
  1. 5 2
      ide/text/fpusrscr.pas

+ 5 - 2
ide/text/fpusrscr.pas

@@ -649,7 +649,7 @@ begin
     end;
   ReadConsoleOutput(Src, PChar_info(LineBuf),
     BufSize, BufCoord, @WriteRegion);
-  WriteConsoleOutput(Dest, PChar_info(LineBuf)^,
+  WriteConsoleOutput(Dest, PChar_info(LineBuf),
     BufSize, BufCoord, @WriteRegion);
   FreeMem(LineBuf,SizeOf(CharInfoArray));
   GetConsoleScreenBufferInfo(Src,
@@ -715,7 +715,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.12  2000-04-25 08:42:33  pierre
+  Revision 1.13  2000-06-16 15:00:20  pierre
+   * accord to new WriteConsoleOuput declarations
+
+  Revision 1.12  2000/04/25 08:42:33  pierre
    * New Gabor changes : see fixes.txt
 
   Revision 1.11  2000/04/18 11:42:37  pierre