explorer, more filter fixes

This commit is contained in:
Basile Burg 2024-04-29 07:15:00 +02:00
parent a741032bd1
commit e16a751495
1 changed files with 1 additions and 8 deletions

View File

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