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;
|
end;
|
||||||
|
|
||||||
procedure TMiniExplorerWidget.lstFilterButtonClick(Sender: TObject);
|
procedure TMiniExplorerWidget.lstFilterButtonClick(Sender: TObject);
|
||||||
var
|
|
||||||
r: string;
|
|
||||||
n: TTreeNode;
|
|
||||||
begin
|
begin
|
||||||
r := treeFolders.Root;
|
filterFiles;
|
||||||
n := treeFolders.Selected;
|
|
||||||
treeFolders.Root:= '';
|
|
||||||
treeFolders.Root:= r;
|
|
||||||
treeFolders.Selected := n;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMiniExplorerWidget.lstFilterKeyUp(Sender: TObject; var Key: Word;
|
procedure TMiniExplorerWidget.lstFilterKeyUp(Sender: TObject; var Key: Word;
|
||||||
|
|
Loading…
Reference in New Issue