1inherited fClarifyIndent: TfClarifyIndent
2  Height = 347
3  Width = 430
4  ClientHeight = 347
5  ClientWidth = 430
6  TabOrder = 0
7  DesignLeft = 737
8  DesignTop = 299
9  object Label2: TLabel[0]
10    AnchorSideLeft.Control = Owner
11    AnchorSideTop.Control = edtIndentSpaces
12    AnchorSideTop.Side = asrCenter
13    Left = 6
14    Height = 14
15    Top = 9
16    Width = 118
17    BorderSpacing.Left = 6
18    Caption = 'Block indentation spaces'
19    ParentColor = False
20  end
21  object edtIndentSpaces: TSpinEdit[1]
22    AnchorSideLeft.Control = Label2
23    AnchorSideLeft.Side = asrBottom
24    AnchorSideTop.Control = Owner
25    Left = 130
26    Height = 21
27    Top = 6
28    Width = 50
29    BorderSpacing.Around = 6
30    MaxValue = 12
31    TabOrder = 0
32  end
33  object gbOptions: TGroupBox[2]
34    AnchorSideLeft.Control = Owner
35    AnchorSideTop.Control = edtIndentSpaces
36    AnchorSideTop.Side = asrBottom
37    AnchorSideRight.Control = Owner
38    AnchorSideRight.Side = asrBottom
39    AnchorSideBottom.Control = Owner
40    AnchorSideBottom.Side = asrBottom
41    Left = 6
42    Height = 308
43    Top = 33
44    Width = 418
45    Anchors = [akTop, akLeft, akRight, akBottom]
46    BorderSpacing.Around = 6
47    Caption = 'Options'
48    ClientHeight = 308
49    ClientWidth = 418
50    TabOrder = 1
51    object cbIndentBeginEnd: TCheckBox
52      AnchorSideLeft.Control = gbOptions
53      AnchorSideTop.Control = eIndentBeginEndSpaces
54      AnchorSideTop.Side = asrCenter
55      Left = 6
56      Height = 17
57      Top = 8
58      Width = 232
59      BorderSpacing.Left = 6
60      BorderSpacing.Bottom = 6
61      Caption = 'Extra indent for begin/end inside procedures'
62      OnClick = cbIndentBeginEndClick
63      TabOrder = 0
64    end
65    object eIndentBeginEndSpaces: TSpinEdit
66      AnchorSideTop.Control = gbOptions
67      AnchorSideRight.Control = gbOptions
68      AnchorSideRight.Side = asrBottom
69      Left = 348
70      Height = 21
71      Top = 6
72      Width = 50
73      Anchors = [akTop, akRight]
74      BorderSpacing.Top = 6
75      BorderSpacing.Right = 20
76      MaxValue = 10
77      MinValue = -10
78      TabOrder = 1
79    end
80    object cbHasFirstLevelIndent: TCheckBox
81      AnchorSideLeft.Control = gbOptions
82      AnchorSideTop.Control = eFirstLevelIndent
83      AnchorSideTop.Side = asrCenter
84      Left = 6
85      Height = 17
86      Top = 35
87      Width = 158
88      BorderSpacing.Left = 6
89      BorderSpacing.Bottom = 6
90      Caption = 'Different indent for first level'
91      OnClick = cbHasFirstLevelIndentClick
92      TabOrder = 2
93    end
94    object eFirstLevelIndent: TSpinEdit
95      AnchorSideTop.Control = eIndentBeginEndSpaces
96      AnchorSideTop.Side = asrBottom
97      AnchorSideRight.Control = gbOptions
98      AnchorSideRight.Side = asrBottom
99      Left = 348
100      Height = 21
101      Top = 33
102      Width = 50
103      Anchors = [akTop, akRight]
104      BorderSpacing.Top = 6
105      BorderSpacing.Right = 20
106      TabOrder = 3
107    end
108    object cbKeepWithInProc: TCheckBox
109      AnchorSideLeft.Control = gbOptions
110      AnchorSideTop.Control = cbHasFirstLevelIndent
111      AnchorSideTop.Side = asrBottom
112      Left = 6
113      Height = 17
114      Top = 58
115      Width = 260
116      BorderSpacing.Left = 6
117      BorderSpacing.Top = 6
118      BorderSpacing.Right = 6
119      BorderSpacing.Bottom = 6
120      Caption = 'Keep single-line comments with code in procedures'
121      TabOrder = 4
122    end
123    object cbKeepWithInGlobals: TCheckBox
124      AnchorSideLeft.Control = gbOptions
125      AnchorSideTop.Control = cbKeepWithInProc
126      AnchorSideTop.Side = asrBottom
127      Left = 6
128      Height = 17
129      Top = 81
130      Width = 239
131      BorderSpacing.Left = 6
132      BorderSpacing.Top = 6
133      BorderSpacing.Right = 6
134      BorderSpacing.Bottom = 6
135      Caption = 'Keep single-line comments with code in globals'
136      TabOrder = 5
137    end
138    object cbKeepWithInClassDef: TCheckBox
139      AnchorSideLeft.Control = gbOptions
140      AnchorSideTop.Control = cbKeepWithInGlobals
141      AnchorSideTop.Side = asrBottom
142      Left = 6
143      Height = 17
144      Top = 104
145      Width = 281
146      BorderSpacing.Left = 6
147      BorderSpacing.Top = 6
148      BorderSpacing.Right = 6
149      BorderSpacing.Bottom = 6
150      Caption = 'Keep single-line comments with code in class definitions'
151      TabOrder = 6
152    end
153    object cbKeepWithElsewhere: TCheckBox
154      AnchorSideLeft.Control = gbOptions
155      AnchorSideTop.Control = cbKeepWithInClassDef
156      AnchorSideTop.Side = asrBottom
157      Left = 6
158      Height = 17
159      Top = 127
160      Width = 244
161      BorderSpacing.Left = 6
162      BorderSpacing.Top = 6
163      BorderSpacing.Right = 6
164      BorderSpacing.Bottom = 6
165      Caption = 'Keep single-line comments with code elsewhere'
166      TabOrder = 7
167    end
168    object cbIndentIfElse: TCheckBox
169      AnchorSideLeft.Control = gbOptions
170      AnchorSideTop.Control = cbKeepWithElsewhere
171      AnchorSideTop.Side = asrBottom
172      Left = 6
173      Height = 17
174      Top = 150
175      Width = 170
176      BorderSpacing.Left = 6
177      BorderSpacing.Top = 6
178      BorderSpacing.Right = 6
179      BorderSpacing.Bottom = 6
180      Caption = 'Extra Indent for If...Else blocks'
181      TabOrder = 8
182    end
183    object cbIndentCaseElse: TCheckBox
184      AnchorSideLeft.Control = gbOptions
185      AnchorSideTop.Control = cbIndentIfElse
186      AnchorSideTop.Side = asrBottom
187      Left = 6
188      Height = 17
189      Top = 173
190      Width = 186
191      BorderSpacing.Left = 6
192      BorderSpacing.Top = 6
193      BorderSpacing.Right = 6
194      BorderSpacing.Bottom = 6
195      Caption = 'Extra Indent for Case...Else blocks'
196      TabOrder = 9
197    end
198    object cbIndentLibraryProcs: TCheckBox
199      AnchorSideLeft.Control = gbOptions
200      AnchorSideTop.Control = cbIndentCaseElse
201      AnchorSideTop.Side = asrBottom
202      Left = 6
203      Height = 17
204      Top = 196
205      Width = 168
206      BorderSpacing.Left = 6
207      BorderSpacing.Top = 6
208      BorderSpacing.Right = 6
209      BorderSpacing.Bottom = 6
210      Caption = 'Indent for procedures in library'
211      TabOrder = 10
212    end
213    object cbIndentProcedureBody: TCheckBox
214      AnchorSideLeft.Control = gbOptions
215      AnchorSideTop.Control = cbIndentLibraryProcs
216      AnchorSideTop.Side = asrBottom
217      Left = 6
218      Height = 17
219      Top = 219
220      Width = 146
221      BorderSpacing.Left = 6
222      BorderSpacing.Top = 6
223      BorderSpacing.Right = 6
224      BorderSpacing.Bottom = 6
225      Caption = 'Indent for procedure body'
226      TabOrder = 11
227    end
228    object cbIndentNestedTypes: TCheckBox
229      AnchorSideLeft.Control = gbOptions
230      AnchorSideTop.Control = cbIndentProcedureBody
231      AnchorSideTop.Side = asrBottom
232      Left = 6
233      Height = 17
234      Top = 242
235      Width = 116
236      BorderSpacing.Left = 6
237      BorderSpacing.Top = 6
238      BorderSpacing.Right = 6
239      BorderSpacing.Bottom = 6
240      Caption = 'Indent nested types'
241      TabOrder = 12
242    end
243    object cbIndentVarAndConstInClass: TCheckBox
244      AnchorSideLeft.Control = gbOptions
245      AnchorSideTop.Control = cbIndentNestedTypes
246      AnchorSideTop.Side = asrBottom
247      Left = 6
248      Height = 17
249      Top = 265
250      Width = 156
251      BorderSpacing.Left = 6
252      BorderSpacing.Top = 6
253      BorderSpacing.Right = 6
254      BorderSpacing.Bottom = 6
255      Caption = 'Indent var and const in class'
256      TabOrder = 13
257    end
258  end
259end
260