fix #378 - filter for mini explorer files doesn't work when selected folder is not at level 0

This commit is contained in:
Basile Burg 2018-11-25 18:09:18 +01:00
parent 2e61c939a1
commit 265e3b9d91
1 changed files with 4 additions and 0 deletions

View File

@ -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