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