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