From a8e327557aabd721c95e2b0c58834ebff0c2bcc7 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Sun, 4 Jan 2015 21:46:04 +0100 Subject: [PATCH] recall last folder, not anymore limited to favorites --- src/ce_miniexplorer.pas | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) diff --git a/src/ce_miniexplorer.pas b/src/ce_miniexplorer.pas index 29bb8957..cd5e3f25 100644 --- a/src/ce_miniexplorer.pas +++ b/src/ce_miniexplorer.pas @@ -144,19 +144,10 @@ begin end; procedure TCEMiniExplorerWidget.optset_LastFold(aReader: TReader); -var - lst: TstringList; begin fLastFold := aReader.ReadString; - if not directoryExists(fLastFold) then exit; - // - lst := TStringList.Create; - try - listFiles(lst, fLastFold); - fillLstFiles(lst); - finally - lst.Free; - end; + if directoryExists(fLastFold) then + expandPath(fLastFold); end; procedure TCEMiniExplorerWidget.optget_LastFold(aWriter: TWriter); @@ -380,6 +371,7 @@ begin lst := TStringList.Create; try pth := PString(Tree.Selected.Data)^; + fLastFold := pth; listFiles(lst, pth); fillLstFiles(lst); finally