Repository URL to install this package:
|
Version:
1.6 ▾
|
inherited fClarifySpaces: TfClarifySpaces
Height = 463
Width = 457
ClientHeight = 463
ClientWidth = 457
OnResize = FrameResize
TabOrder = 0
DesignLeft = 479
DesignTop = 188
object cbFixSpacing: TCheckBox[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 6
Height = 17
Top = 6
Width = 71
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'Fix &spacing'
TabOrder = 0
end
object cbSpaceClassHeritage: TCheckBox[1]
AnchorSideLeft.Control = cbMoveSpacesToBeforeColon
AnchorSideTop.Control = cbMoveSpacesToBeforeColon
AnchorSideTop.Side = asrBottom
Left = 230
Height = 17
Top = 291
Width = 151
BorderSpacing.Top = 6
Caption = 'Space before class &heritage'
TabOrder = 1
end
object gbColon: TGroupBox[2]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cbFixSpacing
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = gbTabs
Left = 6
Height = 317
Top = 29
Width = 218
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Around = 6
Caption = 'Spaces &before colon in'
ClientHeight = 299
ClientWidth = 214
TabOrder = 2
object lblSpaceBeforeColonVar: TLabel
AnchorSideLeft.Control = gbColon
AnchorSideTop.Control = eSpaceBeforeColonVar
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 9
Width = 78
BorderSpacing.Left = 6
Caption = '&Var declarations'
FocusControl = eSpaceBeforeColonVar
ParentColor = False
end
object lblSpacesBeforeColonClassVar: TLabel
AnchorSideLeft.Control = gbColon
AnchorSideTop.Control = eSpacesBeforeColonClassVar
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 117
Width = 72
BorderSpacing.Left = 6
Caption = '&Class variables'
FocusControl = eSpacesBeforeColonClassVar
ParentColor = False
end
object lblSpaceBeforeColonFn: TLabel
AnchorSideLeft.Control = gbColon
AnchorSideTop.Control = eSpaceBeforeColonFn
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 90
Width = 105
BorderSpacing.Left = 6
Caption = '&Function return types'
FocusControl = eSpaceBeforeColonFn
ParentColor = False
end
object lblSpaceBeforeColonParam: TLabel
AnchorSideLeft.Control = gbColon
AnchorSideTop.Control = eSpaceBeforeColonParam
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 63
Width = 108
BorderSpacing.Left = 6
Caption = '&Procedure parameters'
FocusControl = eSpaceBeforeColonParam
ParentColor = False
end
object lblSpacesBeforeCaseLabel: TLabel
AnchorSideLeft.Control = gbColon
AnchorSideTop.Control = eSpacesBeforeCaseLabel
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 171
Width = 50
BorderSpacing.Left = 6
Caption = 'Case l&abel'
FocusControl = eSpacesBeforeCaseLabel
ParentColor = False
end
object lbSpacesBeforeLabel: TLabel
AnchorSideLeft.Control = gbColon
AnchorSideTop.Control = eSpacesBeforeLabel
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 198
Width = 26
BorderSpacing.Left = 6
Caption = '&Label'
FocusControl = eSpacesBeforeLabel
ParentColor = False
end
object lblSpacesBeforeColonGeneric: TLabel
AnchorSideLeft.Control = gbColon
AnchorSideTop.Control = eSpacesBeforeColonGeneric
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 225
Width = 49
BorderSpacing.Left = 6
Caption = 'In &generic'
FocusControl = eSpacesBeforeColonGeneric
ParentColor = False
end
object lblSpaceBeforeColonConst: TLabel
AnchorSideLeft.Control = gbColon
AnchorSideTop.Control = eSpaceBeforeColonConst
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 36
Width = 90
BorderSpacing.Left = 6
Caption = 'C&onst declarations'
FocusControl = eSpaceBeforeColonConst
ParentColor = False
end
object lblSpacesBeforeColonRecordField: TLabel
AnchorSideLeft.Control = gbColon
AnchorSideTop.Control = eSpacesBeforeColonRecordField
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 144
Width = 63
BorderSpacing.Left = 6
Caption = '&Record fields'
FocusControl = eSpacesBeforeColonRecordField
ParentColor = False
end
object eSpaceBeforeColonVar: TSpinEdit
AnchorSideTop.Control = gbColon
AnchorSideRight.Control = gbColon
AnchorSideRight.Side = asrBottom
Left = 158
Height = 21
Top = 6
Width = 50
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
TabOrder = 0
end
object eSpaceBeforeColonParam: TSpinEdit
AnchorSideTop.Control = eSpaceBeforeColonConst
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbColon
AnchorSideRight.Side = asrBottom
Left = 158
Height = 21
Top = 60
Width = 50
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
TabOrder = 1
end
object eSpaceBeforeColonFn: TSpinEdit
AnchorSideTop.Control = eSpaceBeforeColonParam
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbColon
AnchorSideRight.Side = asrBottom
Left = 158
Height = 21
Top = 87
Width = 50
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
TabOrder = 2
end
object eSpacesBeforeColonClassVar: TSpinEdit
AnchorSideTop.Control = eSpaceBeforeColonFn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbColon
AnchorSideRight.Side = asrBottom
Left = 158
Height = 21
Top = 114
Width = 50
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
TabOrder = 3
end
object eSpacesBeforeCaseLabel: TSpinEdit
AnchorSideTop.Control = eSpacesBeforeColonRecordField
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbColon
AnchorSideRight.Side = asrBottom
Left = 158
Height = 21
Top = 168
Width = 50
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
TabOrder = 4
end
object eSpacesBeforeLabel: TSpinEdit
AnchorSideTop.Control = eSpacesBeforeCaseLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbColon
AnchorSideRight.Side = asrBottom
Left = 158
Height = 21
Top = 195
Width = 50
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
TabOrder = 5
end
object eSpacesBeforeColonGeneric: TSpinEdit
AnchorSideTop.Control = eSpacesBeforeLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbColon
AnchorSideRight.Side = asrBottom
Left = 158
Height = 21
Top = 222
Width = 50
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
TabOrder = 6
end
object eSpaceBeforeColonConst: TSpinEdit
AnchorSideTop.Control = eSpaceBeforeColonVar
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbColon
AnchorSideRight.Side = asrBottom
Left = 158
Height = 21
Top = 33
Width = 50
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
TabOrder = 7
end
object eSpacesBeforeColonRecordField: TSpinEdit
AnchorSideTop.Control = eSpacesBeforeColonClassVar
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbColon
AnchorSideRight.Side = asrBottom
Left = 158
Height = 21
Top = 141
Width = 50
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
TabOrder = 8
end
end
object gbTabs: TGroupBox[3]
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = edtMaxSpacesInCode
Left = 6
Height = 78
Top = 352
Width = 445
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Caption = '&Tab characters'
ClientHeight = 60
ClientWidth = 441
TabOrder = 3
object Label1: TLabel
AnchorSideTop.Control = edtSpacesPerTab
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edtSpacesPerTab
Left = 307
Height = 14
Top = 9
Width = 73
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
Caption = 'Spaces per tab'
ParentColor = False
end
object Label3: TLabel
AnchorSideTop.Control = edtSpacesForTab
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edtSpacesForTab
Left = 309
Height = 14
Top = 36
Width = 71
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
Caption = 'Spaces for tab'
ParentColor = False
end
object cbTabsToSpaces: TCheckBox
AnchorSideLeft.Control = gbTabs
AnchorSideTop.Control = edtSpacesPerTab
AnchorSideTop.Side = asrCenter
Left = 6
Height = 17
Top = 8
Width = 113
BorderSpacing.Left = 6
Caption = 'Turn tabs to spaces'
OnClick = cbTabsToSpacesClick
TabOrder = 0
end
object cbSpacesToTabs: TCheckBox
AnchorSideLeft.Control = gbTabs
AnchorSideTop.Control = edtSpacesForTab
AnchorSideTop.Side = asrCenter
Left = 6
Height = 17
Top = 35
Width = 113
BorderSpacing.Left = 6
Caption = 'Turn spaces to tabs'
OnClick = cbSpacesToTabsClick
TabOrder = 2
end
object edtSpacesPerTab: TSpinEdit
AnchorSideTop.Control = gbTabs
AnchorSideRight.Control = gbTabs
AnchorSideRight.Side = asrBottom
Left = 386
Height = 21
Top = 6
Width = 49
Anchors = [akTop, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
MaxValue = 12
TabOrder = 1
end
object edtSpacesForTab: TSpinEdit
AnchorSideTop.Control = edtSpacesPerTab
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbTabs
AnchorSideRight.Side = asrBottom
Left = 386
Height = 21
Top = 33
Width = 49
Anchors = [akTop, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
MaxValue = 12
TabOrder = 3
end
end
object cbMaxSpaces: TCheckBox[4]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtMaxSpacesInCode
AnchorSideTop.Side = asrCenter
Left = 6
Height = 17
Top = 438
Width = 111
BorderSpacing.Left = 6
Caption = '&Max spaces in code'
OnClick = cbMaxSpacesClick
TabOrder = 4
end
object edtMaxSpacesInCode: TSpinEdit[5]
AnchorSideLeft.Control = cbMaxSpaces
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbTabs
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 123
Height = 21
Top = 436
Width = 50
Anchors = [akLeft, akBottom]
BorderSpacing.Around = 6
MaxValue = 99
TabOrder = 5
end
object rgOperators: TRadioGroup[6]
AnchorSideLeft.Control = gbColon
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 230
Height = 81
Top = 6
Width = 221
Anchors = [akTop, akLeft, akRight]
AutoFill = True
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Spaces around &operators'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 63
ClientWidth = 217
Items.Strings = (
'Always'
'Leave as is'
'Never'
)
TabOrder = 6
end
object GroupBoxInsertSpaceBeforeBracket: TGroupBox[7]
AnchorSideLeft.Control = gbColon
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = rgOperators
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 230
Height = 93
Top = 93
Width = 221
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = '&Insert space before bracket'
ClientHeight = 75
ClientWidth = 217
TabOrder = 7
object cbInsertSpaceBeforeBracketinFunctionDeclaration: TCheckBox
AnchorSideLeft.Control = GroupBoxInsertSpaceBeforeBracket
AnchorSideTop.Control = GroupBoxInsertSpaceBeforeBracket
Left = 6
Height = 17
Top = 6
Width = 126
BorderSpacing.Around = 6
Caption = 'In function &declaration'
TabOrder = 0
end
object cbInsertSpaceBeforeBracketinFunctionCall: TCheckBox
AnchorSideLeft.Control = GroupBoxInsertSpaceBeforeBracket
AnchorSideTop.Control = cbInsertSpaceBeforeBracketinFunctionDeclaration
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 29
Width = 88
BorderSpacing.Around = 6
Caption = 'In function &call'
TabOrder = 1
end
object cbBeforeOpenSquareBracketInExpression: TCheckBox
AnchorSideLeft.Control = GroupBoxInsertSpaceBeforeBracket
AnchorSideTop.Control = cbInsertSpaceBeforeBracketinFunctionCall
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 52
Width = 123
BorderSpacing.Around = 6
Caption = 'Before [ in expression'
TabOrder = 2
end
end
object GroupBoxSpacesInsideBrackets: TGroupBox[8]
AnchorSideLeft.Control = gbColon
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBoxInsertSpaceBeforeBracket
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 230
Height = 70
Top = 192
Width = 221
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Insert space inside brackets'
ClientHeight = 52
ClientWidth = 217
TabOrder = 8
object CheckBoxInsertSpaceBeforeEnd: TCheckBox
AnchorSideLeft.Control = GroupBoxSpacesInsideBrackets
AnchorSideTop.Control = cbInsertSpaceAfterOpen
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 29
Width = 71
BorderSpacing.Around = 6
Caption = 'Before end'
TabOrder = 0
end
object cbInsertSpaceAfterOpen: TCheckBox
AnchorSideLeft.Control = GroupBoxSpacesInsideBrackets
AnchorSideTop.Control = GroupBoxSpacesInsideBrackets
Left = 6
Height = 17
Top = 6
Width = 70
BorderSpacing.Around = 6
Caption = 'After open'
TabOrder = 1
end
end
object cbMoveSpacesToBeforeColon: TCheckBox[9]
AnchorSideLeft.Control = gbColon
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBoxSpacesInsideBrackets
AnchorSideTop.Side = asrBottom
Left = 230
Height = 17
Top = 268
Width = 156
BorderSpacing.Around = 6
Caption = 'Move spaces to before colon'
TabOrder = 9
end
end