forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_miniexplorer.pas
View File

@ -558,6 +558,7 @@ end;
procedure TCEMiniExplorerWidget.filterFiles; procedure TCEMiniExplorerWidget.filterFiles;
var var
s: string; s: string;
p: string;
i: integer; i: integer;
begin begin
@ -565,8 +566,11 @@ begin
// e.g after filtering failed // e.g after filtering failed
treeFolders.BeginUpdate; treeFolders.BeginUpdate;
s := treeFolders.Root; s := treeFolders.Root;
p := treeFolders.Path;
treeFolders.Root:= ''; treeFolders.Root:= '';
treeFolders.Root:= s; treeFolders.Root:= s;
treeFolders.Path:= p;
treeFolders.EndUpdate; treeFolders.EndUpdate;
if lstFilter.filter.isEmpty then if lstFilter.filter.isEmpty then