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

JCF2: improved 'Clarify/Blank Lines' page layout

Browse Source 
git-svn-id: trunk@24913 -
This commit is contained in:
maxim 2010-04-25 14:10:37 +00:00
parent d949c2b8ed
commit 1ec64831b7
1 changed files with 86 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

115
components/jcf2/Ui/Settings/frBlankLines.lfm
View File

@ -3,111 +3,168 @@ inherited fBlankLines: TfBlankLines
Width = 380
ClientHeight = 280
ClientWidth = 380
TabOrder = 0
DesignLeft = 452
DesignTop = 192
object Label1: TLabel[0]
Left = 8
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = eNumReturnsAfterFinalEnd
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 144
Top = 135
Width = 211
BorderSpacing.Left = 6
Caption = 'Number of returns after the unit''s final end.'
ParentColor = False
end
object Label2: TLabel[1]
Left = 8
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtMaxConsecutiveBlankLines
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 200
Top = 185
Width = 178
BorderSpacing.Left = 6
Caption = 'Max consecutive blank lines anwhere'
ParentColor = False
end
object Label3: TLabel[2]
Left = 8
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtLinesBeforeProcedure
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 226
Top = 212
Width = 112
BorderSpacing.Left = 6
Caption = 'Lines before procedure'
ParentColor = False
end
object eNumReturnsAfterFinalEnd: TSpinEdit[3]
Left = 314
AnchorSideTop.Control = gbRemoveBlankLines
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 272
Height = 21
Top = 140
Top = 132
Width = 49
Anchors = [akTop, akRight]
MaxValue = 255
TabOrder = 1
end
object cbRemoveConsecutiveBlankLines: TCheckBox[4]
Left = 8
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = eNumReturnsAfterFinalEnd
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 176
Top = 159
Width = 169
BorderSpacing.Around = 6
Caption = 'Remove consecutive blank lines'
TabOrder = 2
end
object edtMaxConsecutiveBlankLines: TSpinEdit[5]
Left = 314
AnchorSideTop.Control = cbRemoveConsecutiveBlankLines
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 272
Height = 21
Top = 192
Top = 182
Width = 49
Anchors = [akTop, akRight]
MaxValue = 99
TabOrder = 3
end
object gbRemoveBlankLines: TGroupBox[6]
Left = 8
Height = 126
Top = 3
Width = 366
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 120
Top = 6
Width = 368
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Remove blank lines'
ClientHeight = 108
ClientWidth = 362
ClientHeight = 102
ClientWidth = 364
TabOrder = 0
object Label4: TLabel
Left = 8
AnchorSideLeft.Control = gbRemoveBlankLines
AnchorSideTop.Control = edtMaxBlankLinesInSection
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 81
Top = 78
Width = 209
BorderSpacing.Left = 6
Caption = 'Max consecutive blank lines before removal'
ParentColor = False
end
object cbRemoveBlockBlankLines: TCheckBox
Left = 8
AnchorSideLeft.Control = gbRemoveBlankLines
AnchorSideTop.Control = cbRemoveBlankLinesAfterProcHeader
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 54
Top = 52
Width = 192
BorderSpacing.Around = 6
Caption = 'At start and end of begin..end block'
TabOrder = 2
end
object cbRemoveBlankLinesAfterProcHeader: TCheckBox
Left = 8
AnchorSideLeft.Control = gbRemoveBlankLines
AnchorSideTop.Control = cbRemoveVarBlankLines
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 31
Top = 29
Width = 132
BorderSpacing.Around = 6
Caption = 'After procedure header'
TabOrder = 1
end
object cbRemoveVarBlankLines: TCheckBox
AnchorSideLeft.Control = gbRemoveBlankLines
AnchorSideTop.Control = gbRemoveBlankLines
Left = 6
Height = 17
Top = 8
Top = 6
Width = 136
BorderSpacing.Around = 6
Caption = 'In procedure var section'
TabOrder = 0
end
object edtMaxBlankLinesInSection: TSpinEdit
Left = 306
AnchorSideLeft.Control = Label4
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbRemoveBlockBlankLines
AnchorSideTop.Side = asrBottom
Left = 221
Height = 21
Top = 78
Top = 75
Width = 49
BorderSpacing.Around = 6
MaxValue = 99
TabOrder = 3
end
end
object edtLinesBeforeProcedure: TSpinEdit[7]
Left = 314
AnchorSideTop.Control = edtMaxConsecutiveBlankLines
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 272
Height = 21
Top = 226
Top = 209
Width = 49
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
MaxValue = 9
TabOrder = 4
end