1object CodeBrowserView: TCodeBrowserView 2 Left = 378 3 Height = 563 4 Top = 309 5 Width = 645 6 ActiveControl = ScopeComboBox 7 Caption = 'CodeBrowserView' 8 ClientHeight = 563 9 ClientWidth = 645 10 Constraints.MinHeight = 450 11 Constraints.MinWidth = 520 12 OnActivate = FormActivate 13 OnClose = FormClose 14 OnCreate = FormCreate 15 OnDeactivate = FormDeactivate 16 OnDestroy = FormDestroy 17 LCLVersion = '2.1.0.0' 18 object ScopeGroupBox: TGroupBox 19 Left = 6 20 Height = 54 21 Top = 6 22 Width = 633 23 Align = alTop 24 AutoSize = True 25 BorderSpacing.Around = 6 26 Caption = 'ScopeGroupBox' 27 ClientHeight = 36 28 ClientWidth = 629 29 TabOrder = 0 30 object ScopeComboBox: TComboBox 31 AnchorSideLeft.Control = ScopeGroupBox 32 AnchorSideTop.Control = ScopeGroupBox 33 Left = 6 34 Height = 23 35 Top = 6 36 Width = 315 37 BorderSpacing.Around = 6 38 ItemHeight = 14 39 OnChange = ScopeComboBoxChange 40 Style = csDropDownList 41 TabOrder = 0 42 end 43 object ScopeWithRequiredPackagesCheckBox: TCheckBox 44 AnchorSideLeft.Control = ScopeComboBox 45 AnchorSideLeft.Side = asrBottom 46 AnchorSideTop.Control = ScopeComboBox 47 AnchorSideTop.Side = asrCenter 48 Left = 327 49 Height = 18 50 Top = 8 51 Width = 234 52 BorderSpacing.Left = 6 53 BorderSpacing.Right = 50 54 Caption = 'ScopeWithRequiredPackagesCheckBox' 55 OnChange = ScopeWithRequiredPackagesCheckBoxChange 56 TabOrder = 1 57 end 58 object RescanButton: TButton 59 Left = 538 60 Height = 24 61 Top = 6 62 Width = 85 63 Align = alRight 64 AutoSize = True 65 BorderSpacing.Around = 6 66 Caption = 'RescanButton' 67 Constraints.MinWidth = 60 68 OnClick = RescanButtonClick 69 TabOrder = 2 70 end 71 end 72 object OptionsGroupBox: TGroupBox 73 AnchorSideLeft.Control = Owner 74 AnchorSideTop.Control = LevelsGroupBox 75 AnchorSideTop.Side = asrBottom 76 AnchorSideRight.Control = Owner 77 AnchorSideRight.Side = asrBottom 78 AnchorSideBottom.Side = asrBottom 79 Left = 6 80 Height = 54 81 Top = 174 82 Width = 633 83 Anchors = [akTop, akLeft, akRight] 84 AutoSize = True 85 BorderSpacing.Left = 6 86 BorderSpacing.Top = 6 87 BorderSpacing.Right = 6 88 Caption = 'OptionsGroupBox' 89 ChildSizing.EnlargeHorizontal = crsHomogenousSpaceResize 90 ChildSizing.ShrinkHorizontal = crsHomogenousSpaceResize 91 ChildSizing.Layout = cclTopToBottomThenLeftToRight 92 ClientHeight = 36 93 ClientWidth = 629 94 TabOrder = 2 95 object ShowPrivateCheckBox: TCheckBox 96 AnchorSideLeft.Control = OptionsGroupBox 97 AnchorSideTop.Control = OptionsGroupBox 98 Left = 6 99 Height = 18 100 Top = 6 101 Width = 142 102 BorderSpacing.Left = 6 103 BorderSpacing.Top = 6 104 BorderSpacing.Bottom = 6 105 Caption = 'ShowPrivateCheckBox' 106 OnChange = ShowPrivateCheckBoxChange 107 TabOrder = 0 108 end 109 object ShowProtectedCheckBox: TCheckBox 110 AnchorSideLeft.Control = ShowPrivateCheckBox 111 AnchorSideLeft.Side = asrBottom 112 AnchorSideTop.Control = ShowPrivateCheckBox 113 Left = 172 114 Height = 18 115 Top = 6 116 Width = 156 117 BorderSpacing.Left = 24 118 Caption = 'ShowProtectedCheckBox' 119 OnChange = ShowPrivateCheckBoxChange 120 TabOrder = 1 121 end 122 object ShowEmptyNodesCheckBox: TCheckBox 123 AnchorSideLeft.Control = ShowProtectedCheckBox 124 AnchorSideLeft.Side = asrBottom 125 AnchorSideTop.Control = ShowPrivateCheckBox 126 AnchorSideRight.Control = OptionsGroupBox 127 AnchorSideRight.Side = asrBottom 128 Left = 352 129 Height = 18 130 Top = 6 131 Width = 174 132 BorderSpacing.Left = 24 133 Caption = 'ShowEmptyNodesCheckBox' 134 OnEditingDone = ShowPrivateCheckBoxChange 135 TabOrder = 2 136 end 137 end 138 object BrowseTreeView: TTreeView 139 AnchorSideTop.Control = OptionsGroupBox 140 AnchorSideTop.Side = asrBottom 141 Left = 6 142 Height = 284 143 Top = 234 144 Width = 633 145 Align = alBottom 146 Anchors = [akTop, akLeft, akRight, akBottom] 147 BorderSpacing.Around = 6 148 ParentShowHint = False 149 PopupMenu = PopupMenu1 150 ReadOnly = True 151 RightClickSelect = True 152 ShowHint = True 153 TabOrder = 3 154 OnMouseDown = BrowseTreeViewMouseDown 155 OnMouseMove = BrowseTreeViewMouseMove 156 OnShowHint = BrowseTreeViewShowHint 157 Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw] 158 end 159 object StatusBar1: TStatusBar 160 Left = 0 161 Height = 19 162 Top = 544 163 Width = 645 164 Panels = <> 165 end 166 object LevelsGroupBox: TGroupBox 167 AnchorSideLeft.Control = Owner 168 AnchorSideTop.Control = ScopeGroupBox 169 AnchorSideTop.Side = asrBottom 170 AnchorSideRight.Control = Owner 171 AnchorSideRight.Side = asrBottom 172 Left = 6 173 Height = 102 174 Top = 66 175 Width = 633 176 Anchors = [akTop, akLeft, akRight] 177 AutoSize = True 178 BorderSpacing.Around = 6 179 Caption = 'LevelsGroupBox' 180 ClientHeight = 84 181 ClientWidth = 629 182 TabOrder = 1 183 object PackageFilterBeginsSpeedButton: TSpeedButton 184 AnchorSideLeft.Control = PackageFilterEdit 185 AnchorSideLeft.Side = asrBottom 186 AnchorSideTop.Control = PackageFilterEdit 187 AnchorSideRight.Control = PackageFilterContainsSpeedButton 188 AnchorSideBottom.Control = PackageFilterEdit 189 AnchorSideBottom.Side = asrBottom 190 Left = 451 191 Height = 20 192 Top = 6 193 Width = 86 194 Anchors = [akTop, akRight, akBottom] 195 GroupIndex = 1 196 OnClick = PackageFilterEditEditingDone 197 ShowHint = True 198 ParentShowHint = False 199 end 200 object PackageFilterContainsSpeedButton: TSpeedButton 201 AnchorSideLeft.Control = PackageFilterBeginsSpeedButton 202 AnchorSideLeft.Side = asrBottom 203 AnchorSideTop.Control = PackageFilterEdit 204 AnchorSideRight.Control = LevelsGroupBox 205 AnchorSideRight.Side = asrBottom 206 AnchorSideBottom.Control = PackageFilterEdit 207 AnchorSideBottom.Side = asrBottom 208 Left = 537 209 Height = 20 210 Top = 6 211 Width = 86 212 Anchors = [akTop, akRight, akBottom] 213 BorderSpacing.Right = 6 214 GroupIndex = 1 215 OnClick = PackageFilterEditEditingDone 216 ShowHint = True 217 ParentShowHint = False 218 end 219 object UnitFilterBeginsSpeedButton: TSpeedButton 220 AnchorSideLeft.Control = UnitFilterEdit 221 AnchorSideLeft.Side = asrBottom 222 AnchorSideTop.Control = UnitFilterEdit 223 AnchorSideRight.Control = UnitFilterContainsSpeedButton 224 AnchorSideBottom.Control = UnitFilterEdit 225 AnchorSideBottom.Side = asrBottom 226 Left = 451 227 Height = 20 228 Top = 32 229 Width = 86 230 Anchors = [akTop, akRight, akBottom] 231 GroupIndex = 2 232 OnClick = PackageFilterEditEditingDone 233 ShowHint = True 234 ParentShowHint = False 235 end 236 object UnitFilterContainsSpeedButton: TSpeedButton 237 AnchorSideLeft.Control = UnitFilterBeginsSpeedButton 238 AnchorSideLeft.Side = asrBottom 239 AnchorSideTop.Control = UnitFilterEdit 240 AnchorSideRight.Control = LevelsGroupBox 241 AnchorSideRight.Side = asrBottom 242 AnchorSideBottom.Control = UnitFilterEdit 243 AnchorSideBottom.Side = asrBottom 244 Left = 537 245 Height = 20 246 Top = 32 247 Width = 86 248 Anchors = [akTop, akRight, akBottom] 249 BorderSpacing.Right = 6 250 GroupIndex = 2 251 OnClick = PackageFilterEditEditingDone 252 ShowHint = True 253 ParentShowHint = False 254 end 255 object IdentifierFilterBeginsSpeedButton: TSpeedButton 256 AnchorSideLeft.Control = IdentifierFilterEdit 257 AnchorSideLeft.Side = asrBottom 258 AnchorSideTop.Control = IdentifierFilterEdit 259 AnchorSideRight.Control = IdentifierFilterContainsSpeedButton 260 AnchorSideBottom.Control = IdentifierFilterEdit 261 AnchorSideBottom.Side = asrBottom 262 Left = 451 263 Height = 20 264 Top = 58 265 Width = 86 266 Anchors = [akTop, akRight, akBottom] 267 GroupIndex = 3 268 OnClick = PackageFilterEditEditingDone 269 ShowHint = True 270 ParentShowHint = False 271 end 272 object IdentifierFilterContainsSpeedButton: TSpeedButton 273 AnchorSideLeft.Control = IdentifierFilterBeginsSpeedButton 274 AnchorSideLeft.Side = asrBottom 275 AnchorSideTop.Control = IdentifierFilterEdit 276 AnchorSideRight.Control = LevelsGroupBox 277 AnchorSideRight.Side = asrBottom 278 AnchorSideBottom.Control = IdentifierFilterEdit 279 AnchorSideBottom.Side = asrBottom 280 Left = 537 281 Height = 20 282 Top = 58 283 Width = 86 284 Anchors = [akTop, akRight, akBottom] 285 BorderSpacing.Right = 6 286 GroupIndex = 3 287 OnClick = PackageFilterEditEditingDone 288 ShowHint = True 289 ParentShowHint = False 290 end 291 object ShowPackagesCheckBox: TCheckBox 292 AnchorSideLeft.Control = LevelsGroupBox 293 AnchorSideTop.Control = PackageFilterEdit 294 AnchorSideTop.Side = asrCenter 295 Left = 6 296 Height = 18 297 Top = 7 298 Width = 158 299 BorderSpacing.Left = 6 300 BorderSpacing.Top = 6 301 Caption = 'ShowPackagesCheckBox' 302 OnChange = ShowPackagesCheckBoxChange 303 TabOrder = 0 304 end 305 object ShowUnitsCheckBox: TCheckBox 306 AnchorSideLeft.Control = LevelsGroupBox 307 AnchorSideTop.Control = UnitFilterEdit 308 AnchorSideTop.Side = asrCenter 309 Left = 6 310 Height = 18 311 Top = 33 312 Width = 132 313 BorderSpacing.Left = 6 314 Caption = 'ShowUnitsCheckBox' 315 OnChange = ShowUnitsCheckBoxChange 316 TabOrder = 1 317 end 318 object ShowIdentifiersCheckBox: TCheckBox 319 AnchorSideLeft.Control = LevelsGroupBox 320 AnchorSideTop.Control = IdentifierFilterEdit 321 AnchorSideTop.Side = asrCenter 322 Left = 6 323 Height = 18 324 Top = 59 325 Width = 157 326 BorderSpacing.Left = 6 327 BorderSpacing.Bottom = 6 328 Caption = 'ShowIdentifiersCheckBox' 329 OnChange = ShowIdentifiersCheckBoxChange 330 TabOrder = 2 331 end 332 object PackageFilterEdit: TEdit 333 AnchorSideTop.Control = LevelsGroupBox 334 AnchorSideRight.Control = PackageFilterBeginsSpeedButton 335 Left = 250 336 Height = 20 337 Top = 6 338 Width = 201 339 Anchors = [akTop, akRight] 340 BorderSpacing.Top = 6 341 OnChange = PackageFilterEditChange 342 OnEditingDone = PackageFilterEditEditingDone 343 TabOrder = 3 344 Text = 'PackageFilterEdit' 345 end 346 object UnitFilterEdit: TEdit 347 AnchorSideTop.Control = PackageFilterEdit 348 AnchorSideTop.Side = asrBottom 349 AnchorSideRight.Control = UnitFilterBeginsSpeedButton 350 Left = 250 351 Height = 20 352 Top = 32 353 Width = 201 354 Anchors = [akTop, akRight] 355 BorderSpacing.Top = 6 356 OnChange = PackageFilterEditChange 357 OnEditingDone = PackageFilterEditEditingDone 358 TabOrder = 4 359 Text = 'UnitFilterEdit' 360 end 361 object IdentifierFilterEdit: TEdit 362 AnchorSideTop.Control = UnitFilterEdit 363 AnchorSideTop.Side = asrBottom 364 AnchorSideRight.Control = IdentifierFilterBeginsSpeedButton 365 Left = 250 366 Height = 20 367 Top = 58 368 Width = 201 369 Anchors = [akTop, akRight] 370 BorderSpacing.Top = 6 371 BorderSpacing.Bottom = 6 372 OnChange = PackageFilterEditChange 373 OnEditingDone = PackageFilterEditEditingDone 374 TabOrder = 5 375 Text = 'IdentifierFilterEdit' 376 end 377 end 378 object ProgressBar1: TProgressBar 379 Left = 0 380 Height = 20 381 Top = 524 382 Width = 645 383 Align = alBottom 384 Max = 10000 385 Smooth = True 386 TabOrder = 4 387 end 388 object PopupMenu1: TPopupMenu 389 OnPopup = PopupMenu1Popup 390 Left = 248 391 Top = 320 392 object OpenMenuItem: TMenuItem 393 Caption = 'OpenMenuItem' 394 OnClick = OpenMenuItemClick 395 end 396 object CopyDescriptionMenuItem: TMenuItem 397 Caption = 'CopyDescriptionMenuItem' 398 OnClick = CopyDescriptionMenuItemClick 399 end 400 object CopyIdentifierMenuItem: TMenuItem 401 Caption = 'CopyIdentifierMenuItem' 402 OnClick = CopyIdentifierMenuItemClick 403 end 404 object CopySeparatorMenuItem: TMenuItem 405 Caption = '-' 406 end 407 object UseUnitInCurUnitMenuItem: TMenuItem 408 Caption = 'UseUnitInCurUnitMenuItem' 409 OnClick = UseUnitInCurUnitMenuItemClick 410 end 411 object UseIdentifierInCurUnitMenuItem: TMenuItem 412 Caption = 'UseIdentifierInCurUnitMenuItem' 413 OnClick = UseIdentifierInCurUnitMenuItemClick 414 end 415 object UsePkgInProjectMenuItem: TMenuItem 416 Caption = 'UsePkgInProjectMenuItem' 417 OnClick = UsePkgInProjectMenuItemClick 418 end 419 object UsePkgInCurUnitMenuItem: TMenuItem 420 Caption = 'UsePkgInCurUnitMenuItem' 421 OnClick = UsePkgInCurUnitMenuItemClick 422 end 423 object UseSeparatorMenuItem: TMenuItem 424 Caption = '-' 425 end 426 object ExpandAllPackagesMenuItem: TMenuItem 427 Caption = 'ExpandAllPackagesMenuItem' 428 OnClick = ExpandAllPackagesMenuItemClick 429 end 430 object CollapseAllPackagesMenuItem: TMenuItem 431 Caption = 'CollapseAllPackagesMenuItem' 432 OnClick = CollapseAllPackagesMenuItemClick 433 end 434 object AllPackagesSeparatorMenuItem: TMenuItem 435 Caption = '-' 436 end 437 object ExpandAllUnitsMenuItem: TMenuItem 438 Caption = 'ExpandAllUnitsMenuItem' 439 OnClick = ExpandAllUnitsMenuItemClick 440 end 441 object CollapseAllUnitsMenuItem: TMenuItem 442 Caption = 'CollapseAllUnitsMenuItem' 443 OnClick = CollapseAllUnitsMenuItemClick 444 end 445 object AllUnitsSeparatorMenuItem: TMenuItem 446 Caption = '-' 447 end 448 object ExpandAllClassesMenuItem: TMenuItem 449 Caption = 'ExpandAllClassesMenuItem' 450 OnClick = ExpandAllClassesMenuItemClick 451 end 452 object CollapseAllClassesMenuItem: TMenuItem 453 Caption = 'CollapseAllClassesMenuItem' 454 OnClick = CollapseAllClassesMenuItemClick 455 end 456 object AllClassesSeparatorMenuItem: TMenuItem 457 Caption = '-' 458 end 459 object ExportMenuItem: TMenuItem 460 Caption = 'ExportMenuItem' 461 OnClick = ExportMenuItemClick 462 end 463 end 464 object IdleTimer1: TIdleTimer 465 OnTimer = IdleTimer1Timer 466 Left = 350 467 Top = 320 468 end 469end 470