浏览代码

Do not wrap fp.ans file lines on load

Margers 1 年之前
父节点
当前提交
e6b95d37e6
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      packages/ide/wansi.pas

+ 2 - 1
packages/ide/wansi.pas

@@ -994,7 +994,8 @@ begin
   LockCount:=0;
   GrowMode:=gfGrowHiX or gfGrowHiY;
   New(Console, Init(@Self));
-  Console^.Size.X:=Bounds.B.X+1; Console^.Size.Y:=Bounds.B.Y+1;
+  Console^.Size.X:=Max(Bounds.B.X+1,80); { 80 is for LoadFile to not wrap lines around too soon}
+  Console^.Size.Y:=Bounds.B.Y+1;
   Console^.ClrScr;
   Console^.CursorOn;
 end;