Browse Source

Minor File dialog tweaks

Ivan Sorokin 5 days ago
parent
commit
294ac1deb6
1 changed files with 6 additions and 5 deletions
  1. 6 5
      packages/fv/src/stddlg.inc

+ 6 - 5
packages/fv/src/stddlg.inc

@@ -1625,18 +1625,19 @@ begin
   Control := New(PLabel, Init(R, slFiles, FileList));
   Control := New(PLabel, Init(R, slFiles, FileList));
   Insert(Control);
   Insert(Control);
 
 
-  R.Assign(3,23,31,24);
+  R.Assign(4+CStrLen(InputName), 13, 31, 14);
   FileName := New(PFileInputLine, Init(R, 79));
   FileName := New(PFileInputLine, Init(R, 79));
-  FileName^.GrowMode:=gfGrowHiX;
+  FileName^.GrowMode := gfGrowHiX or gfGrowLoY or gfGrowHiY;
   FileName^.Data Sw_PString_DeRef := WildCard;
   FileName^.Data Sw_PString_DeRef := WildCard;
   Insert(FileName);
   Insert(FileName);
 
 
-  R.Assign(2,22,3+CStrLen(InputName),23);
+  R.Assign(2,13,3+CStrLen(InputName),14);
   Control := New(PLabel, Init(R, InputName, FileName));
   Control := New(PLabel, Init(R, InputName, FileName));
+  Control^.GrowMode := gfGrowLoY or gfGrowHiY;
   Insert(Control);
   Insert(Control);
-  R.Assign(31,23,34,24);
+  R.Assign(31,13,34,14);
   FileHistory := New(PFileHistory, Init(R, FileName, HistoryId));
   FileHistory := New(PFileHistory, Init(R, FileName, HistoryId));
-  FileHistory^.GrowMode:=gfGrowHiX or gfGrowLoX;
+  FileHistory^.GrowMode := gfGrowHiX or gfGrowLoX or gfGrowLoY or gfGrowHiY;
   Insert(FileHistory);
   Insert(FileHistory);
 
 
   R.Assign(35,3,46,5);
   R.Assign(35,3,46,5);