From 3ddc0b59288b1af02194f82d38f6fc0175b0560e Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Fri, 2 Nov 2018 04:45:38 +0100 Subject: [PATCH] fix #376 - arrow back in explorer has no effect when term follows the explorer curr dir --- src/ce_miniexplorer.lfm | 2 +- src/ce_miniexplorer.pas | 3 +++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/src/ce_miniexplorer.lfm b/src/ce_miniexplorer.lfm index f18d21a0..1f63fef3 100644 --- a/src/ce_miniexplorer.lfm +++ b/src/ce_miniexplorer.lfm @@ -180,11 +180,11 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget Top = 2 Width = 329 ButtonWidth = 23 - NumGlyphs = 1 Flat = True Align = alClient BorderSpacing.Left = 180 BorderSpacing.Around = 2 + NumGlyphs = 1 MaxLength = 0 TabOrder = 0 OnButtonClick = lstFilterButtonClick diff --git a/src/ce_miniexplorer.pas b/src/ce_miniexplorer.pas index 365b9b58..b8bebe6a 100644 --- a/src/ce_miniexplorer.pas +++ b/src/ce_miniexplorer.pas @@ -704,7 +704,10 @@ var begin p := treeFolders.Root.extractFileDir; if p.dirExists then + begin treeFolders.Root := p; + subjMnexDirectoryChanged(fMnxSubj, p); + end; end; procedure TCEMiniExplorerWidget.lstFilesDblClick(Sender: TObject);