IDE: Remove some border space from ComponentList Window. Issue #22279, patch from William de Oliveira Ferreira

git-svn-id: trunk@37668 -
This commit is contained in:
juha 2012-06-16 18:35:42 +00:00
parent 2028f4a305
commit 2bd0f8edfe

View File

@ -1,7 +1,7 @@
object ComponentListForm: TComponentListForm object ComponentListForm: TComponentListForm
Left = 320 Left = 320
Height = 556 Height = 556
Top = 307 Top = 159
Width = 338 Width = 338
ActiveControl = ListFilterEd ActiveControl = ListFilterEd
Caption = 'Components' Caption = 'Components'
@ -19,42 +19,42 @@ object ComponentListForm: TComponentListForm
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel AnchorSideBottom.Control = ButtonPanel
Left = 6 Left = 1
Height = 452 Height = 481
Top = 52 Top = 27
Width = 326 Width = 336
ActivePage = TabSheetListBox ActivePage = TabSheetListBox
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 1
TabIndex = 0 TabIndex = 0
TabOrder = 1 TabOrder = 1
OnChange = PageControlChange OnChange = PageControlChange
object TabSheetListBox: TTabSheet object TabSheetListBox: TTabSheet
Caption = 'List' Caption = 'List'
ClientHeight = 425 ClientHeight = 454
ClientWidth = 324 ClientWidth = 332
object Panel7: TPanel object Panel7: TPanel
Left = 0 Left = 0
Height = 425 Height = 454
Top = 0 Top = 0
Width = 324 Width = 332
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 5 BorderWidth = 2
ClientHeight = 425 ClientHeight = 454
ClientWidth = 324 ClientWidth = 332
TabOrder = 0 TabOrder = 0
object ComponentsListbox: TListBox object ComponentsListbox: TListBox
Left = 5 Left = 2
Height = 415 Height = 450
Top = 5 Top = 2
Width = 314 Width = 328
Align = alClient Align = alClient
ItemHeight = 0 ItemHeight = 0
OnDblClick = ComponentsListboxDblClick OnDblClick = ComponentsListboxDblClick
OnDrawItem = ComponentsListboxDrawItem OnDrawItem = ComponentsListboxDrawItem
OnKeyDown = ComponentsListboxKeyDown OnKeyDown = ComponentsListboxKeyDown
ScrollWidth = 312 ScrollWidth = 326
Sorted = True Sorted = True
Style = lbOwnerDrawFixed Style = lbOwnerDrawFixed
TabOrder = 0 TabOrder = 0
@ -64,8 +64,8 @@ object ComponentListForm: TComponentListForm
end end
object TabSheetPaletteTree: TTabSheet object TabSheetPaletteTree: TTabSheet
Caption = 'Palette' Caption = 'Palette'
ClientHeight = 425 ClientHeight = 454
ClientWidth = 324 ClientWidth = 332
object Panel5: TPanel object Panel5: TPanel
Left = 0 Left = 0
Height = 419 Height = 419
@ -95,8 +95,8 @@ object ComponentListForm: TComponentListForm
end end
object TabSheetInheritance: TTabSheet object TabSheetInheritance: TTabSheet
Caption = 'Inheritance' Caption = 'Inheritance'
ClientHeight = 425 ClientHeight = 454
ClientWidth = 324 ClientWidth = 332
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Height = 410 Height = 410
@ -126,24 +126,23 @@ object ComponentListForm: TComponentListForm
end end
object Panel3: TPanel object Panel3: TPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 1
Height = 46 Height = 26
Top = 0 Top = 0
Width = 338 Width = 338
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 8 ClientHeight = 26
ClientHeight = 46
ClientWidth = 338 ClientWidth = 338
TabOrder = 0 TabOrder = 0
object LabelSearch: TLabel object LabelSearch: TLabel
AnchorSideLeft.Control = Panel3 AnchorSideLeft.Control = Panel3
AnchorSideTop.Control = Panel3 AnchorSideTop.Control = Panel3
Left = 14 Left = 6
Height = 18 Height = 14
Top = 14 Top = 6
Width = 80 Width = 71
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'LabelSearch' Caption = 'LabelSearch'
ParentColor = False ParentColor = False
@ -153,13 +152,13 @@ object ComponentListForm: TComponentListForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = LabelSearch AnchorSideTop.Control = LabelSearch
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 100 Left = 83
Height = 27 Height = 23
Top = 10 Top = 2
Width = 169 Width = 169
UseFormActivate = True UseFormActivate = True
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 0 NumGlyphs = 1
BorderSpacing.Left = 5 BorderSpacing.Left = 5
Font.Color = clBtnShadow Font.Color = clBtnShadow
MaxLength = 0 MaxLength = 0
@ -172,12 +171,13 @@ object ComponentListForm: TComponentListForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = LabelSearch AnchorSideTop.Control = LabelSearch
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 100 Left = 83
Height = 27 Height = 23
Top = 10 Top = 2
Width = 169 Width = 228
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 0 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 5 BorderSpacing.Left = 5
MaxLength = 0 MaxLength = 0
TabOrder = 1 TabOrder = 1
@ -185,8 +185,8 @@ object ComponentListForm: TComponentListForm
end end
object ButtonPanel: TButtonPanel object ButtonPanel: TButtonPanel
Left = 6 Left = 6
Height = 40 Height = 36
Top = 510 Top = 514
Width = 326 Width = 326
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True