Bladeren bron

Do not wrap fp.ans file lines on load

Margers 1 jaar geleden
bovenliggende
commit
e6b95d37e6
1 gewijzigde bestanden met toevoegingen van 2 en 1 verwijderingen
  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;