From 265e3b9d914e18fa535e741dc6753965cbcf78fd Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sun, 25 Nov 2018 18:09:18 +0100
Subject: [PATCH] fix #378 - filter for mini explorer files doesn't work when
 selected folder is not at level 0

---
 src/ce_miniexplorer.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/ce_miniexplorer.pas b/src/ce_miniexplorer.pas
index b8bebe6a..f3ce0d68 100644
--- a/src/ce_miniexplorer.pas
+++ b/src/ce_miniexplorer.pas
@@ -558,6 +558,7 @@ end;
 procedure TCEMiniExplorerWidget.filterFiles;
 var
   s: string;
+  p: string;
   i: integer;
 begin
 
@@ -565,8 +566,11 @@ begin
   // e.g after filtering failed
   treeFolders.BeginUpdate;
   s := treeFolders.Root;
+  p := treeFolders.Path;
   treeFolders.Root:= '';
   treeFolders.Root:= s;
+  treeFolders.Path:= p;
+
   treeFolders.EndUpdate;
 
   if lstFilter.filter.isEmpty then