paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 01:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: codebrowser: started use unit in unit

Browse Source 
git-svn-id: trunk@21520 -
This commit is contained in:
mattias 2009-09-01 14:33:50 +00:00
parent 040131af50
commit 5c235ca5a6
4 changed files with 206 additions and 134 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
ide/codebrowser.lfm
View File

@ -1,7 +1,7 @@
object CodeBrowserView: TCodeBrowserView object CodeBrowserView: TCodeBrowserView
Left = 340 Left = 366
Height = 563 Height = 563
Top = 323 Top = 337
Width = 623 Width = 623
ActiveControl = ScopeComboBox ActiveControl = ScopeComboBox
Caption = 'CodeBrowserView' Caption = 'CodeBrowserView'
@ -12,25 +12,25 @@ object CodeBrowserView: TCodeBrowserView
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
object ScopeGroupBox: TGroupBox object ScopeGroupBox: TGroupBox
Left = 6 Left = 6
Height = 53 Height = 60
Top = 6 Top = 6
Width = 611 Width = 611
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'ScopeGroupBox' Caption = 'ScopeGroupBox'
ClientHeight = 35 ClientHeight = 41
ClientWidth = 607 ClientWidth = 607
TabOrder = 0 TabOrder = 0
object ScopeComboBox: TComboBox object ScopeComboBox: TComboBox
AnchorSideLeft.Control = ScopeGroupBox AnchorSideLeft.Control = ScopeGroupBox
AnchorSideTop.Control = ScopeGroupBox AnchorSideTop.Control = ScopeGroupBox
Left = 6 Left = 6
Height = 21 Height = 29
Top = 6 Top = 6
Width = 315 Width = 315
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 13 ItemHeight = 0
OnEditingDone = ScopeComboBoxEditingDone OnEditingDone = ScopeComboBoxEditingDone
OnGetItems = ScopeComboBoxGetItems OnGetItems = ScopeComboBoxGetItems
TabOrder = 0 TabOrder = 0
@ -42,9 +42,9 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = ScopeComboBox AnchorSideTop.Control = ScopeComboBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 327 Left = 327
Height = 17 Height = 22
Top = 8 Top = 9
Width = 204 Width = 269
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Right = 50 BorderSpacing.Right = 50
Caption = 'ScopeWithRequiredPackagesCheckBox' Caption = 'ScopeWithRequiredPackagesCheckBox'
@ -52,10 +52,10 @@ object CodeBrowserView: TCodeBrowserView
TabOrder = 1 TabOrder = 1
end end
object RescanButton: TButton object RescanButton: TButton
Left = 508 Left = 501
Height = 23 Height = 29
Top = 6 Top = 6
Width = 93 Width = 100
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -73,8 +73,8 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 47 Height = 53
Top = 182 Top = 187
Width = 611 Width = 611
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
@ -85,7 +85,7 @@ object CodeBrowserView: TCodeBrowserView
ChildSizing.EnlargeHorizontal = crsHomogenousSpaceResize ChildSizing.EnlargeHorizontal = crsHomogenousSpaceResize
ChildSizing.ShrinkHorizontal = crsHomogenousSpaceResize ChildSizing.ShrinkHorizontal = crsHomogenousSpaceResize
ChildSizing.Layout = cclTopToBottomThenLeftToRight ChildSizing.Layout = cclTopToBottomThenLeftToRight
ClientHeight = 29 ClientHeight = 34
ClientWidth = 607 ClientWidth = 607
TabOrder = 1 TabOrder = 1
object ShowPrivateCheckBox: TCheckBox object ShowPrivateCheckBox: TCheckBox
@ -133,13 +133,13 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = OptionsGroupBox AnchorSideTop.Control = OptionsGroupBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 285 Height = 276
Top = 235 Top = 246
Width = 623 Width = 623
Align = alBottom Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
DefaultItemHeight = 18 DefaultItemHeight = 19
Images = ImageList1 Images = ImageList1
ParentShowHint = False ParentShowHint = False
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
@ -152,8 +152,8 @@ object CodeBrowserView: TCodeBrowserView
end end
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Height = 23 Height = 21
Top = 540 Top = 542
Width = 623 Width = 623
Panels = <> Panels = <>
end end
@ -164,14 +164,14 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 111 Height = 109
Top = 65 Top = 72
Width = 611 Width = 611
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'LevelsGroupBox' Caption = 'LevelsGroupBox'
ClientHeight = 93 ClientHeight = 90
ClientWidth = 607 ClientWidth = 607
TabOrder = 3 TabOrder = 3
object PackageFilterBeginsSpeedButton: TSpeedButton object PackageFilterBeginsSpeedButton: TSpeedButton
@ -218,7 +218,7 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideRight.Control = UnitFilterContainsSpeedButton AnchorSideRight.Control = UnitFilterContainsSpeedButton
Left = 429 Left = 429
Height = 22 Height = 22
Top = 35 Top = 41
Width = 86 Width = 86
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Color = clBtnFace Color = clBtnFace
@ -237,7 +237,7 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 515 Left = 515
Height = 22 Height = 22
Top = 35 Top = 41
Width = 86 Width = 86
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -256,7 +256,7 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideRight.Control = IdentifierFilterContainsSpeedButton AnchorSideRight.Control = IdentifierFilterContainsSpeedButton
Left = 429 Left = 429
Height = 22 Height = 22
Top = 64 Top = 74
Width = 86 Width = 86
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Color = clBtnFace Color = clBtnFace
@ -275,7 +275,7 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 515 Left = 515
Height = 22 Height = 22
Top = 64 Top = 74
Width = 86 Width = 86
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -291,9 +291,9 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = PackageFilterEdit AnchorSideTop.Control = PackageFilterEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 17 Height = 22
Top = 9 Top = 8
Width = 136 Width = 181
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'ShowPackagesCheckBox' Caption = 'ShowPackagesCheckBox'
@ -305,9 +305,9 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = UnitFilterEdit AnchorSideTop.Control = UnitFilterEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 17 Height = 22
Top = 38 Top = 41
Width = 115 Width = 154
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'ShowUnitsCheckBox' Caption = 'ShowUnitsCheckBox'
OnChange = ShowUnitsCheckBoxChange OnChange = ShowUnitsCheckBoxChange
@ -318,9 +318,9 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = IdentifierFilterEdit AnchorSideTop.Control = IdentifierFilterEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 17 Height = 22
Top = 67 Top = 74
Width = 140 Width = 183
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'ShowIdentifiersCheckBox' Caption = 'ShowIdentifiersCheckBox'
@ -331,7 +331,7 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = LevelsGroupBox AnchorSideTop.Control = LevelsGroupBox
AnchorSideRight.Control = PackageFilterBeginsSpeedButton AnchorSideRight.Control = PackageFilterBeginsSpeedButton
Left = 228 Left = 228
Height = 23 Height = 27
Top = 6 Top = 6
Width = 201 Width = 201
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@ -346,8 +346,8 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = UnitFilterBeginsSpeedButton AnchorSideRight.Control = UnitFilterBeginsSpeedButton
Left = 228 Left = 228
Height = 23 Height = 27
Top = 35 Top = 39
Width = 201 Width = 201
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -361,8 +361,8 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = IdentifierFilterBeginsSpeedButton AnchorSideRight.Control = IdentifierFilterBeginsSpeedButton
Left = 228 Left = 228
Height = 23 Height = 27
Top = 64 Top = 72
Width = 201 Width = 201
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -376,7 +376,7 @@ object CodeBrowserView: TCodeBrowserView
object ProgressBar1: TProgressBar object ProgressBar1: TProgressBar
Left = 0 Left = 0
Height = 20 Height = 20
Top = 520 Top = 522
Width = 623 Width = 623
Align = alBottom Align = alBottom
Max = 10000 Max = 10000

162
ide/codebrowser.lrs
View File

@ -1,38 +1,38 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TCodeBrowserView','FORMDATA',[ LazarusResources.Add('TCodeBrowserView','FORMDATA',[
'TPF0'#16'TCodeBrowserView'#15'CodeBrowserView'#4'Left'#3'T'#1#6'Height'#3'3' 'TPF0'#16'TCodeBrowserView'#15'CodeBrowserView'#4'Left'#3'n'#1#6'Height'#3'3'
+#2#3'Top'#3'C'#1#5'Width'#3'o'#2#13'ActiveControl'#7#13'ScopeComboBox'#7'Cap' +#2#3'Top'#3'Q'#1#5'Width'#3'o'#2#13'ActiveControl'#7#13'ScopeComboBox'#7'Cap'
+'tion'#6#15'CodeBrowserView'#12'ClientHeight'#3'3'#2#11'ClientWidth'#3'o'#2#8 +'tion'#6#15'CodeBrowserView'#12'ClientHeight'#3'3'#2#11'ClientWidth'#3'o'#2#8
+'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#10'LCLVersion'#6#6 +'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#10'LCLVersion'#6#6
+'0.9.29'#0#9'TGroupBox'#13'ScopeGroupBox'#4'Left'#2#6#6'Height'#2'5'#3'Top'#2 +'0.9.29'#0#9'TGroupBox'#13'ScopeGroupBox'#4'Left'#2#6#6'Height'#2'<'#3'Top'#2
+#6#5'Width'#3'c'#2#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around' +#6#5'Width'#3'c'#2#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'
+#2#6#7'Caption'#6#13'ScopeGroupBox'#12'ClientHeight'#2'#'#11'ClientWidth'#3 +#2#6#7'Caption'#6#13'ScopeGroupBox'#12'ClientHeight'#2')'#11'ClientWidth'#3
+'_'#2#8'TabOrder'#2#0#0#9'TComboBox'#13'ScopeComboBox'#22'AnchorSideLeft.Con' +'_'#2#8'TabOrder'#2#0#0#9'TComboBox'#13'ScopeComboBox'#22'AnchorSideLeft.Con'
+'trol'#7#13'ScopeGroupBox'#21'AnchorSideTop.Control'#7#13'ScopeGroupBox'#4'L' +'trol'#7#13'ScopeGroupBox'#21'AnchorSideTop.Control'#7#13'ScopeGroupBox'#4'L'
+'eft'#2#6#6'Height'#2#21#3'Top'#2#6#5'Width'#3';'#1#20'BorderSpacing.Around' +'eft'#2#6#6'Height'#2#29#3'Top'#2#6#5'Width'#3';'#1#20'BorderSpacing.Around'
+#2#6#10'ItemHeight'#2#13#13'OnEditingDone'#7#24'ScopeComboBoxEditingDone'#10 +#2#6#10'ItemHeight'#2#0#13'OnEditingDone'#7#24'ScopeComboBoxEditingDone'#10
+'OnGetItems'#7#21'ScopeComboBoxGetItems'#8'TabOrder'#2#0#4'Text'#6#13'ScopeC' +'OnGetItems'#7#21'ScopeComboBoxGetItems'#8'TabOrder'#2#0#4'Text'#6#13'ScopeC'
+'omboBox'#0#0#9'TCheckBox!ScopeWithRequiredPackagesCheckBox'#22'AnchorSideLe' +'omboBox'#0#0#9'TCheckBox!ScopeWithRequiredPackagesCheckBox'#22'AnchorSideLe'
+'ft.Control'#7#13'ScopeComboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'A' +'ft.Control'#7#13'ScopeComboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'A'
+'nchorSideTop.Control'#7#13'ScopeComboBox'#18'AnchorSideTop.Side'#7#9'asrCen' +'nchorSideTop.Control'#7#13'ScopeComboBox'#18'AnchorSideTop.Side'#7#9'asrCen'
+'ter'#4'Left'#3'G'#1#6'Height'#2#17#3'Top'#2#8#5'Width'#3#204#0#18'BorderSpa' +'ter'#4'Left'#3'G'#1#6'Height'#2#22#3'Top'#2#9#5'Width'#3#13#1#18'BorderSpac'
+'cing.Left'#2#6#19'BorderSpacing.Right'#2'2'#7'Caption'#6'!ScopeWithRequired' +'ing.Left'#2#6#19'BorderSpacing.Right'#2'2'#7'Caption'#6'!ScopeWithRequiredP'
+'PackagesCheckBox'#8'OnChange'#7'''ScopeWithRequiredPackagesCheckBoxChange'#8 +'ackagesCheckBox'#8'OnChange'#7'''ScopeWithRequiredPackagesCheckBoxChange'#8
+'TabOrder'#2#1#0#0#7'TButton'#12'RescanButton'#4'Left'#3#252#1#6'Height'#2#23 +'TabOrder'#2#1#0#0#7'TButton'#12'RescanButton'#4'Left'#3#245#1#6'Height'#2#29
+#3'Top'#2#6#5'Width'#2']'#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSpaci' +#3'Top'#2#6#5'Width'#2'd'#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSpaci'
+'ng.Around'#2#6#7'Caption'#6#12'RescanButton'#20'Constraints.MinWidth'#2'<'#7 +'ng.Around'#2#6#7'Caption'#6#12'RescanButton'#20'Constraints.MinWidth'#2'<'#7
+'OnClick'#7#17'RescanButtonClick'#8'TabOrder'#2#2#0#0#0#9'TGroupBox'#15'Opti' +'OnClick'#7#17'RescanButtonClick'#8'TabOrder'#2#2#0#0#0#9'TGroupBox'#15'Opti'
+'onsGroupBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control' +'onsGroupBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'
+#7#14'LevelsGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRig' +#7#14'LevelsGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRig'
+'ht.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#21'AnchorSid' +'ht.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#21'AnchorSid'
+'eBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'/'#3'Top'#3#182#0#5'Wi' +'eBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'5'#3'Top'#3#187#0#5'Wi'
+'dth'#3'c'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#18 +'dth'#3'c'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#18
+'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2 +'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2
+#6#7'Caption'#6#15'OptionsGroupBox'#29'ChildSizing.EnlargeHorizontal'#7#24'c' +#6#7'Caption'#6#15'OptionsGroupBox'#29'ChildSizing.EnlargeHorizontal'#7#24'c'
+'rsHomogenousSpaceResize'#28'ChildSizing.ShrinkHorizontal'#7#24'crsHomogenou' +'rsHomogenousSpaceResize'#28'ChildSizing.ShrinkHorizontal'#7#24'crsHomogenou'
+'sSpaceResize'#18'ChildSizing.Layout'#7#29'cclTopToBottomThenLeftToRight'#12 +'sSpaceResize'#18'ChildSizing.Layout'#7#29'cclTopToBottomThenLeftToRight'#12
+'ClientHeight'#2#29#11'ClientWidth'#3'_'#2#8'TabOrder'#2#1#0#9'TCheckBox'#19 +'ClientHeight'#2'"'#11'ClientWidth'#3'_'#2#8'TabOrder'#2#1#0#9'TCheckBox'#19
+'ShowPrivateCheckBox'#22'AnchorSideLeft.Control'#7#15'OptionsGroupBox'#21'An' +'ShowPrivateCheckBox'#22'AnchorSideLeft.Control'#7#15'OptionsGroupBox'#21'An'
+'chorSideTop.Control'#7#15'OptionsGroupBox'#4'Left'#2#6#6'Height'#2#22#3'Top' +'chorSideTop.Control'#7#15'OptionsGroupBox'#4'Left'#2#6#6'Height'#2#22#3'Top'
+#2#6#5'Width'#3#165#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7 +#2#6#5'Width'#3#165#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7
@ -49,21 +49,21 @@ LazarusResources.Add('TCodeBrowserView','FORMDATA',[
+'g.Around'#2#6#7'Caption'#6#22'ShowEmptyNodesCheckBox'#13'OnEditingDone'#7#25 +'g.Around'#2#6#7'Caption'#6#22'ShowEmptyNodesCheckBox'#13'OnEditingDone'#7#25
+'ShowPrivateCheckBoxChange'#8'TabOrder'#2#2#0#0#0#9'TTreeView'#14'BrowseTree' +'ShowPrivateCheckBoxChange'#8'TabOrder'#2#2#0#0#0#9'TTreeView'#14'BrowseTree'
+'View'#21'AnchorSideTop.Control'#7#15'OptionsGroupBox'#18'AnchorSideTop.Side' +'View'#21'AnchorSideTop.Control'#7#15'OptionsGroupBox'#18'AnchorSideTop.Side'
+#7#9'asrBottom'#4'Left'#2#0#6'Height'#3#29#1#3'Top'#3#235#0#5'Width'#3'o'#2#5 +#7#9'asrBottom'#4'Left'#2#0#6'Height'#3#20#1#3'Top'#3#246#0#5'Width'#3'o'#2#5
+'Align'#7#8'alBottom'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom' +'Align'#7#8'alBottom'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'
+#0#17'BorderSpacing.Top'#2#6#17'DefaultItemHeight'#2#18#6'Images'#7#10'Image' +#0#17'BorderSpacing.Top'#2#6#17'DefaultItemHeight'#2#19#6'Images'#7#10'Image'
+'List1'#14'ParentShowHint'#8#9'PopupMenu'#7#10'PopupMenu1'#8'ReadOnly'#9#8'S' +'List1'#14'ParentShowHint'#8#9'PopupMenu'#7#10'PopupMenu1'#8'ReadOnly'#9#8'S'
+'howHint'#9#8'TabOrder'#2#2#11'OnMouseDown'#7#23'BrowseTreeViewMouseDown'#10 +'howHint'#9#8'TabOrder'#2#2#11'OnMouseDown'#7#23'BrowseTreeViewMouseDown'#10
+'OnShowHint'#7#22'BrowseTreeViewShowHint'#7'Options'#11#17'tvoAutoItemHeight' +'OnShowHint'#7#22'BrowseTreeViewShowHint'#7'Options'#11#17'tvoAutoItemHeight'
+#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#11'tvoReadOnly'#14'tvoShowBu' +#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#11'tvoReadOnly'#14'tvoShowBu'
+'ttons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0#0#0#10'TStatusBar' +'ttons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0#0#0#10'TStatusBar'
+#10'StatusBar1'#4'Left'#2#0#6'Height'#2#23#3'Top'#3#28#2#5'Width'#3'o'#2#6'P' +#10'StatusBar1'#4'Left'#2#0#6'Height'#2#21#3'Top'#3#30#2#5'Width'#3'o'#2#6'P'
+'anels'#14#0#0#0#9'TGroupBox'#14'LevelsGroupBox'#22'AnchorSideLeft.Control'#7 +'anels'#14#0#0#0#9'TGroupBox'#14'LevelsGroupBox'#22'AnchorSideLeft.Control'#7
+#5'Owner'#21'AnchorSideTop.Control'#7#13'ScopeGroupBox'#18'AnchorSideTop.Sid' +#5'Owner'#21'AnchorSideTop.Control'#7#13'ScopeGroupBox'#18'AnchorSideTop.Sid'
+'e'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight' +'e'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight'
+'.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'o'#3'Top'#2'A'#5'Width'#3'c'#2 +'.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'm'#3'Top'#2'H'#5'Width'#3'c'#2
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacin' +#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacin'
+'g.Around'#2#6#7'Caption'#6#14'LevelsGroupBox'#12'ClientHeight'#2']'#11'Clie' +'g.Around'#2#6#7'Caption'#6#14'LevelsGroupBox'#12'ClientHeight'#2'Z'#11'Clie'
+'ntWidth'#3'_'#2#8'TabOrder'#2#3#0#12'TSpeedButton'#30'PackageFilterBeginsSp' +'ntWidth'#3'_'#2#8'TabOrder'#2#3#0#12'TSpeedButton'#30'PackageFilterBeginsSp'
,'eedButton'#22'AnchorSideLeft.Control'#7#17'PackageFilterEdit'#19'AnchorSide' ,'eedButton'#22'AnchorSideLeft.Control'#7#17'PackageFilterEdit'#19'AnchorSide'
+'Left.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#17'PackageFilterEdit' +'Left.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#17'PackageFilterEdit'
@ -82,7 +82,7 @@ LazarusResources.Add('TCodeBrowserView','FORMDATA',[
+'AnchorSideLeft.Control'#7#14'UnitFilterEdit'#19'AnchorSideLeft.Side'#7#9'as' +'AnchorSideLeft.Control'#7#14'UnitFilterEdit'#19'AnchorSideLeft.Side'#7#9'as'
+'rBottom'#21'AnchorSideTop.Control'#7#14'UnitFilterEdit'#18'AnchorSideTop.Si' +'rBottom'#21'AnchorSideTop.Control'#7#14'UnitFilterEdit'#18'AnchorSideTop.Si'
+'de'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#29'UnitFilterContainsSpeed' +'de'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#29'UnitFilterContainsSpeed'
+'Button'#4'Left'#3#173#1#6'Height'#2#22#3'Top'#2'#'#5'Width'#2'V'#7'Anchors' +'Button'#4'Left'#3#173#1#6'Height'#2#22#3'Top'#2')'#5'Width'#2'V'#7'Anchors'
+#11#5'akTop'#7'akRight'#0#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#2#9'NumGl' +#11#5'akTop'#7'akRight'#0#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#2#9'NumGl'
+'yphs'#2#0#7'OnClick'#7#28'PackageFilterEditEditingDone'#8'ShowHint'#9#14'Pa' +'yphs'#2#0#7'OnClick'#7#28'PackageFilterEditEditingDone'#8'ShowHint'#9#14'Pa'
+'rentShowHint'#8#0#0#12'TSpeedButton'#29'UnitFilterContainsSpeedButton'#22'A' +'rentShowHint'#8#0#0#12'TSpeedButton'#29'UnitFilterContainsSpeedButton'#22'A'
@ -90,14 +90,14 @@ LazarusResources.Add('TCodeBrowserView','FORMDATA',[
+'Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#14'UnitFilterEdit'#18'Anch' +'Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#14'UnitFilterEdit'#18'Anch'
+'orSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#14'LevelsGroup' +'orSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#14'LevelsGroup'
+'Box'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#3#2#6'Height'#2#22#3 +'Box'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#3#2#6'Height'#2#22#3
+'Top'#2'#'#5'Width'#2'V'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacin' +'Top'#2')'#5'Width'#2'V'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacin'
+'g.Right'#2#6#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#2#9'NumGlyphs'#2#0#7 +'g.Right'#2#6#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#2#9'NumGlyphs'#2#0#7
+'OnClick'#7#28'PackageFilterEditEditingDone'#8'ShowHint'#9#14'ParentShowHint' +'OnClick'#7#28'PackageFilterEditEditingDone'#8'ShowHint'#9#14'ParentShowHint'
+#8#0#0#12'TSpeedButton!IdentifierFilterBeginsSpeedButton'#22'AnchorSideLeft.' +#8#0#0#12'TSpeedButton!IdentifierFilterBeginsSpeedButton'#22'AnchorSideLeft.'
+'Control'#7#20'IdentifierFilterEdit'#19'AnchorSideLeft.Side'#7#9'asrBottom' +'Control'#7#20'IdentifierFilterEdit'#19'AnchorSideLeft.Side'#7#9'asrBottom'
+#21'AnchorSideTop.Control'#7#20'IdentifierFilterEdit'#18'AnchorSideTop.Side' +#21'AnchorSideTop.Control'#7#20'IdentifierFilterEdit'#18'AnchorSideTop.Side'
+#7#9'asrCenter'#23'AnchorSideRight.Control'#7'#IdentifierFilterContainsSpeed' +#7#9'asrCenter'#23'AnchorSideRight.Control'#7'#IdentifierFilterContainsSpeed'
+'Button'#4'Left'#3#173#1#6'Height'#2#22#3'Top'#2'@'#5'Width'#2'V'#7'Anchors' +'Button'#4'Left'#3#173#1#6'Height'#2#22#3'Top'#2'J'#5'Width'#2'V'#7'Anchors'
+#11#5'akTop'#7'akRight'#0#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#3#9'NumGl' +#11#5'akTop'#7'akRight'#0#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#3#9'NumGl'
+'yphs'#2#0#7'OnClick'#7#28'PackageFilterEditEditingDone'#8'ShowHint'#9#14'Pa' +'yphs'#2#0#7'OnClick'#7#28'PackageFilterEditEditingDone'#8'ShowHint'#9#14'Pa'
+'rentShowHint'#8#0#0#12'TSpeedButton#IdentifierFilterContainsSpeedButton'#22 +'rentShowHint'#8#0#0#12'TSpeedButton#IdentifierFilterContainsSpeedButton'#22
@ -105,71 +105,71 @@ LazarusResources.Add('TCodeBrowserView','FORMDATA',[
+'Left.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#20'IdentifierFilterEd' +'Left.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#20'IdentifierFilterEd'
+'it'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#14 +'it'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#14
+'LevelsGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#3#2#6'Hei' +'LevelsGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#3#2#6'Hei'
+'ght'#2#22#3'Top'#2'@'#5'Width'#2'V'#7'Anchors'#11#5'akTop'#7'akRight'#0#19 +'ght'#2#22#3'Top'#2'J'#5'Width'#2'V'#7'Anchors'#11#5'akTop'#7'akRight'#0#19
+'BorderSpacing.Right'#2#6#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#3#9'NumGl' +'BorderSpacing.Right'#2#6#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#3#9'NumGl'
+'yphs'#2#0#7'OnClick'#7#28'PackageFilterEditEditingDone'#8'ShowHint'#9#14'Pa' +'yphs'#2#0#7'OnClick'#7#28'PackageFilterEditEditingDone'#8'ShowHint'#9#14'Pa'
+'rentShowHint'#8#0#0#9'TCheckBox'#20'ShowPackagesCheckBox'#22'AnchorSideLeft' +'rentShowHint'#8#0#0#9'TCheckBox'#20'ShowPackagesCheckBox'#22'AnchorSideLeft'
+'.Control'#7#14'LevelsGroupBox'#21'AnchorSideTop.Control'#7#17'PackageFilter' +'.Control'#7#14'LevelsGroupBox'#21'AnchorSideTop.Control'#7#17'PackageFilter'
+'Edit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#17#3'To' +'Edit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#22#3'To'
+'p'#2#9#5'Width'#3#136#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6 +'p'#2#8#5'Width'#3#181#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6
+#7'Caption'#6#20'ShowPackagesCheckBox'#8'OnChange'#7#26'ShowPackagesCheckBox' +#7'Caption'#6#20'ShowPackagesCheckBox'#8'OnChange'#7#26'ShowPackagesCheckBox'
+'Change'#8'TabOrder'#2#0#0#0#9'TCheckBox'#17'ShowUnitsCheckBox'#22'AnchorSid' +'Change'#8'TabOrder'#2#0#0#0#9'TCheckBox'#17'ShowUnitsCheckBox'#22'AnchorSid'
+'eLeft.Control'#7#14'LevelsGroupBox'#21'AnchorSideTop.Control'#7#14'UnitFilt' +'eLeft.Control'#7#14'LevelsGroupBox'#21'AnchorSideTop.Control'#7#14'UnitFilt'
+'erEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#17#3 +'erEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#22#3
+'Top'#2'&'#5'Width'#2's'#18'BorderSpacing.Left'#2#6#7'Caption'#6#17'ShowUnit' +'Top'#2')'#5'Width'#3#154#0#18'BorderSpacing.Left'#2#6#7'Caption'#6#17'ShowU'
+'sCheckBox'#8'OnChange'#7#23'ShowUnitsCheckBoxChange'#8'TabOrder'#2#1#0#0#9 +'nitsCheckBox'#8'OnChange'#7#23'ShowUnitsCheckBoxChange'#8'TabOrder'#2#1#0#0
+'TCheckBox'#23'ShowIdentifiersCheckBox'#22'AnchorSideLeft.Control'#7#14'Leve' +#9'TCheckBox'#23'ShowIdentifiersCheckBox'#22'AnchorSideLeft.Control'#7#14'Le'
+'lsGroupBox'#21'AnchorSideTop.Control'#7#20'IdentifierFilterEdit'#18'AnchorS' +'velsGroupBox'#21'AnchorSideTop.Control'#7#20'IdentifierFilterEdit'#18'Ancho'
+'ideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#17#3'Top'#2'C'#5'Width' +'rSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#22#3'Top'#2'J'#5'Widt'
+#3#140#0#18'BorderSpacing.Left'#2#6#20'BorderSpacing.Bottom'#2#6#7'Caption'#6 +'h'#3#183#0#18'BorderSpacing.Left'#2#6#20'BorderSpacing.Bottom'#2#6#7'Captio'
+#23'ShowIdentifiersCheckBox'#8'OnChange'#7#29'ShowIdentifiersCheckBoxChange' +'n'#6#23'ShowIdentifiersCheckBox'#8'OnChange'#7#29'ShowIdentifiersCheckBoxCh'
+#8'TabOrder'#2#2#0#0#5'TEdit'#17'PackageFilterEdit'#21'AnchorSideTop.Control' +'ange'#8'TabOrder'#2#2#0#0#5'TEdit'#17'PackageFilterEdit'#21'AnchorSideTop.C'
+#7#14'LevelsGroupBox'#23'AnchorSideRight.Control'#7#30'PackageFilterBeginsSp' +'ontrol'#7#14'LevelsGroupBox'#23'AnchorSideRight.Control'#7#30'PackageFilter'
+'eedButton'#4'Left'#3#228#0#6'Height'#2#23#3'Top'#2#6#5'Width'#3#201#0#7'Anc' +'BeginsSpeedButton'#4'Left'#3#228#0#6'Height'#2#27#3'Top'#2#6#5'Width'#3#201
+'hors'#11#5'akTop'#7'akRight'#0#17'BorderSpacing.Top'#2#6#8'OnChange'#7#23'P' +#0#7'Anchors'#11#5'akTop'#7'akRight'#0#17'BorderSpacing.Top'#2#6#8'OnChange'
+'ackageFilterEditChange'#13'OnEditingDone'#7#28'PackageFilterEditEditingDone' +#7#23'PackageFilterEditChange'#13'OnEditingDone'#7#28'PackageFilterEditEditi'
+#8'TabOrder'#2#3#4'Text'#6#17'PackageFilterEdit'#0#0#5'TEdit'#14'UnitFilterE' +'ngDone'#8'TabOrder'#2#3#4'Text'#6#17'PackageFilterEdit'#0#0#5'TEdit'#14'Uni'
,'dit'#21'AnchorSideTop.Control'#7#17'PackageFilterEdit'#18'AnchorSideTop.Sid' ,'tFilterEdit'#21'AnchorSideTop.Control'#7#17'PackageFilterEdit'#18'AnchorSid'
+'e'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#27'UnitFilterBeginsSpeedBut' +'eTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#27'UnitFilterBegins'
+'ton'#4'Left'#3#228#0#6'Height'#2#23#3'Top'#2'#'#5'Width'#3#201#0#7'Anchors' +'SpeedButton'#4'Left'#3#228#0#6'Height'#2#27#3'Top'#2''''#5'Width'#3#201#0#7
+#11#5'akTop'#7'akRight'#0#17'BorderSpacing.Top'#2#6#8'OnChange'#7#23'Package' +'Anchors'#11#5'akTop'#7'akRight'#0#17'BorderSpacing.Top'#2#6#8'OnChange'#7#23
+'FilterEditChange'#13'OnEditingDone'#7#28'PackageFilterEditEditingDone'#8'Ta' +'PackageFilterEditChange'#13'OnEditingDone'#7#28'PackageFilterEditEditingDon'
+'bOrder'#2#4#4'Text'#6#14'UnitFilterEdit'#0#0#5'TEdit'#20'IdentifierFilterEd' +'e'#8'TabOrder'#2#4#4'Text'#6#14'UnitFilterEdit'#0#0#5'TEdit'#20'IdentifierF'
+'it'#21'AnchorSideTop.Control'#7#14'UnitFilterEdit'#18'AnchorSideTop.Side'#7 +'ilterEdit'#21'AnchorSideTop.Control'#7#14'UnitFilterEdit'#18'AnchorSideTop.'
+#9'asrBottom'#23'AnchorSideRight.Control'#7'!IdentifierFilterBeginsSpeedButt' +'Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7'!IdentifierFilterBeginsS'
+'on'#4'Left'#3#228#0#6'Height'#2#23#3'Top'#2'@'#5'Width'#3#201#0#7'Anchors' +'peedButton'#4'Left'#3#228#0#6'Height'#2#27#3'Top'#2'H'#5'Width'#3#201#0#7'A'
+#11#5'akTop'#7'akRight'#0#17'BorderSpacing.Top'#2#6#20'BorderSpacing.Bottom' +'nchors'#11#5'akTop'#7'akRight'#0#17'BorderSpacing.Top'#2#6#20'BorderSpacing'
+#2#6#8'OnChange'#7#23'PackageFilterEditChange'#13'OnEditingDone'#7#28'Packag' +'.Bottom'#2#6#8'OnChange'#7#23'PackageFilterEditChange'#13'OnEditingDone'#7
+'eFilterEditEditingDone'#8'TabOrder'#2#5#4'Text'#6#20'IdentifierFilterEdit'#0 +#28'PackageFilterEditEditingDone'#8'TabOrder'#2#5#4'Text'#6#20'IdentifierFil'
+#0#0#12'TProgressBar'#12'ProgressBar1'#4'Left'#2#0#6'Height'#2#20#3'Top'#3#8 +'terEdit'#0#0#0#12'TProgressBar'#12'ProgressBar1'#4'Left'#2#0#6'Height'#2#20
+#2#5'Width'#3'o'#2#5'Align'#7#8'alBottom'#3'Max'#3#16''''#8'TabOrder'#2#5#0#0 +#3'Top'#3#10#2#5'Width'#3'o'#2#5'Align'#7#8'alBottom'#3'Max'#3#16''''#8'TabO'
+#10'TImageList'#10'ImageList1'#6'Height'#2#18#5'Width'#2#18#4'left'#3'*'#1#3 +'rder'#2#5#0#0#10'TImageList'#10'ImageList1'#6'Height'#2#18#5'Width'#2#18#4
+'top'#3'@'#1#0#0#10'TPopupMenu'#10'PopupMenu1'#7'OnPopup'#7#15'PopupMenu1Pop' +'left'#3'*'#1#3'top'#3'@'#1#0#0#10'TPopupMenu'#10'PopupMenu1'#7'OnPopup'#7#15
+'up'#4'left'#3#248#0#3'top'#3'@'#1#0#9'TMenuItem'#12'OpenMenuItem'#7'Caption' +'PopupMenu1Popup'#4'left'#3#248#0#3'top'#3'@'#1#0#9'TMenuItem'#12'OpenMenuIt'
+#6#12'OpenMenuItem'#7'OnClick'#7#17'OpenMenuItemClick'#0#0#9'TMenuItem'#23'C' +'em'#7'Caption'#6#12'OpenMenuItem'#7'OnClick'#7#17'OpenMenuItemClick'#0#0#9
+'opyDescriptionMenuItem'#7'Caption'#6#23'CopyDescriptionMenuItem'#7'OnClick' +'TMenuItem'#23'CopyDescriptionMenuItem'#7'Caption'#6#23'CopyDescriptionMenuI'
+#7#28'CopyDescriptionMenuItemClick'#0#0#9'TMenuItem'#22'CopyIdentifierMenuIt' +'tem'#7'OnClick'#7#28'CopyDescriptionMenuItemClick'#0#0#9'TMenuItem'#22'Copy'
+'em'#7'Caption'#6#22'CopyIdentifierMenuItem'#7'OnClick'#7#27'CopyIdentifierM' +'IdentifierMenuItem'#7'Caption'#6#22'CopyIdentifierMenuItem'#7'OnClick'#7#27
+'enuItemClick'#0#0#9'TMenuItem'#21'CopySeparatorMenuItem'#7'Caption'#6#1'-'#0 +'CopyIdentifierMenuItemClick'#0#0#9'TMenuItem'#21'CopySeparatorMenuItem'#7'C'
+#0#9'TMenuItem'#23'AddPkgToProjectMenuItem'#7'Caption'#6#23'AddPkgToProjectM' +'aption'#6#1'-'#0#0#9'TMenuItem'#23'AddPkgToProjectMenuItem'#7'Caption'#6#23
+'enuItem'#7'OnClick'#7#28'AddPkgToProjectMenuItemClick'#0#0#9'TMenuItem'#23 +'AddPkgToProjectMenuItem'#7'OnClick'#7#28'AddPkgToProjectMenuItemClick'#0#0#9
+'AddPkgToCurUnitMenuItem'#7'Caption'#6#23'AddPkgToCurUnitMenuItem'#7'OnClick' +'TMenuItem'#23'AddPkgToCurUnitMenuItem'#7'Caption'#6#23'AddPkgToCurUnitMenuI'
+#7#28'AddPkgToCurUnitMenuItemClick'#0#0#9'TMenuItem'#20'UseSeparatorMenuItem' +'tem'#7'OnClick'#7#28'AddPkgToCurUnitMenuItemClick'#0#0#9'TMenuItem'#20'UseS'
+#7'Caption'#6#1'-'#0#0#9'TMenuItem'#25'ExpandAllPackagesMenuItem'#7'Caption' +'eparatorMenuItem'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#25'ExpandAllPackagesMe'
+#6#25'ExpandAllPackagesMenuItem'#7'OnClick'#7#30'ExpandAllPackagesMenuItemCl' +'nuItem'#7'Caption'#6#25'ExpandAllPackagesMenuItem'#7'OnClick'#7#30'ExpandAl'
+'ick'#0#0#9'TMenuItem'#27'CollapseAllPackagesMenuItem'#7'Caption'#6#27'Colla' +'lPackagesMenuItemClick'#0#0#9'TMenuItem'#27'CollapseAllPackagesMenuItem'#7
+'pseAllPackagesMenuItem'#7'OnClick'#7' CollapseAllPackagesMenuItemClick'#0#0 +'Caption'#6#27'CollapseAllPackagesMenuItem'#7'OnClick'#7' CollapseAllPackage'
+#9'TMenuItem'#28'AllPackagesSeparatorMenuItem'#7'Caption'#6#1'-'#0#0#9'TMenu' +'sMenuItemClick'#0#0#9'TMenuItem'#28'AllPackagesSeparatorMenuItem'#7'Caption'
+'Item'#22'ExpandAllUnitsMenuItem'#7'Caption'#6#22'ExpandAllUnitsMenuItem'#7 +#6#1'-'#0#0#9'TMenuItem'#22'ExpandAllUnitsMenuItem'#7'Caption'#6#22'ExpandAl'
+'OnClick'#7#27'ExpandAllUnitsMenuItemClick'#0#0#9'TMenuItem'#24'CollapseAllU' +'lUnitsMenuItem'#7'OnClick'#7#27'ExpandAllUnitsMenuItemClick'#0#0#9'TMenuIte'
+'nitsMenuItem'#7'Caption'#6#24'CollapseAllUnitsMenuItem'#7'OnClick'#7#29'Col' +'m'#24'CollapseAllUnitsMenuItem'#7'Caption'#6#24'CollapseAllUnitsMenuItem'#7
+'lapseAllUnitsMenuItemClick'#0#0#9'TMenuItem'#25'AllUnitsSeparatorMenuItem'#7 +'OnClick'#7#29'CollapseAllUnitsMenuItemClick'#0#0#9'TMenuItem'#25'AllUnitsSe'
+'Caption'#6#1'-'#0#0#9'TMenuItem'#24'ExpandAllClassesMenuItem'#7'Caption'#6 +'paratorMenuItem'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#24'ExpandAllClassesMenu'
+#24'ExpandAllClassesMenuItem'#7'OnClick'#7#29'ExpandAllClassesMenuItemClick' +'Item'#7'Caption'#6#24'ExpandAllClassesMenuItem'#7'OnClick'#7#29'ExpandAllCl'
+#0#0#9'TMenuItem'#26'CollapseAllClassesMenuItem'#7'Caption'#6#26'CollapseAll' +'assesMenuItemClick'#0#0#9'TMenuItem'#26'CollapseAllClassesMenuItem'#7'Capti'
+'ClassesMenuItem'#7'OnClick'#7#31'CollapseAllClassesMenuItemClick'#0#0#9'TMe' +'on'#6#26'CollapseAllClassesMenuItem'#7'OnClick'#7#31'CollapseAllClassesMenu'
+'nuItem'#27'AllClassesSeparatorMenuItem'#7'Caption'#6#1'-'#0#0#9'TMenuItem' +'ItemClick'#0#0#9'TMenuItem'#27'AllClassesSeparatorMenuItem'#7'Caption'#6#1
+#14'ExportMenuItem'#7'Caption'#6#14'ExportMenuItem'#7'OnClick'#7#19'ExportMe' +'-'#0#0#9'TMenuItem'#14'ExportMenuItem'#7'Caption'#6#14'ExportMenuItem'#7'On'
+'nuItemClick'#0#0#0#10'TIdleTimer'#10'IdleTimer1'#7'OnTimer'#7#15'IdleTimer1' +'Click'#7#19'ExportMenuItemClick'#0#0#0#10'TIdleTimer'#10'IdleTimer1'#7'OnTi'
+'Timer'#4'left'#3'^'#1#3'top'#3'@'#1#0#0#0 +'mer'#7#15'IdleTimer1Timer'#4'left'#3'^'#1#3'top'#3'@'#1#0#0#0
]); ]);

85
ide/codebrowser.pas
View File

@ -45,7 +45,7 @@ interface
uses uses
Classes, SysUtils, LCLProc, LResources, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, LCLProc, LResources, Forms, Controls, Graphics, Dialogs,
Clipbrd, LCLIntf, AVL_Tree, StdCtrls, ExtCtrls, ComCtrls, Buttons, Clipbrd, LCLIntf, AVL_Tree, StdCtrls, ExtCtrls, ComCtrls, Buttons, Menus,
// codetools // codetools
CodeAtom, BasicCodeTools, DefineTemplates, CodeTree, CodeCache, CodeAtom, BasicCodeTools, DefineTemplates, CodeTree, CodeCache,
CodeToolManager, PascalParserTool, LinkScanner, FileProcs, CodeIndex, CodeToolManager, PascalParserTool, LinkScanner, FileProcs, CodeIndex,
@ -55,7 +55,7 @@ uses
IDECommands, LazIDEIntf, DialogProcs, IDECommands, LazIDEIntf, DialogProcs,
// IDE // IDE
PackageSystem, PackageDefs, LazarusIDEStrConsts, IDEOptionDefs, PackageSystem, PackageDefs, LazarusIDEStrConsts, IDEOptionDefs,
BasePkgManager, AddToProjectDlg, EnvironmentOpts, Menus; BasePkgManager, AddToProjectDlg, EnvironmentOpts;
type type
@ -172,6 +172,7 @@ type
AllPackagesSeparatorMenuItem: TMenuItem; AllPackagesSeparatorMenuItem: TMenuItem;
AllUnitsSeparatorMenuItem: TMenuItem; AllUnitsSeparatorMenuItem: TMenuItem;
BrowseTreeView: TTreeView; BrowseTreeView: TTreeView;
AddUnitToCurUnitMenuItem: TMenuItem;
RescanButton: TButton; RescanButton: TButton;
IdleTimer1: TIdleTimer; IdleTimer1: TIdleTimer;
AddPkgToProjectMenuItem: TMenuItem; AddPkgToProjectMenuItem: TMenuItem;
@ -214,6 +215,7 @@ type
UnitFilterEdit: TEdit; UnitFilterEdit: TEdit;
procedure AddPkgToCurUnitMenuItemClick(Sender: TObject); procedure AddPkgToCurUnitMenuItemClick(Sender: TObject);
procedure AddPkgToProjectMenuItemClick(Sender: TObject); procedure AddPkgToProjectMenuItemClick(Sender: TObject);
procedure AddUnitToCurUnitMenuItemClick(Sender: TObject);
procedure BrowseTreeViewMouseDown(Sender: TOBject; Button: TMouseButton; procedure BrowseTreeViewMouseDown(Sender: TOBject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
procedure BrowseTreeViewShowHint(Sender: TObject; HintInfo: PHintInfo); procedure BrowseTreeViewShowHint(Sender: TObject; HintInfo: PHintInfo);
@ -322,6 +324,8 @@ type
procedure CopyNode(TVNode: TTreeNode; NodeType: TCopyNodeType); procedure CopyNode(TVNode: TTreeNode; NodeType: TCopyNodeType);
procedure InvalidateStage(AStage: TCodeBrowserWorkStage); procedure InvalidateStage(AStage: TCodeBrowserWorkStage);
function GetSelectedPackage: TLazPackage; function GetSelectedPackage: TLazPackage;
function GetCurUnitInSrcEditor(out FileOwner: TObject;
out Filename: string): boolean;
function GetCurPackageInSrcEditor: TLazPackage; function GetCurPackageInSrcEditor: TLazPackage;
procedure OpenTVNode(TVNode: TTreeNode); procedure OpenTVNode(TVNode: TTreeNode);
public public
@ -416,8 +420,9 @@ begin
CollapseAllClassesMenuItem.Caption:=lisCollapseAllClasses; CollapseAllClassesMenuItem.Caption:=lisCollapseAllClasses;
ExportMenuItem.Caption:=lisExport; ExportMenuItem.Caption:=lisExport;
OpenMenuItem.Caption:=lisHintOpen; OpenMenuItem.Caption:=lisHintOpen;
AddPkgToProjectMenuItem.Caption:=lisAddPackageDependencyToProject; // AddPkgToProjectMenuItem.Caption: see PopupMenu1Popup
AddPkgToCurUnitMenuItem.Caption:=lisAddPackageDependencyToActiveUnit; // AddPkgToCurUnitMenuItem.Caption: see PopupMenu1Popup
// AddUnitToCurUnitMenuItem.Caption: see PopupMenu1Popup
PackageFilterBeginsSpeedButton.Caption:=lisBegins; PackageFilterBeginsSpeedButton.Caption:=lisBegins;
PackageFilterBeginsSpeedButton.Hint:=lisPackageNameBeginsWith; PackageFilterBeginsSpeedButton.Hint:=lisPackageNameBeginsWith;
@ -477,6 +482,12 @@ var
APackage: TLazPackage; APackage: TLazPackage;
EnableAddPkgToCurUnit: Boolean; EnableAddPkgToCurUnit: Boolean;
TargetPackage: TLazPackage; TargetPackage: TLazPackage;
EnableUnitToCurUnit: Boolean;
CurUnit: TCodeBrowserUnit;
SrcEditUnitOwner: TObject;
SrcEditUnitFilename: string;
CurUnitName: String;
SrcEditUnitName: String;
begin begin
ExpandAllPackagesMenuItem.Visible:=Options.HasLevel(cblPackages); ExpandAllPackagesMenuItem.Visible:=Options.HasLevel(cblPackages);
CollapseAllPackagesMenuItem.Visible:=ExpandAllPackagesMenuItem.Visible; CollapseAllPackagesMenuItem.Visible:=ExpandAllPackagesMenuItem.Visible;
@ -496,14 +507,23 @@ begin
Node:=TObject(TVNode.Data); Node:=TObject(TVNode.Data);
EnableAddPkgToProject:=false; EnableAddPkgToProject:=false;
EnableAddPkgToCurUnit:=false; EnableAddPkgToCurUnit:=false;
EnableUnitToCurUnit:=false;
if Node<>nil then begin if Node<>nil then begin
if Node is TCodeBrowserNode then if Node is TCodeBrowserNode then
Identifier:=TCodeBrowserNode(Node).Identifier Identifier:=TCodeBrowserNode(Node).Identifier
else else
Identifier:=''; Identifier:='';
APackage:=nil; APackage:=nil;
if Node is TCodeBrowserUnitList then begin UnitList:=nil;
CurUnit:=nil;
TargetPackage:=nil;
if Node is TCodeBrowserUnit then begin
CurUnit:=TCodeBrowserUnit(Node);
UnitList:=CurUnit.UnitList;
end else if Node is TCodeBrowserUnitList then begin
UnitList:=TCodeBrowserUnitList(Node); UnitList:=TCodeBrowserUnitList(Node);
end;
if UnitList<>nil then begin
if UnitList.Owner=CodeBrowserProjectName then begin if UnitList.Owner=CodeBrowserProjectName then begin
// project // project
end else if UnitList.Owner=CodeBrowserIDEName then begin end else if UnitList.Owner=CodeBrowserIDEName then begin
@ -517,7 +537,7 @@ begin
// check if package can be added to project // check if package can be added to project
if Project1.FindDependencyByName(APackage.Name)=nil then begin if Project1.FindDependencyByName(APackage.Name)=nil then begin
EnableAddPkgToProject:=true; EnableAddPkgToProject:=true;
AddPkgToProjectMenuItem.Caption:=Format(lisAddPackageToProject, [ AddPkgToProjectMenuItem.Caption:=Format(lisUsePackageInProject, [
APackage.Name]); APackage.Name]);
end; end;
// check if package can be added to package of src editor unit // check if package can be added to package of src editor unit
@ -527,9 +547,20 @@ begin
and (TargetPackage.FindDependencyByName(APackage.Name)=nil) then begin and (TargetPackage.FindDependencyByName(APackage.Name)=nil) then begin
EnableAddPkgToCurUnit:=true; EnableAddPkgToCurUnit:=true;
AddPkgToCurUnitMenuItem.Caption:=Format( AddPkgToCurUnitMenuItem.Caption:=Format(
lisAddPackageToPackage, [APackage.Name, lisUsePackageInPackage, [APackage.Name,
TargetPackage.Name]); TargetPackage.Name]);
end; end;
// check if unit can be added to project/package
GetCurUnitInSrcEditor(SrcEditUnitOwner,SrcEditUnitFilename);
if (CurUnit<>nil) and (SrcEditUnitOwner<>nil) then begin
CurUnitName:=ExtractFileNameOnly(CurUnit.Filename);
SrcEditUnitName:=ExtractFileNameOnly(SrcEditUnitFilename);
if SysUtils.CompareText(CurUnitName,SrcEditUnitName)<>0 then begin
EnableUnitToCurUnit:=true;
AddUnitToCurUnitMenuItem.Caption:=
Format(lisUseUnitInUnit, [CurUnitName, SrcEditUnitName]);
end;
end;
end; end;
end; end;
end; end;
@ -540,17 +571,27 @@ begin
CopyDescriptionMenuItem.Visible:=true; CopyDescriptionMenuItem.Visible:=true;
CopyIdentifierMenuItem.Visible:=Identifier<>''; CopyIdentifierMenuItem.Visible:=Identifier<>'';
CopySeparatorMenuItem.Visible:=true; CopySeparatorMenuItem.Visible:=true;
AddUnitToCurUnitMenuItem.Enabled:=EnableUnitToCurUnit;
AddUnitToCurUnitMenuItem.Visible:=true;
if not EnableUnitToCurUnit then
AddUnitToCurUnitMenuItem.Caption:=lisPkgMangUseUnit;
AddPkgToProjectMenuItem.Enabled:=EnableAddPkgToProject; AddPkgToProjectMenuItem.Enabled:=EnableAddPkgToProject;
AddPkgToProjectMenuItem.Visible:=true; AddPkgToProjectMenuItem.Visible:=true;
if not EnableAddPkgToProject then
AddPkgToProjectMenuItem.Caption:=lisUsePackageInProject2;
AddPkgToCurUnitMenuItem.Enabled:=EnableAddPkgToCurUnit; AddPkgToCurUnitMenuItem.Enabled:=EnableAddPkgToCurUnit;
AddPkgToCurUnitMenuItem.Visible:=true; AddPkgToCurUnitMenuItem.Visible:=true;
if not EnableAddPkgToCurUnit then
AddPkgToCurUnitMenuItem.Caption:=lisUsePackageInPackage2;
end else begin end else begin
OpenMenuItem.Visible:=false; OpenMenuItem.Visible:=false;
CopyDescriptionMenuItem.Visible:=false; CopyDescriptionMenuItem.Visible:=false;
CopyIdentifierMenuItem.Visible:=false; CopyIdentifierMenuItem.Visible:=false;
CopySeparatorMenuItem.Visible:=false; CopySeparatorMenuItem.Visible:=false;
AddUnitToCurUnitMenuItem.Visible:=false;
AddPkgToProjectMenuItem.Visible:=false; AddPkgToProjectMenuItem.Visible:=false;
AddPkgToCurUnitMenuItem.Visible:=false; AddPkgToCurUnitMenuItem.Visible:=false;
UseSeparatorMenuItem.Visible:=false;
end; end;
end; end;
@ -2252,6 +2293,31 @@ begin
Result:=PackageGraph.FindAPackageWithName(UnitList.Owner,nil); Result:=PackageGraph.FindAPackageWithName(UnitList.Owner,nil);
end; end;
function TCodeBrowserView.GetCurUnitInSrcEditor(out FileOwner: TObject; out
Filename: string): boolean;
var
SrcEdit: TSourceEditorInterface;
Code: TCodeBuffer;
Owners: TFPList;
begin
FileOwner:=nil;
Filename:='';
Result:=false;
SrcEdit:=SourceEditorWindow.ActiveEditor;
if SrcEdit=nil then exit;
Code:=CodeToolBoss.GetMainCode(TCodeBuffer(SrcEdit.CodeToolsBuffer));
if Code=nil then exit;
Owners:=PkgBoss.GetOwnersOfUnit(Code.FileName);
try
if (Owners=nil) or (Owners.Count=0) then exit;
FileOwner:=TObject(Owners[0]);
Filename:=Code.Filename;
Result:=true;
finally
Owners.Free;
end;
end;
function TCodeBrowserView.GetCurPackageInSrcEditor: TLazPackage; function TCodeBrowserView.GetCurPackageInSrcEditor: TLazPackage;
var var
SrcEdit: TSourceEditorInterface; SrcEdit: TSourceEditorInterface;
@ -2478,6 +2544,11 @@ begin
PkgBoss.AddProjectDependency(Project1,APackage); PkgBoss.AddProjectDependency(Project1,APackage);
end; end;
procedure TCodeBrowserView.AddUnitToCurUnitMenuItemClick(Sender: TObject);
begin
end;
procedure TCodeBrowserView.AddPkgToCurUnitMenuItemClick(Sender: TObject); procedure TCodeBrowserView.AddPkgToCurUnitMenuItemClick(Sender: TObject);
var var
APackage: TLazPackage; APackage: TLazPackage;

9
ide/lazarusidestrconsts.pas
View File

@ -1859,7 +1859,6 @@ resourcestring
lisCollapseAllClasses = 'Collapse all classes'; lisCollapseAllClasses = 'Collapse all classes';
lisExport = 'Export ...'; lisExport = 'Export ...';
lisBegins = 'begins'; lisBegins = 'begins';
lisAddPackageDependencyToProject = 'Add package dependency to project';
lisIdentifierBeginsWith = 'Identifier begins with ...'; lisIdentifierBeginsWith = 'Identifier begins with ...';
lisUnitNameBeginsWith = 'Unit name begins with ...'; lisUnitNameBeginsWith = 'Unit name begins with ...';
lisPackageNameBeginsWith = 'Package name begins with ...'; lisPackageNameBeginsWith = 'Package name begins with ...';
@ -4465,10 +4464,12 @@ resourcestring
lisInsertPrintShortTag = 'Insert PrintShort tag'; lisInsertPrintShortTag = 'Insert PrintShort tag';
lisAutomaticallyInvokeAfterPoint = 'Automatically invoke after point'; lisAutomaticallyInvokeAfterPoint = 'Automatically invoke after point';
lisShowEmptyUnitsPackages = 'Show empty units/packages'; lisShowEmptyUnitsPackages = 'Show empty units/packages';
lisAddPackageDependencyToActiveUnit = 'Add package dependency to active unit'; lisUsePackageInProject = 'Use package %s in project';
lisAddPackageToProject = 'Add package %s to project'; lisUsePackageInPackage = 'Use package %s in package %s';
lisAddPackageToPackage = 'Add package %s to package %s';
lisRescan = 'Rescan'; lisRescan = 'Rescan';
lisUseUnitInUnit = 'Use unit %s in unit %s';
lisUsePackageInProject2 = 'Use package in project';
lisUsePackageInPackage2 = 'Use package in package';
implementation implementation