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

fix #129 - mini-explorer, clearing the filter has for effect to scan the explorer root folder instead of the selected one

This commit is contained in:
Basile Burg 2024-01-21 20:16:50 +01:00
parent 5f0cb4a3f4
commit bd3625a63f
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
CHANGELOG.md
View File

@ -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 # v3.9.26
## Enhancements ## Enhancements

9
src/u_miniexplorer.pas
View File

@ -737,11 +737,14 @@ end;
procedure TMiniExplorerWidget.lstFilterButtonClick(Sender: TObject); procedure TMiniExplorerWidget.lstFilterButtonClick(Sender: TObject);
var var
s: string; r: string;
n: TTreeNode;
begin begin
s := treeFolders.Root; r := treeFolders.Root;
n := treeFolders.Selected;
treeFolders.Root:= ''; treeFolders.Root:= '';
treeFolders.Root:= s; treeFolders.Root:= r;
treeFolders.Selected := n;
end; end;
procedure TMiniExplorerWidget.lstFilterKeyUp(Sender: TObject; var Key: Word; procedure TMiniExplorerWidget.lstFilterKeyUp(Sender: TObject; var Key: Word;