Explorar o código

Do not wrap fp.ans file lines on load

Margers hai 1 ano
pai
achega
e6b95d37e6
Modificáronse 1 ficheiros con 2 adicións e 1 borrados
  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;