paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:39:25 +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 object ObjectInspectorDlg: TObjectInspectorDlg
Left = -3 Left = 893
Height = 702 Height = 818
Top = 169 Top = 62
Width = 273 Width = 293
BorderStyle = bsSizeToolWin BorderStyle = bsSizeToolWin
Caption = 'ObjectInspectorDlg' Caption = 'ObjectInspectorDlg'
ClientHeight = 702 ClientHeight = 818
ClientWidth = 273 ClientWidth = 293
KeyPreview = True KeyPreview = True
LCLVersion = '1.9.0.0' LCLVersion = '1.9.0.0'
object StatusBar: TStatusBar object StatusBar: TStatusBar
Left = 0 Left = 0
Height = 23 Height = 23
Top = 679 Top = 795
Width = 273 Width = 293
Panels = < Panels = <
item item
Width = 100 Width = 100
@ -26,47 +26,58 @@ object ObjectInspectorDlg: TObjectInspectorDlg
Left = 0 Left = 0
Height = 23 Height = 23
Top = 0 Top = 0
Width = 273 Width = 293
Align = alTop Align = alTop
ItemHeight = 15 ItemHeight = 15
OnCloseUp = AvailComboBoxCloseUp OnCloseUp = AvailComboBoxCloseUp
Style = csDropDownList Style = csDropDownList
TabOrder = 0 TabOrder = 0
end end
object ComponentPanel: TPanel object PnlClient: TPanel
Left = 0 Left = 0
Height = 184 Height = 772
Top = 23 Top = 23
Width = 273 Width = 293
Align = alTop Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 184 ClientHeight = 772
ClientWidth = 273 ClientWidth = 293
TabOrder = 2 TabOrder = 2
object CompFilterEdit: TTreeFilterEdit object ComponentPanel: TPanel
AnchorSideLeft.Control = CompFilterLabel Left = 0
AnchorSideLeft.Side = asrBottom Height = 184
AnchorSideTop.Control = CompFilterLabel Top = 0
AnchorSideTop.Side = asrCenter Width = 293
Left = 77 Align = alTop
Height = 23 BevelOuter = bvNone
Top = 3 ClientHeight = 184
Width = 193 ClientWidth = 293
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 5
MaxLength = 0
TabOrder = 0 TabOrder = 0
end object CompFilterEdit: TTreeFilterEdit
object CompFilterLabel: TLabel AnchorSideLeft.Control = CompFilterLabel
Left = 3 AnchorSideLeft.Side = asrBottom
Height = 15 AnchorSideTop.Control = CompFilterLabel
Top = 7 AnchorSideTop.Side = asrCenter
Width = 69 Left = 77
Caption = 'Co&mponents' Height = 23
FocusControl = CompFilterEdit Top = 3
ParentColor = False 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
end end
object MainPopupMenu: TPopupMenu object MainPopupMenu: TPopupMenu

9
components/ideintf/objectinspector.pp
View File

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