fix: work around empty space artifact in ShellListView

ansgarbecker · ansgarbecker · commit cf9ed85900c0 · 2025-12-02T20:23:19.000+01:00
https://forum.lazarus.freepascal.org/index.php/topic,72895.0.html
diff --git a/source/extfiledialog.pas b/source/extfiledialog.pas
@@ -252,6 +252,8 @@ procedure TfrmExtFileDialog.comboFileTypeChange(Sender: TObject);
     FileMask := FFilterMasks[comboFileType.ItemIndex]
   else
     FileMask := '*.*';
+  if ShellListView.Items.Count > 0 then
+    ShellListView.Items[0].MakeVisible(false);
   ShellListView.Mask := FileMask;
   if Assigned(FOnTypeChange) then
     FOnTypeChange(Self);
@@ -355,6 +357,8 @@ procedure TfrmExtFileDialog.ShellTreeViewChanging(Sender: TObject;
   Node: TTreeNode; var AllowChange: Boolean);
 begin
   AllowChange := not (ofNoChangeDir in FOptions);
+  if AllowChange and (ShellListView.Items.Count > 0) then
+    ShellListView.Items[0].MakeVisible(false);
 end;
 
 procedure TfrmExtFileDialog.ShellTreeViewGetImageIndex(Sender: TObject;
