From e16a751495b216e1305cf4f5cf4e84b656f9b72f Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Mon, 29 Apr 2024 07:15:00 +0200 Subject: [PATCH] explorer, more filter fixes --- src/u_miniexplorer.pas | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/src/u_miniexplorer.pas b/src/u_miniexplorer.pas index 681a41cc..0da141e5 100644 --- a/src/u_miniexplorer.pas +++ b/src/u_miniexplorer.pas @@ -741,15 +741,8 @@ begin end; procedure TMiniExplorerWidget.lstFilterButtonClick(Sender: TObject); -var - r: string; - n: TTreeNode; begin - r := treeFolders.Root; - n := treeFolders.Selected; - treeFolders.Root:= ''; - treeFolders.Root:= r; - treeFolders.Selected := n; + filterFiles; end; procedure TMiniExplorerWidget.lstFilterKeyUp(Sender: TObject; var Key: Word;