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