paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 12:12:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

ideintf: objectinspector: Fix status bar misalignment. issue #33825

Browse Source 
git-svn-id: trunk@58123 -
This commit is contained in:
ondrej 2018-06-04 12:29:39 +00:00
parent b00f803221
commit 5834be34f2
2 changed files with 54 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
components/ideintf/objectinspector.lfm
View File

@ -1,19 +1,19 @@
object ObjectInspectorDlg: TObjectInspectorDlg
Left = -3
Height = 702
Top = 169
Width = 273
Left = 893
Height = 818
Top = 62
Width = 293
BorderStyle = bsSizeToolWin
Caption = 'ObjectInspectorDlg'
ClientHeight = 702
ClientWidth = 273
ClientHeight = 818
ClientWidth = 293
KeyPreview = True
LCLVersion = '1.9.0.0'
object StatusBar: TStatusBar
Left = 0
Height = 23
Top = 679
Width = 273
Top = 795
Width = 293
Panels = <
item
Width = 100
@ -26,23 +26,33 @@ object ObjectInspectorDlg: TObjectInspectorDlg
Left = 0
Height = 23
Top = 0
Width = 273
Width = 293
Align = alTop
ItemHeight = 15
OnCloseUp = AvailComboBoxCloseUp
Style = csDropDownList
TabOrder = 0
end
object PnlClient: TPanel
Left = 0
Height = 772
Top = 23
Width = 293
Align = alClient
BevelOuter = bvNone
ClientHeight = 772
ClientWidth = 293
TabOrder = 2
object ComponentPanel: TPanel
Left = 0
Height = 184
Top = 23
Width = 273
Top = 0
Width = 293
Align = alTop
BevelOuter = bvNone
ClientHeight = 184
ClientWidth = 273
TabOrder = 2
ClientWidth = 293
TabOrder = 0
object CompFilterEdit: TTreeFilterEdit
AnchorSideLeft.Control = CompFilterLabel
AnchorSideLeft.Side = asrBottom
@ -51,11 +61,11 @@ object ObjectInspectorDlg: TObjectInspectorDlg
Left = 77
Height = 23
Top = 3
Width = 193
Width = 213
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 5
NumGlyphs = 1
MaxLength = 0
TabOrder = 0
end
@ -69,6 +79,7 @@ object ObjectInspectorDlg: TObjectInspectorDlg
ParentColor = False
end
end
end
object MainPopupMenu: TPopupMenu
OnPopup = MainPopupMenuPopup
OnClose = MainPopupMenuClose

9
components/ideintf/objectinspector.pp
View File

@ -620,6 +620,7 @@ type
ComponentPanel: TPanel;
CompFilterLabel: TLabel;
CompFilterEdit: TTreeFilterEdit;
PnlClient: TPanel;
StatusBar: TStatusBar;
procedure MainPopupMenuClose(Sender: TObject);
procedure MainPopupMenuPopup(Sender: TObject);
@ -4378,7 +4379,7 @@ begin
Constraints.MinHeight := 8;
Caption := '';
Height := InfoBoxHeight;
Parent := Self;
Parent := PnlClient;
BevelOuter := bvNone;
BevelInner := bvNone;
Align := alBottom;
@ -4397,7 +4398,7 @@ begin
begin
Name := 'PropertyPanel';
Caption := '';
Parent := self;
Parent := PnlClient;
BevelOuter := bvNone;
BevelInner := bvNone;
Align := alClient;
@ -5365,7 +5366,7 @@ begin
with Splitter1 do
begin
Name := 'Splitter1';
Parent := Self;
Parent := PnlClient;
Align := alTop;
Top := ComponentPanelHeight;
Height := 5;
@ -5410,7 +5411,7 @@ begin
with Splitter2 do
begin
Name := 'Splitter2';
Parent := Self;
Parent := PnlClient;
Align := alBottom;
Top := InfoPanel.Top - 1;
Height := 5;