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

fix, mini explorer, open file using shell broken

This commit is contained in:
Basile Burg 2015-11-04 11:49:44 +01:00
parent 139426241c
commit eb3d0c9300
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ce_miniexplorer.pas
View File

@ -376,12 +376,7 @@ end;
procedure TCEMiniExplorerWidget.lstFilesEnter(Sender: TObject); procedure TCEMiniExplorerWidget.lstFilesEnter(Sender: TObject);
begin begin
fLastListOrTree := Tree; fLastListOrTree := lstFiles;
end;
procedure TCEMiniExplorerWidget.TreeEnter(Sender: TObject);
begin
fLastListOrTree := Tree;
end; end;
procedure TCEMiniExplorerWidget.shellOpenSelected; procedure TCEMiniExplorerWidget.shellOpenSelected;
@ -417,6 +412,11 @@ end;
{$ENDREGION} {$ENDREGION}
{$REGION Tree ------------------------------------------------------------------} {$REGION Tree ------------------------------------------------------------------}
procedure TCEMiniExplorerWidget.TreeEnter(Sender: TObject);
begin
fLastListOrTree := Tree;
end;
procedure TCEMiniExplorerWidget.treeDeletion(Sender: TObject; Item: TTreeNode); procedure TCEMiniExplorerWidget.treeDeletion(Sender: TObject; Item: TTreeNode);
begin begin
if Item.Data <> nil then if Item.Data <> nil then