1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
inherited fTransform: TfTransform
Height = 315
Width = 412
ClientHeight = 315
ClientWidth = 412
TabOrder = 0
object cbBlockEndSemicolons: TCheckBox[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = rbBeginEnd
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 93
Width = 234
BorderSpacing.Around = 6
Caption = 'Put &semicolons after last statement in a block'
TabOrder = 0
end
object rbBeginEnd: TRadioGroup[1]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 81
Top = 6
Width = 400
Anchors = [akTop, akLeft, akRight]
AutoFill = True
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Add or Remove &begin and end from single statements'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 63
ClientWidth = 396
Items.Strings = (
'Add begin and end to single statements'
'Leave begin and end as is'
'Remove begin and end from around single statements'
)
TabOrder = 1
end
object bgSortUses: TGroupBox[2]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cbBlockEndSemicolons
AnchorSideTop.Side = asrBottom
Left = 6
Height = 162
Top = 116
Width = 154
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Sort &uses clauses'
ClientHeight = 144
ClientWidth = 150
TabOrder = 2
object cbSortInterfaceUses: TCheckBox
AnchorSideLeft.Control = bgSortUses
AnchorSideTop.Control = bgSortUses
Left = 6
Height = 17
Top = 6
Width = 109
BorderSpacing.Around = 6
Caption = 'Sort i&nterface uses'
TabOrder = 0
end
object cbSortImplementationUses: TCheckBox
AnchorSideLeft.Control = bgSortUses
AnchorSideTop.Control = cbSortInterfaceUses
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 29
Width = 138
BorderSpacing.Around = 6
Caption = 'Sort i&mplementation uses'
TabOrder = 1
end
object cbBreakUsesSortOnComment: TCheckBox
AnchorSideLeft.Control = bgSortUses
AnchorSideTop.Control = cbBreakUsesSortOnReturn
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 98
Width = 106
BorderSpacing.Around = 6
Caption = 'Break on &comment'
TabOrder = 2
end
object cbBreakUsesSortOnReturn: TCheckBox
AnchorSideLeft.Control = bgSortUses
AnchorSideTop.Control = cbSortProgramUses
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 75
Width = 93
BorderSpacing.Around = 6
Caption = 'Break on &return'
TabOrder = 3
end
object cbNoComments: TCheckBox
AnchorSideLeft.Control = bgSortUses
AnchorSideTop.Control = cbBreakUsesSortOnComment
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 121
Width = 129
BorderSpacing.Around = 6
Caption = 'Only with no comments'
TabOrder = 4
end
object cbSortProgramUses: TCheckBox
AnchorSideLeft.Control = bgSortUses
AnchorSideTop.Control = cbSortImplementationUses
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 52
Width = 106
BorderSpacing.Around = 6
Caption = 'Sort &program uses'
TabOrder = 5
end
end
object rgUsesSortOrder: TRadioGroup[3]
AnchorSideLeft.Control = bgSortUses
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = bgSortUses
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = bgSortUses
AnchorSideBottom.Side = asrBottom
Left = 166
Height = 162
Top = 116
Width = 240
Anchors = [akTop, akLeft, akRight, akBottom]
AutoFill = True
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'Uses sort &order'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.VerticalSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 144
ClientWidth = 236
Items.Strings = (
'Alphabetic'
'Reverse Alphabetic'
'Shortest to longest'
'Longest to shortest'
)
TabOrder = 3
end
end
|
