IDE: Tweak UnusedUnits dialog layout. Issue #28179, patch from Alexey Torgashin.

git-svn-id: trunk@49176 -
This commit is contained in:
juha 2015-05-26 11:09:13 +00:00
parent a28f1cd1d6
commit 2606960328

View File

@ -4,6 +4,7 @@ object UnusedUnitsDialog: TUnusedUnitsDialog
Top = 236
Width = 501
ActiveControl = UnitsTreeView
BorderIcons = [biSystemMenu]
Caption = 'UnusedUnitsDialog'
ClientHeight = 382
ClientWidth = 501
@ -17,7 +18,7 @@ object UnusedUnitsDialog: TUnusedUnitsDialog
Width = 489
Align = alClient
BorderSpacing.Around = 6
DefaultItemHeight = 22
DefaultItemHeight = 18
MultiSelect = True
ReadOnly = True
ScrollBars = ssAutoBoth
@ -31,6 +32,7 @@ object UnusedUnitsDialog: TUnusedUnitsDialog
Top = 306
Width = 501
Align = alBottom
BevelOuter = bvNone
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.HorizontalSpacing = 10
@ -38,26 +40,27 @@ object UnusedUnitsDialog: TUnusedUnitsDialog
ClientWidth = 501
TabOrder = 1
object CancelBitBtn: TBitBtn
Left = 404
Height = 30
Top = 39
Width = 90
Left = 412
Height = 26
Top = 43
Width = 82
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Cancel = True
Caption = 'Cancel'
Constraints.MinWidth = 75
Kind = bkCancel
ModalResult = 2
OnClick = CancelBitBtnClick
TabOrder = 0
TabOrder = 3
end
object RemoveSelectedBitBtn: TBitBtn
AnchorSideRight.Control = CancelBitBtn
Left = 217
Height = 30
Top = 39
Width = 177
Left = 257
Height = 25
Top = 44
Width = 145
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 6
@ -65,14 +68,14 @@ object UnusedUnitsDialog: TUnusedUnitsDialog
Constraints.MinWidth = 75
ModalResult = 1
OnClick = RemoveSelectedBitBtnClick
TabOrder = 1
TabOrder = 2
end
object RemoveAllBitBtn: TBitBtn
AnchorSideRight.Control = RemoveSelectedBitBtn
Left = 69
Height = 30
Top = 39
Width = 138
Left = 132
Height = 25
Top = 44
Width = 115
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 6
@ -80,20 +83,20 @@ object UnusedUnitsDialog: TUnusedUnitsDialog
Constraints.MinWidth = 75
ModalResult = 8
OnClick = RemoveAllBitBtnClick
TabOrder = 2
TabOrder = 1
end
object ShowInitializationCheckBox: TCheckBox
Left = 8
Height = 24
Height = 19
Top = 6
Width = 350
Width = 280
Caption = 'Show units with initialization/finalization sections'
Checked = True
OnClick = ShowInitializationCheckBoxClick
ParentShowHint = False
ShowHint = True
State = cbChecked
TabOrder = 3
TabOrder = 0
end
end
end