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

added persistence for splitters positions

This commit is contained in:
Basile Burg 2014-12-06 08:00:13 +01:00
parent 3db69ee89e
commit 5d777a850f
1 changed files with 35 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/ce_miniexplorer.pas
View File

@ -40,6 +40,10 @@ type
procedure optget_LastFold(aWriter: TWriter); procedure optget_LastFold(aWriter: TWriter);
procedure optset_Favs(aReader: TReader); procedure optset_Favs(aReader: TReader);
procedure optget_Favs(aWriter: TWriter); procedure optget_Favs(aWriter: TWriter);
procedure optset_SplitFavTree(aReader: TReader);
procedure optget_SplitFavTree(aWriter: TWriter);
procedure optset_SplitTreeFiles(aReader: TReader);
procedure optget_SplitTreeFiles(aWriter: TWriter);
procedure updateFavorites; procedure updateFavorites;
procedure treeSetRoots; procedure treeSetRoots;
procedure lstFilesFromTree; procedure lstFilesFromTree;
@ -88,7 +92,7 @@ begin
Tree.OnSelectionChanged := @treeSelectionChanged; Tree.OnSelectionChanged := @treeSelectionChanged;
Tree.OnExpanding := @treeExpanding; Tree.OnExpanding := @treeExpanding;
// the filter is just use a GUI element and reveals: // the filter is just used as a GUI element and reveals:
// http://bugs.freepascal.org/view.php?id=27137 // http://bugs.freepascal.org/view.php?id=27137
lstFilter.FilteredListbox := nil; lstFilter.FilteredListbox := nil;
lstFilter.onChange := @lstFilterChange; lstFilter.onChange := @lstFilterChange;
@ -116,6 +120,8 @@ begin
inherited; inherited;
aFiler.DefineProperty(Name + '_LastFolder', @optset_LastFold, @optget_LastFold, true); aFiler.DefineProperty(Name + '_LastFolder', @optset_LastFold, @optget_LastFold, true);
aFiler.DefineProperty(Name + '_FavoritesFolders', @optset_Favs, @optget_Favs, true); aFiler.DefineProperty(Name + '_FavoritesFolders', @optset_Favs, @optget_Favs, true);
aFiler.DefineProperty(Name + '_SplitterFavTree', @optset_SplitFavTree, @optget_SplitFavTree, true);
aFiler.DefineProperty(Name + '_SplitterTreeFiles', @optset_SplitTreeFiles, @optget_SplitTreeFiles, true);
end; end;
procedure TCEMiniExplorerWidget.optset_LastFold(aReader: TReader); procedure TCEMiniExplorerWidget.optset_LastFold(aReader: TReader);
@ -152,6 +158,34 @@ procedure TCEMiniExplorerWidget.optget_Favs(aWriter: TWriter);
begin begin
aWriter.WriteString(fFavorites.DelimitedText); aWriter.WriteString(fFavorites.DelimitedText);
end; end;
procedure TCEMiniExplorerWidget.optset_SplitFavTree(aReader: TReader);
var
pos: Integer;
begin
pos := aReader.ReadInteger;
if pos > 0 then
Splitter1.SetSplitterPosition(pos);
end;
procedure TCEMiniExplorerWidget.optget_SplitFavTree(aWriter: TWriter);
begin
aWriter.WriteInteger(Splitter1.GetSplitterPosition);
end;
procedure TCEMiniExplorerWidget.optset_SplitTreeFiles(aReader: TReader);
var
pos: Integer;
begin
pos := aReader.ReadInteger;
if pos > 0 then
Splitter2.SetSplitterPosition(pos);
end;
procedure TCEMiniExplorerWidget.optget_SplitTreeFiles(aWriter: TWriter);
begin
aWriter.WriteInteger(Splitter2.GetSplitterPosition);
end;
{$ENDREGION} {$ENDREGION}
{$REGION Favorites -------------------------------------------------------------} {$REGION Favorites -------------------------------------------------------------}