paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 08:59:32 +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

87
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,47 +26,58 @@ 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 ComponentPanel: TPanel
object PnlClient: TPanel
Left = 0
Height = 184
Height = 772
Top = 23
Width = 273
Align = alTop
Width = 293
Align = alClient
BevelOuter = bvNone
ClientHeight = 184
ClientWidth = 273
ClientHeight = 772
ClientWidth = 293
TabOrder = 2
object CompFilterEdit: TTreeFilterEdit
AnchorSideLeft.Control = CompFilterLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CompFilterLabel
AnchorSideTop.Side = asrCenter
Left = 77
Height = 23
Top = 3
Width = 193
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 5
MaxLength = 0
object ComponentPanel: TPanel
Left = 0
Height = 184
Top = 0
Width = 293
Align = alTop
BevelOuter = bvNone
ClientHeight = 184
ClientWidth = 293
TabOrder = 0
end
object CompFilterLabel: TLabel
Left = 3
Height = 15
Top = 7
Width = 69
Caption = 'Co&mponents'
FocusControl = CompFilterEdit
ParentColor = False
object CompFilterEdit: TTreeFilterEdit
AnchorSideLeft.Control = CompFilterLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CompFilterLabel
AnchorSideTop.Side = asrCenter
Left = 77
Height = 23
Top = 3
Width = 213
ButtonWidth = 23
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 5
NumGlyphs = 1
MaxLength = 0
TabOrder = 0
end
object CompFilterLabel: TLabel
Left = 3
Height = 15
Top = 7
Width = 69
Caption = 'Co&mponents'
FocusControl = CompFilterEdit
ParentColor = False
end
end
end
object MainPopupMenu: TPopupMenu

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;