Browse Source

FP file dialog InputLine made more adaptive.

Margers 1 month ago
parent
commit
b1a492e5d7
1 changed files with 2 additions and 2 deletions
  1. 2 2
      packages/ide/weditor.pas

+ 2 - 2
packages/ide/weditor.pas

@@ -7984,13 +7984,13 @@ var R: TRect;
 begin
   inherited init(AWildCard,ATitle,InputName,AOptions,HistoryId);
   FileName^.getData(S);
-  R.Assign(3, 3, 31, 4);
+  FileName^.GetBounds(R);
   DInput := New(PFPFileInputLine, Init(R, 79{FileNameLen+4}));
   DInput^.SetData(S);
+  DInput^.GrowMode:=FileName^.GrowMode;
   InsertBefore(DInput,FileName); {insert before to preserv order as it was}
   Delete(FileName);
   Dispose(FileName,done);
-  DInput^.GrowMode:=gfGrowHiX;
   FileName:=DInput;
   FileHistory^.Link:=DInput;
   {resize}