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

fix leak when selecting a fav

This commit is contained in:
Basile Burg 2014-08-04 16:13:29 +02:00
parent 44cadb4fd3
commit 2884ec32bf
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/ce_miniexplorer.pas
View File

@ -172,12 +172,13 @@ begin
if not Selected then exit;
//
fLastFold := PString(Item.Data)^;
lstFiles.Clear;
lst := TStringList.Create;
try
lstFiles.Items.Clear;
listFiles(lst, fLastFold);
fillLstFiles(lst);
finally
lst.Free;
end;
end;
@ -191,11 +192,6 @@ begin
lstFiles.Clear;
end;
procedure TCEMiniExplorerWidget.lstFilesDblClick(Sender: TObject);
begin
shellOpenSelected;
end;
procedure TCEMiniExplorerWidget.btnAddFavClick(Sender: TObject);
begin
if Tree.Selected = nil then exit;
@ -205,9 +201,9 @@ end;
procedure TCEMiniExplorerWidget.lstFavDblClick(Sender: TObject);
begin
if lstFav.Selected = nil then exit;
lstFiles.Items.Clear;
expandPath(lstFav.Selected.Caption);
end;
{$ENDREGION}
{$REGION Files -----------------------------------------------------------------}
@ -244,6 +240,11 @@ begin
CEMainForm.openFile(fname);
end;
procedure TCEMiniExplorerWidget.lstFilesDblClick(Sender: TObject);
begin
shellOpenSelected;
end;
procedure TCEMiniExplorerWidget.shellOpenSelected;
var
fname: string;
@ -355,7 +356,6 @@ begin
treeScanSubFolders(Tree.Selected);
end;
//TODO-cbugfix: it leaks expanded nodes data.
procedure TCEMiniExplorerWidget.expandPath(const aPath: string);
var
i: NativeInt;