paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-21 16:43:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Show directory hierarchy by default in project inspector

Browse Source 
git-svn-id: trunk@42080 -
This commit is contained in:
juha 2013-07-13 21:21:07 +00:00
parent 5604d3b049
commit 0c15e9096e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/projectinspector.pas
View File

@ -95,12 +95,12 @@ type
TProjectInspectorForm = class(TForm)
BtnPanel: TPanel;
DirectoryHierarchyButton: TSpeedButton;
FilterEdit: TTreeFilterEdit;
OpenButton: TSpeedButton;
DirectoryHierarchyButton: TSpeedButton;
SortAlphabeticallyButton: TSpeedButton;
FilterEdit: TTreeFilterEdit;
ItemsTreeView: TTreeView;
ItemsPopupMenu: TPopupMenu;
SortAlphabeticallyButton: TSpeedButton;
// toolbar
ToolBar: TToolBar;
// toolbuttons
@ -841,6 +841,8 @@ begin
inherited Create(TheOwner);
Name:=NonModalIDEWindowNames[nmiwProjectInspector];
Caption:=lisMenuProjectInspector;
FShowDirectoryHierarchy := True;
DirectoryHierarchyButton.Down := FShowDirectoryHierarchy;
FSortAlphabetically := True;
SortAlphabeticallyButton.Down := FSortAlphabetically;
KeyPreview:=true;