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

IDE/ProjectInspector: Limit the height of the properties panel

Browse Source
This commit is contained in:
n7800 2024-12-02 23:28:40 +05:00 committed by Juha Manninen
parent 40abf67e3b
commit ace400800b
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/projectinspector.lfm
View File

@ -15,6 +15,7 @@ object ProjectInspectorForm: TProjectInspectorForm
OnDeactivate = FormDeactivate
OnDestroy = FormDestroy
OnDropFiles = FormDropFiles
OnResize = FormResize
object ItemsTreeView: TTreeView
Left = 0
Height = 261
@ -162,6 +163,7 @@ object ProjectInspectorForm: TProjectInspectorForm
Width = 463
Align = alBottom
Caption = 'PropsGroupBox'
Constraints.MinHeight = 20
TabOrder = 3
OnResize = PropsGroupBoxResize
end

6
ide/projectinspector.pas
View File

@ -148,6 +148,7 @@ type
procedure FormDeactivate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
procedure FormResize(Sender: TObject);
procedure ItemsPopupMenuPopup(Sender: TObject);
procedure ItemsTreeViewAdvancedCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; {%H-}State: TCustomDrawState; Stage: TCustomDrawStage;
@ -903,6 +904,11 @@ begin
end;
end;
procedure TProjectInspectorForm.FormResize(Sender: TObject);
begin
PropsGroupBox.Constraints.MaxHeight := self.Height - FilterPanel.Height - ToolBar.Height - 20;
end;
procedure TProjectInspectorForm.ItemsPopupMenuPopup(Sender: TObject);
procedure SetItem(Item: TIDEMenuCommand; AnOnClick: TNotifyEvent;