Browse Source

* fix the tab garbage

pierre 24 năm trước cách đây
mục cha
commit
8eab47cb32
1 tập tin đã thay đổi với 8 bổ sung2 xóa
  1. 8 2
      ide/fpviews.pas

+ 8 - 2
ide/fpviews.pas

@@ -3225,7 +3225,10 @@ begin
 
   { --- marad‚k sor --- }
   ClearBuf; MoveChar(B[0],'³',C1,1); MoveChar(B[Size.X-1],'³',C1,1);
-  SWriteBuf(0,3,Size.X,Size.Y-4,B);
+  for i:=3 to Size.Y-1 do
+    SWriteBuf(0,i,Size.X,1,B);
+  { SWriteBuf(0,3,Size.X,Size.Y-4,B); this was wrong
+    because WriteBuf then expect a buffer of size size.x*(size.y-4)*2 PM }
 
   { --- Size.X . sor --- }
   MoveChar(B[0],'À',C1,1); MoveChar(B[1],'Ä',C1,Max(Size.X-2,0)); MoveChar(B[Size.X-1],'Ù',C1,1);
@@ -4172,7 +4175,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.4  2001-08-09 23:17:50  pierre
+  Revision 1.5  2001-08-29 23:28:20  pierre
+   * fix the tab garbage
+
+  Revision 1.4  2001/08/09 23:17:50  pierre
    * keep tabs in Clipboard
 
   Revision 1.3  2001/08/05 12:23:01  peter