From 637ab5802eebc22cd0531f5355999d6685c68596 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sat, 31 Mar 2018 08:27:41 +0200
Subject: [PATCH] fix #278 - View in mini explorer, lightning icon doesn't work
until explicit click in folde
---
src/ce_miniexplorer.pas | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/src/ce_miniexplorer.pas b/src/ce_miniexplorer.pas
index 7b27d7bd..936eb505 100644
--- a/src/ce_miniexplorer.pas
+++ b/src/ce_miniexplorer.pas
@@ -694,6 +694,7 @@ procedure TCEMiniExplorerWidget.treeFoldersGetSelectedIndex(Sender: TObject;
Node: TTreeNode);
begin
Node.ImageIndex:=1;
+ Node.SelectedIndex:=1;
end;
procedure TCEMiniExplorerWidget.treeSetRoots;
@@ -752,6 +753,9 @@ begin
else if location.fileExists then
treeFolders.Root := location.extractFileDir;
fLastFold:=treeFolders.Root;
+ fLastListOrTree := treeFolders;
+ if treeFolders.Items.Count > 0 then
+ treeFolders.Items.Item[0].Selected:=true;
end;
function TCEMiniExplorerWidget.currentLocation: string;