Browse Source

Do not wrap fp.ans file lines on load

Margers 10 months ago
parent
commit
e6b95d37e6
1 changed files with 2 additions and 1 deletions
  1. 2 1
      packages/ide/wansi.pas

+ 2 - 1
packages/ide/wansi.pas

@@ -994,7 +994,8 @@ begin
   LockCount:=0;
   LockCount:=0;
   GrowMode:=gfGrowHiX or gfGrowHiY;
   GrowMode:=gfGrowHiX or gfGrowHiY;
   New(Console, Init(@Self));
   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^.ClrScr;
   Console^.CursorOn;
   Console^.CursorOn;
 end;
 end;