From bd3625a63f8dc368e479e83ed58c75e8b8e1e87f Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sun, 21 Jan 2024 20:16:50 +0100
Subject: [PATCH] fix #129 - mini-explorer, clearing the filter has for effect
 to scan the explorer root folder instead of the selected one

---
 CHANGELOG.md           | 6 ++++++
 src/u_miniexplorer.pas | 9 ++++++---
 2 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 3046996f..49872a00 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,9 @@
+# v3.9.27-devel
+
+## Bugs fixed
+
+- Mini-explorer, clearing the filter had for effect to scan the root folder instead of the selected one. (#129)
+
 # v3.9.26
 
 ## Enhancements
diff --git a/src/u_miniexplorer.pas b/src/u_miniexplorer.pas
index 61ce4637..07b666be 100644
--- a/src/u_miniexplorer.pas
+++ b/src/u_miniexplorer.pas
@@ -737,11 +737,14 @@ end;
 
 procedure TMiniExplorerWidget.lstFilterButtonClick(Sender: TObject);
 var
-  s: string;
+  r: string;
+  n: TTreeNode;
 begin
-  s := treeFolders.Root;
+  r := treeFolders.Root;
+  n := treeFolders.Selected;
   treeFolders.Root:= '';
-  treeFolders.Root:= s;
+  treeFolders.Root:= r;
+  treeFolders.Selected := n;
 end;
 
 procedure TMiniExplorerWidget.lstFilterKeyUp(Sender: TObject; var Key: Word;