mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-10 07:00:24 +02:00
IDE: Tweak UnusedUnits dialog layout. Issue #28179, patch from Alexey Torgashin.
git-svn-id: trunk@49176 -
This commit is contained in:
parent
a28f1cd1d6
commit
2606960328
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user