paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 04:19:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

JCF2: improved 'Clarify/Indent' page layout

Browse Source 
git-svn-id: trunk@24888 -
This commit is contained in:
maxim 2010-04-24 17:45:23 +00:00
parent c100f0d607
commit 0ca831e720
1 changed files with 150 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

189
components/jcf2/Ui/Settings/frClarifyIndent.lfm
View File

@ -1,146 +1,257 @@
inherited fClarifyIndent: TfClarifyIndent
Height = 342
Height = 347
Width = 430
ClientHeight = 342
ClientHeight = 347
ClientWidth = 430
TabOrder = 0
DesignLeft = 737
DesignTop = 299
object Label2: TLabel[0]
Left = 4
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtIndentSpaces
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 6
Top = 9
Width = 118
BorderSpacing.Left = 6
Caption = 'Block indentation spaces'
ParentColor = False
end
object edtIndentSpaces: TSpinEdit[1]
Left = 180
AnchorSideLeft.Control = Label2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
Left = 130
Height = 21
Top = 4
Top = 6
Width = 50
BorderSpacing.Around = 6
MaxValue = 12
TabOrder = 0
end
object gbOptions: TGroupBox[2]
Left = 4
Height = 310
Top = 32
Width = 417
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtIndentSpaces
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 308
Top = 33
Width = 418
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Caption = 'Options'
ClientHeight = 292
ClientWidth = 413
ClientHeight = 308
ClientWidth = 418
TabOrder = 1
object cbIndentBeginEnd: TCheckBox
Left = 8
AnchorSideLeft.Control = gbOptions
AnchorSideTop.Control = eIndentBeginEndSpaces
AnchorSideTop.Side = asrCenter
Left = 6
Height = 17
Top = 19
Top = 8
Width = 232
BorderSpacing.Left = 6
BorderSpacing.Bottom = 6
Caption = 'Extra indent for begin/end inside procedures'
OnClick = cbIndentBeginEndClick
TabOrder = 0
end
object eIndentBeginEndSpaces: TSpinEdit
Left = 356
AnchorSideTop.Control = gbOptions
AnchorSideRight.Control = gbOptions
AnchorSideRight.Side = asrBottom
Left = 348
Height = 21
Top = 7
Top = 6
Width = 50
Anchors = [akTop, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 20
MaxValue = 10
MinValue = -10
TabOrder = 1
end
object cbHasFirstLevelIndent: TCheckBox
Left = 8
AnchorSideLeft.Control = gbOptions
AnchorSideTop.Control = eFirstLevelIndent
AnchorSideTop.Side = asrCenter
Left = 6
Height = 17
Top = 41
Top = 35
Width = 158
BorderSpacing.Left = 6
BorderSpacing.Bottom = 6
Caption = 'Different indent for first level'
OnClick = cbHasFirstLevelIndentClick
TabOrder = 2
end
object eFirstLevelIndent: TSpinEdit
Left = 356
AnchorSideTop.Control = eIndentBeginEndSpaces
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbOptions
AnchorSideRight.Side = asrBottom
Left = 348
Height = 21
Top = 35
Top = 33
Width = 50
Anchors = [akTop, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 20
TabOrder = 3
end
object cbKeepWithInProc: TCheckBox
Left = 8
AnchorSideLeft.Control = gbOptions
AnchorSideTop.Control = cbHasFirstLevelIndent
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 63
Top = 58
Width = 260
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = 'Keep single-line comments with code in procedures'
TabOrder = 4
end
object cbKeepWithInGlobals: TCheckBox
Left = 8
AnchorSideLeft.Control = gbOptions
AnchorSideTop.Control = cbKeepWithInProc
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 85
Top = 81
Width = 239
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = 'Keep single-line comments with code in globals'
TabOrder = 5
end
object cbKeepWithInClassDef: TCheckBox
Left = 8
AnchorSideLeft.Control = gbOptions
AnchorSideTop.Control = cbKeepWithInGlobals
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 107
Top = 104
Width = 281
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = 'Keep single-line comments with code in class definitions'
TabOrder = 6
end
object cbKeepWithElsewhere: TCheckBox
Left = 8
AnchorSideLeft.Control = gbOptions
AnchorSideTop.Control = cbKeepWithInClassDef
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 129
Top = 127
Width = 244
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = 'Keep single-line comments with code elsewhere'
TabOrder = 7
end
object cbIndentIfElse: TCheckBox
Left = 8
AnchorSideLeft.Control = gbOptions
AnchorSideTop.Control = cbKeepWithElsewhere
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 151
Top = 150
Width = 170
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = 'Extra Indent for If...Else blocks'
TabOrder = 8
end
object cbIndentCaseElse: TCheckBox
Left = 8
AnchorSideLeft.Control = gbOptions
AnchorSideTop.Control = cbIndentIfElse
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 173
Width = 186
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = 'Extra Indent for Case...Else blocks'
TabOrder = 9
end
object cbIndentLibraryProcs: TCheckBox
Left = 8
AnchorSideLeft.Control = gbOptions
AnchorSideTop.Control = cbIndentCaseElse
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 195
Top = 196
Width = 168
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = 'Indent for procedures in library'
TabOrder = 10
end
object cbIndentProcedureBody: TCheckBox
Left = 8
AnchorSideLeft.Control = gbOptions
AnchorSideTop.Control = cbIndentLibraryProcs
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 217
Top = 219
Width = 146
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = 'Indent for procedure body'
TabOrder = 11
end
object cbIndentNestedTypes: TCheckBox
Left = 8
AnchorSideLeft.Control = gbOptions
AnchorSideTop.Control = cbIndentProcedureBody
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 239
Top = 242
Width = 116
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = 'Indent nested types'
TabOrder = 12
end
object cbIndentVarAndConstInClass: TCheckBox
Left = 8
AnchorSideLeft.Control = gbOptions
AnchorSideTop.Control = cbIndentNestedTypes
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 261
Top = 265
Width = 156
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = 'Indent var and const in class'
TabOrder = 13
end