paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-01 01:29:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Make Package Editor remember its settings for dir hierarchy and sorting. Issues #18804, #22448

Browse Source 
git-svn-id: trunk@43613 -
This commit is contained in:
juha 2013-12-29 16:45:20 +00:00
parent 372e399987
commit e2fccd609f
3 changed files with 32 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ide/environmentopts.pp
View File

@ -286,6 +286,10 @@ type
FProjInspSortAlphabetically: boolean;
FProjInspShowDirHierarchy: boolean;
// package editor
FPackageEditorSortAlphabetically: boolean;
FPackageEditorShowDirHierarchy: boolean;
// hints
FCheckDiskChangesWithLoading: boolean;
FShowHintsForComponentPalette: boolean;
@ -524,6 +528,12 @@ type
property ProjInspShowDirHierarchy: boolean read FProjInspShowDirHierarchy
write FProjInspShowDirHierarchy;
// package editor
property PackageEditorSortAlphabetically: boolean read FPackageEditorSortAlphabetically
write FPackageEditorSortAlphabetically;
property PackageEditorShowDirHierarchy: boolean read FPackageEditorShowDirHierarchy
write FPackageEditorShowDirHierarchy;
// hints
property CheckDiskChangesWithLoading: boolean read FCheckDiskChangesWithLoading
write FCheckDiskChangesWithLoading;
@ -882,6 +892,10 @@ begin
FProjInspSortAlphabetically:=false;
FProjInspShowDirHierarchy:=false;
// package editor
FPackageEditorSortAlphabetically:=false;
FPackageEditorShowDirHierarchy:=false;
// hints
FCheckDiskChangesWithLoading:=false;
FShowHintsForComponentPalette:=true;
@ -1314,6 +1328,12 @@ begin
FProjInspShowDirHierarchy:=XMLConfig.GetValue(
Path+'ProjInspShowDirHierarchy/Value',false);
// package editor
FPackageEditorSortAlphabetically:=XMLConfig.GetValue(
Path+'PackageEditorSortAlphabetically/Value',false);
FPackageEditorShowDirHierarchy:=XMLConfig.GetValue(
Path+'PackageEditorShowDirHierarchy/Value',false);
// hints
FCheckDiskChangesWithLoading:=XMLConfig.GetValue(
Path+'CheckDiskChangesWithLoading/Value',false);
@ -1676,6 +1696,12 @@ begin
XMLConfig.SetDeleteValue(Path+'ProjInspShowDirHierarchy/Value',
FProjInspShowDirHierarchy,false);
// package editor
XMLConfig.SetDeleteValue(Path+'PackageEditorSortAlphabetically/Value',
FPackageEditorSortAlphabetically,false);
XMLConfig.SetDeleteValue(Path+'PackageEditorShowDirHierarchy/Value',
FPackageEditorShowDirHierarchy,false);
// hints
XMLConfig.SetDeleteValue(Path+'CheckDiskChangesWithLoading/Value',
FCheckDiskChangesWithLoading,false);

2
packager/packageeditor.lfm
View File

@ -12,7 +12,7 @@ object PackageEditorForm: TPackageEditorForm
OnClose = PackageEditorFormClose
OnCloseQuery = PackageEditorFormCloseQuery
Position = poScreenCenter
LCLVersion = '1.1'
LCLVersion = '1.3'
object ToolBar: TToolBar
Left = 0
Height = 48

6
packager/packageeditor.pas
View File

@ -38,7 +38,7 @@ uses
IDEImagesIntf, MenuIntf, ExtCtrls, LazIDEIntf, ProjectIntf,
CodeToolsStructs, FormEditingIntf, TreeFilterEdit, PackageIntf,
IDEDialogs, IDEHelpIntf, IDEOptionsIntf, IDEProcs, LazarusIDEStrConsts,
IDEDefs, CompilerOptions, ComponentReg,
IDEDefs, CompilerOptions, ComponentReg, EnvironmentOpts,
PackageDefs, AddToPackageDlg, PkgVirtualUnitEditor,
MissingPkgFilesDlg, PackageSystem, CleanPkgDeps;
@ -2401,12 +2401,16 @@ begin
inherited Create(TheOwner);
FPlugins:=TStringList.Create;
SetupComponents;
SortAlphabetically := EnvironmentOptions.PackageEditorSortAlphabetically;
ShowDirectoryHierarchy := EnvironmentOptions.PackageEditorShowDirHierarchy;
end;
destructor TPackageEditorForm.Destroy;
var
nt: TPENodeType;
begin
EnvironmentOptions.PackageEditorSortAlphabetically := SortAlphabetically;
EnvironmentOptions.PackageEditorShowDirHierarchy := ShowDirectoryHierarchy;
FilterEdit.ForceFilter;
for nt:=Low(TPENodeType) to High(TPENodeType) do
FreeNodeData(nt);