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 fClarifyReturns: TfClarifyReturns
Height = 284
Width = 453
ClientHeight = 284
ClientWidth = 453
OnResize = FrameResize
TabOrder = 0
DesignLeft = 819
DesignTop = 395
object rgReturnChars: TRadioGroup[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = gbRemoveReturns
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 81
Top = 151
Width = 441
Anchors = [akTop, akLeft, akRight]
AutoFill = True
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Return chars'
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 = 437
Items.Strings = (
'Leave as is'
'Convert to Carriage Return (UNIX)'
'Convert to Carriage Return + Linefeed (DOS/Windows)'
)
TabOrder = 2
end
object gbRemoveReturns: TGroupBox[1]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = gbInsert
Left = 6
Height = 139
Hint = 'bgRemove'
Top = 6
Width = 204
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Remove returns'
ClientHeight = 121
ClientWidth = 200
TabOrder = 0
object cbRemoveProcDefReturns: TCheckBox
AnchorSideLeft.Control = gbRemoveReturns
AnchorSideTop.Control = cbRemovePropertyReturns
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 52
Width = 132
BorderSpacing.Around = 6
Caption = 'In procedure definitions'
TabOrder = 2
end
object cbRemoveVarReturns: TCheckBox
AnchorSideLeft.Control = gbRemoveReturns
AnchorSideTop.Control = cbRemoveProcDefReturns
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 75
Width = 130
BorderSpacing.Around = 6
Caption = 'In variable declarations'
TabOrder = 3
end
object cbRemoveExprReturns: TCheckBox
AnchorSideLeft.Control = gbRemoveReturns
AnchorSideTop.Control = cbRemoveVarReturns
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 98
Width = 88
BorderSpacing.Around = 6
Caption = 'In expressions'
TabOrder = 4
end
object cbRemovePropertyReturns: TCheckBox
AnchorSideLeft.Control = gbRemoveReturns
AnchorSideTop.Control = cbRemoveReturns
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 29
Width = 80
BorderSpacing.Around = 6
Caption = 'In properties'
TabOrder = 1
end
object cbRemoveReturns: TCheckBox
AnchorSideLeft.Control = gbRemoveReturns
AnchorSideTop.Control = gbRemoveReturns
Left = 6
Height = 17
Top = 6
Width = 109
BorderSpacing.Around = 6
Caption = 'In misc. bad places'
TabOrder = 0
end
end
object gbInsert: TGroupBox[2]
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = gbRemoveReturns
AnchorSideBottom.Side = asrBottom
Left = 216
Height = 139
Top = 6
Width = 231
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'Insert returns'
ClientHeight = 121
ClientWidth = 227
TabOrder = 1
object cbUsesClauseOnePerLine: TCheckBox
AnchorSideLeft.Control = gbInsert
AnchorSideTop.Control = cbInsertReturns
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 29
Width = 157
BorderSpacing.Around = 6
Caption = 'One uses clause item per line'
TabOrder = 1
end
object cbInsertReturns: TCheckBox
AnchorSideLeft.Control = gbInsert
AnchorSideTop.Control = gbInsert
Left = 6
Height = 17
Top = 6
Width = 115
BorderSpacing.Around = 6
Caption = 'In misc. good places'
TabOrder = 0
end
object cbBreakAfterUses: TCheckBox
AnchorSideLeft.Control = gbInsert
AnchorSideTop.Control = cbUsesClauseOnePerLine
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 52
Width = 68
BorderSpacing.Around = 6
Caption = 'After uses'
TabOrder = 2
end
end
end
|
