mirror of https://gitlab.com/basile.b/dexed.git
explorer, more filter fixes
This commit is contained in:
parent
a741032bd1
commit
e16a751495
|
@ -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;
|
||||
|
|
Loading…
Reference in New Issue