Browse Source

File open dialog file list adjustments after resize

Margers 7 months ago
parent
commit
c464f4d58e
1 changed files with 2 additions and 0 deletions
  1. 2 0
      packages/ide/weditor.pas

+ 2 - 0
packages/ide/weditor.pas

@@ -7674,6 +7674,8 @@ begin
   if Desktop^.Size.X > 80 then
   if Desktop^.Size.X > 80 then
     GrowTo(Min(Desktop^.Size.X-(80-Size.X),102),Size.Y);
     GrowTo(Min(Desktop^.Size.X-(80-Size.X),102),Size.Y);
   FileList^.NumCols:= Max((FileList^.Size.X-(FileList^.Size.X div 14)) div 14,2);
   FileList^.NumCols:= Max((FileList^.Size.X-(FileList^.Size.X div 14)) div 14,2);
+  { Adjust scrollbar step and page step }
+  FileList^.SetRange(FileList^.Range); {set again for scrollbar min max values}
   {set focus on the new input line}
   {set focus on the new input line}
   DInput^.Focus;
   DInput^.Focus;
 end;
 end;