paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-25 21:07:24 +01: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) TProjectInspectorForm = class(TForm)
BtnPanel: TPanel; BtnPanel: TPanel;
DirectoryHierarchyButton: TSpeedButton;
FilterEdit: TTreeFilterEdit;
OpenButton: TSpeedButton; OpenButton: TSpeedButton;
DirectoryHierarchyButton: TSpeedButton;
SortAlphabeticallyButton: TSpeedButton;
FilterEdit: TTreeFilterEdit;
ItemsTreeView: TTreeView; ItemsTreeView: TTreeView;
ItemsPopupMenu: TPopupMenu; ItemsPopupMenu: TPopupMenu;
SortAlphabeticallyButton: TSpeedButton;
// toolbar // toolbar
ToolBar: TToolBar; ToolBar: TToolBar;
// toolbuttons // toolbuttons
@ -841,6 +841,8 @@ begin
inherited Create(TheOwner); inherited Create(TheOwner);
Name:=NonModalIDEWindowNames[nmiwProjectInspector]; Name:=NonModalIDEWindowNames[nmiwProjectInspector];
Caption:=lisMenuProjectInspector; Caption:=lisMenuProjectInspector;
FShowDirectoryHierarchy := True;
DirectoryHierarchyButton.Down := FShowDirectoryHierarchy;
FSortAlphabetically := True; FSortAlphabetically := True;
SortAlphabeticallyButton.Down := FSortAlphabetically; SortAlphabeticallyButton.Down := FSortAlphabetically;
KeyPreview:=true; KeyPreview:=true;