paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 21:59:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: codeexplorer: showing class, interface and record sub nodes in category mode

Browse Source 
git-svn-id: trunk@13602 -
This commit is contained in:
mattias 2008-01-03 02:14:13 +00:00
parent f603c9ff5f
commit c13f4b790d
1 changed files with 22 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/codeexplorer.pas
View File

@ -1,4 +1,3 @@
{ $Id$ }
{ {
/*************************************************************************** /***************************************************************************
codeexplorer.pas codeexplorer.pas
@ -611,14 +610,12 @@ begin
// category mode: put nodes in categories // category mode: put nodes in categories
Category:=cecNone; Category:=cecNone;
//DebugLn(['TCodeExplorerView.CreateNodes AAA1 ',CodeNode.DescAsString]);
if ShowNode if ShowNode
and ((CodeNode.Parent=nil) and ((CodeNode.Parent=nil)
or (CodeNode.Parent.Desc in AllCodeSections) or (CodeNode.Parent.Desc in AllCodeSections)
or (CodeNode.Parent.Parent=nil) or (CodeNode.Parent.Parent=nil)
or (CodeNode.Parent.Parent.Desc in AllCodeSections)) then or (CodeNode.Parent.Parent.Desc in AllCodeSections)) then
begin begin
//DebugLn(['TCodeExplorerView.CreateNodes AAA2 ',CodeNode.DescAsString]);
// top level definition // top level definition
case CodeNode.Desc of case CodeNode.Desc of
ctnUsesSection: Category:=cecUses; ctnUsesSection: Category:=cecUses;
@ -628,7 +625,6 @@ begin
ctnProcedure: Category:=cecProcedures; ctnProcedure: Category:=cecProcedures;
ctnProperty: Category:=cecProperties; ctnProperty: Category:=cecProperties;
end; end;
end;
if Category<>cecNone then begin if Category<>cecNone then begin
ShowNode:=Category in CodeExplorerOptions.Categories; ShowNode:=Category in CodeExplorerOptions.Categories;
if ShowNode then begin if ShowNode then begin
@ -647,6 +643,15 @@ begin
end else begin end else begin
ShowNode:=false; ShowNode:=false;
end; end;
end else if (CodeNode.Parent<>nil)
and (CodeNode.Parent.Desc in (AllClassSections+[ctnRecordType+ctnClassInterface]))
then begin
// show class, interface and record nodes
ShowNode:=true;
end else begin
ShowNode:=false;
end;
//DebugLn(['TCodeExplorerView.CreateNodes ',CodeNode.DescAsString,' ShowNode=',ShowNode,' ShowChilds=',ShowChilds]);
end; end;
if ShowNode then begin if ShowNode then begin