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