paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 07:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: codeexplorer: keep Parent treenode, bug #20333

Browse Source 
git-svn-id: trunk@32619 -
This commit is contained in:
mattias 2011-10-02 16:13:00 +00:00
parent f81b474d89
commit 240337f737
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/codeexplorer.pas
View File

@ -861,10 +861,12 @@ var
ShowNode: Boolean;
ShowChilds: Boolean;
Category: TCodeExplorerCategory;
CurParentViewNode: TTreeNode;
begin
while CodeNode<>nil do begin
ShowNode:=true;
ShowChilds:=true;
CurParentViewNode:=ParentViewNode;
// don't show statements
if (CodeNode.Desc in AllPascalStatements+[ctnParameterList]) then begin
@ -919,7 +921,7 @@ begin
end;
// don't show single hint modifiers
if (CodeNode.Desc = ctnHintModifier) and (ParentViewNode = nil) then
if (CodeNode.Desc = ctnHintModifier) and (CurParentViewNode = nil) then
begin
ShowNode:=false;
ShowChilds:=false;
@ -955,8 +957,8 @@ begin
fCategoryNodes[Category].ImageIndex:=NodeImageIndex;
fCategoryNodes[Category].SelectedIndex:=NodeImageIndex;
end;
if not Assigned(ParentViewNode) then
ParentViewNode:=fCategoryNodes[Category];
if (CurParentViewNode=nil) then
CurParentViewNode:=fCategoryNodes[Category];
InFrontViewNode:=nil;
end;
end else begin
@ -975,13 +977,13 @@ begin
NodeText:=GetCodeNodeDescription(ACodeTool,CodeNode);
NodeImageIndex:=GetCodeNodeImage(ACodeTool,CodeNode);
//if NodeText='TCodeExplorerView' then
// debugln(['TCodeExplorerView.CreateIdentifierNodes CodeNode=',CodeNode.DescAsString,' NodeText="',NodeText,'" Category=',dbgs(Category),' InFrontViewNode=',InFrontViewNode<>nil,' ParentViewNode=',ParentViewNode<>nil]);
// debugln(['TCodeExplorerView.CreateIdentifierNodes CodeNode=',CodeNode.DescAsString,' NodeText="',NodeText,'" Category=',dbgs(Category),' InFrontViewNode=',InFrontViewNode<>nil,' CurParentViewNode=',CurParentViewNode<>nil]);
if InFrontViewNode<>nil then
ViewNode:=CodeTreeview.Items.InsertObjectBehind(
InFrontViewNode,NodeText,NodeData)
else if ParentViewNode<>nil then
else if CurParentViewNode<>nil then
ViewNode:=CodeTreeview.Items.AddChildObject(
ParentViewNode,NodeText,NodeData)
CurParentViewNode,NodeText,NodeData)
else
ViewNode:=CodeTreeview.Items.AddObject(nil,NodeText,NodeData);
ViewNode.ImageIndex:=NodeImageIndex;
@ -989,7 +991,7 @@ begin
InFrontViewNode:=ViewNode;
end else begin
// do not add a node to the TTreeView
ViewNode:=ParentViewNode;
ViewNode:=CurParentViewNode;
AddImplementationNode(ACodeTool,CodeNode);
end;
if ShowChilds then