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

more related to #130

This commit is contained in:
Basile Burg 2024-01-22 06:49:21 +01:00
parent 0160c52b61
commit 129c3c4d2c
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/u_miniexplorer.pas
View File

@ -111,7 +111,6 @@ type
fFreeProj: ICommonProject; fFreeProj: ICommonProject;
fFavorites: TStringList; fFavorites: TStringList;
fLastFold: string; fLastFold: string;
fRootFold: string;
fLastListOrTree: TControl; fLastListOrTree: TControl;
fDblClick: TExplorerDoubleClick; fDblClick: TExplorerDoubleClick;
fContextExpand: boolean; fContextExpand: boolean;
@ -240,7 +239,7 @@ begin
widg := TMiniExplorerWidget(source); widg := TMiniExplorerWidget(source);
fFavoriteFolders.Assign(widg.fFavorites); fFavoriteFolders.Assign(widg.fFavorites);
fLastFolder := widg.fLastFold; fLastFolder := widg.fLastFold;
fRootFolder := widg.fRootFold; fRootFolder := widg.treeFolders.Root;
fSplitter1Position := widg.Splitter1.GetSplitterPosition; fSplitter1Position := widg.Splitter1.GetSplitterPosition;
fSplitter2Position := widg.Splitter2.GetSplitterPosition; fSplitter2Position := widg.Splitter2.GetSplitterPosition;
fDblClick:= widg.fDblClick; fDblClick:= widg.fDblClick;
@ -820,7 +819,6 @@ begin
if treeFolders.Selected.isNotAssigned then if treeFolders.Selected.isNotAssigned then
exit; exit;
fLastFold := treeFolders.Path.extractFileDir; // trailing path sep fLastFold := treeFolders.Path.extractFileDir; // trailing path sep
fRootFold := treeFolders.Root;
subjMnexDirectoryChanged(fMnxSubj, fLastFold); subjMnexDirectoryChanged(fMnxSubj, fLastFold);
lstFiles.Sort(); lstFiles.Sort();
end; end;