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

recall last folder, not anymore limited to favorites

This commit is contained in:
Basile Burg 2015-01-04 21:46:04 +01:00
parent b0350a849c
commit a8e327557a
1 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ce_miniexplorer.pas
View File

@ -144,19 +144,10 @@ begin
end; end;
procedure TCEMiniExplorerWidget.optset_LastFold(aReader: TReader); procedure TCEMiniExplorerWidget.optset_LastFold(aReader: TReader);
var
lst: TstringList;
begin begin
fLastFold := aReader.ReadString; fLastFold := aReader.ReadString;
if not directoryExists(fLastFold) then exit; if directoryExists(fLastFold) then
// expandPath(fLastFold);
lst := TStringList.Create;
try
listFiles(lst, fLastFold);
fillLstFiles(lst);
finally
lst.Free;
end;
end; end;
procedure TCEMiniExplorerWidget.optget_LastFold(aWriter: TWriter); procedure TCEMiniExplorerWidget.optget_LastFold(aWriter: TWriter);
@ -380,6 +371,7 @@ begin
lst := TStringList.Create; lst := TStringList.Create;
try try
pth := PString(Tree.Selected.Data)^; pth := PString(Tree.Selected.Data)^;
fLastFold := pth;
listFiles(lst, pth); listFiles(lst, pth);
fillLstFiles(lst); fillLstFiles(lst);
finally finally