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

JCF2: improved 'Clarify/Align' page layout

Browse Source 
git-svn-id: trunk@24914 -
This commit is contained in:
maxim 2010-04-25 14:23:30 +00:00
parent 1ec64831b7
commit 51476f192e
1 changed files with 113 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

146
components/jcf2/Ui/Settings/frClarifyAlign.lfm
View File

@ -3,61 +3,90 @@ inherited fClarifyAlign: TfClarifyAlign
Width = 330
ClientHeight = 367
ClientWidth = 330
TabOrder = 0
DesignLeft = 719
DesignTop = 331
object Label6: TLabel[0]
Left = 8
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtMaxVariance
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 268
Top = 254
Width = 65
BorderSpacing.Left = 6
Caption = 'Max Variance'
ParentColor = False
end
object Label4: TLabel[1]
Left = 8
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtMaxColumn
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 240
Top = 227
Width = 59
BorderSpacing.Left = 6
Caption = 'Max Column'
ParentColor = False
end
object Label5: TLabel[2]
Left = 8
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtMinColumn
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 212
Top = 200
Width = 55
BorderSpacing.Left = 6
Caption = 'Min Column'
ParentColor = False
end
object Label1: TLabel[3]
Left = 8
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = eMaxUnaligned
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 328
Top = 308
Width = 70
BorderSpacing.Left = 6
Caption = 'Max unaligned'
ParentColor = False
end
object Label2: TLabel[4]
Left = 8
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtMaxVarianceInterface
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 296
Top = 281
Width = 113
BorderSpacing.Left = 6
Caption = 'Max Variance Interface'
ParentColor = False
end
object cbInterfaceOnly: TCheckBox[5]
Left = 8
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 6
Height = 17
Top = 6
Width = 88
BorderSpacing.Around = 6
Caption = 'Interface Only'
TabOrder = 0
end
object edtMaxVariance: TSpinEdit[6]
AnchorSideTop.Control = edtMaxColumn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 176
Height = 21
Top = 264
Top = 251
Width = 57
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
MaxValue = 999
MinValue = 1
OnExit = edtMaxColumnExit
@ -65,94 +94,145 @@ inherited fClarifyAlign: TfClarifyAlign
Value = 1
end
object edtMaxColumn: TSpinEdit[7]
AnchorSideTop.Control = edtMinColumn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 176
Height = 21
Top = 236
Top = 224
Width = 57
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
MaxValue = 150
OnExit = edtMaxColumnExit
TabOrder = 3
end
object edtMinColumn: TSpinEdit[8]
AnchorSideTop.Control = gbWhat
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 176
Height = 21
Top = 207
Top = 197
Width = 57
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
MaxValue = 150
OnExit = edtMinColumnExit
TabOrder = 2
end
object gbWhat: TGroupBox[9]
Left = 8
Height = 164
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cbInterfaceOnly
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 162
Top = 29
Width = 231
Width = 318
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'What to Align'
ClientHeight = 146
ClientWidth = 227
ClientHeight = 144
ClientWidth = 314
TabOrder = 1
object cbAlignAsign: TCheckBox
Left = 8
AnchorSideLeft.Control = gbWhat
AnchorSideTop.Control = gbWhat
Left = 6
Height = 17
Top = 4
Top = 6
Width = 49
BorderSpacing.Around = 6
Caption = 'Assign'
TabOrder = 0
end
object cbAlignConst: TCheckBox
Left = 8
AnchorSideLeft.Control = gbWhat
AnchorSideTop.Control = cbAlignAsign
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 27
Top = 29
Width = 46
BorderSpacing.Around = 6
Caption = 'Const'
TabOrder = 1
end
object cbAlignVar: TCheckBox
Left = 8
AnchorSideLeft.Control = gbWhat
AnchorSideTop.Control = cbAlignConst
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 50
Top = 52
Width = 95
BorderSpacing.Around = 6
Caption = 'Var declarations'
TabOrder = 2
end
object cbAlignTypedef: TCheckBox
Left = 8
AnchorSideLeft.Control = gbWhat
AnchorSideTop.Control = cbAlignField
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 96
Top = 98
Width = 66
BorderSpacing.Around = 6
Caption = 'Type defs'
TabOrder = 3
end
object cbAlignComment: TCheckBox
Left = 8
AnchorSideLeft.Control = gbWhat
AnchorSideTop.Control = cbAlignTypedef
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 119
Top = 121
Width = 63
BorderSpacing.Around = 6
Caption = 'Comment'
TabOrder = 4
end
object cbAlignField: TCheckBox
Left = 8
AnchorSideLeft.Control = gbWhat
AnchorSideTop.Control = cbAlignVar
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 73
Top = 75
Width = 121
BorderSpacing.Around = 6
Caption = 'Class and record field'
TabOrder = 5
end
end
object eMaxUnaligned: TSpinEdit[10]
AnchorSideTop.Control = edtMaxVarianceInterface
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 176
Height = 21
Top = 322
Top = 305
Width = 57
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
MaxValue = 999
TabOrder = 5
end
object edtMaxVarianceInterface: TSpinEdit[11]
AnchorSideTop.Control = edtMaxVariance
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 176
Height = 21
Top = 293
Top = 278
Width = 57
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
MaxValue = 999
MinValue = 1
OnExit = edtMaxColumnExit