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

fix #278 - View in mini explorer, lightning icon doesn't work until explicit click in folde

This commit is contained in:
Basile Burg 2018-03-31 08:27:41 +02:00
parent 4216d02542
commit 637ab5802e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_miniexplorer.pas
View File

@ -694,6 +694,7 @@ procedure TCEMiniExplorerWidget.treeFoldersGetSelectedIndex(Sender: TObject;
Node: TTreeNode); Node: TTreeNode);
begin begin
Node.ImageIndex:=1; Node.ImageIndex:=1;
Node.SelectedIndex:=1;
end; end;
procedure TCEMiniExplorerWidget.treeSetRoots; procedure TCEMiniExplorerWidget.treeSetRoots;
@ -752,6 +753,9 @@ begin
else if location.fileExists then else if location.fileExists then
treeFolders.Root := location.extractFileDir; treeFolders.Root := location.extractFileDir;
fLastFold:=treeFolders.Root; fLastFold:=treeFolders.Root;
fLastListOrTree := treeFolders;
if treeFolders.Items.Count > 0 then
treeFolders.Items.Item[0].Selected:=true;
end; end;
function TCEMiniExplorerWidget.currentLocation: string; function TCEMiniExplorerWidget.currentLocation: string;