paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 19:58:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: codeexplorer: fixed showing sub nodes of classes

Browse Source 
git-svn-id: trunk@13567 -
This commit is contained in:
mattias 2008-01-02 00:14:27 +00:00
parent e29b695c61
commit ac495620a8
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
ide/codeexplorer.pas
View File

@ -584,7 +584,7 @@ begin
// don't show keyword nodes // don't show keyword nodes
if CodeNode.Desc in [ctnIdentifier,ctnRangedArrayType, if CodeNode.Desc in [ctnIdentifier,ctnRangedArrayType,
ctnOpenArrayType,ctnOfConstType,ctnRangeType,ctnTypeType,ctnFileType, ctnOpenArrayType,ctnOfConstType,ctnRangeType,ctnTypeType,ctnFileType,
ctnVariantType] ctnVariantType,ctnEnumerationType,ctnSetType,ctnProcedureType]
then then
ShowNode:=false; ShowNode:=false;
@ -605,20 +605,24 @@ begin
// category mode: put nodes in categories // category mode: put nodes in categories
Category:=cecNone; Category:=cecNone;
case CodeNode.Desc of if (CodeNode.Parent=nil)
ctnUsesSection: Category:=cecUses; or (CodeNode.Parent.Desc in [ctnInterface,ctnImplementation])
ctnTypeDefinition,ctnGenericType: Category:=cecTypes; or (CodeNode.Parent.Parent=nil)
ctnVarDefinition: Category:=cecVariables; or (CodeNode.Parent.Parent.Desc in [ctnInterface,ctnImplementation]) then
ctnConstDefinition: Category:=cecConstants; begin
ctnProcedure: Category:=cecProcedures; // top level definition
ctnProperty: case CodeNode.Desc of
if (CodeNode.Parent=nil) ctnUsesSection: Category:=cecUses;
or (CodeNode.Parent.Desc in [ctnInterface,ctnImplementation]) then ctnTypeDefinition,ctnGenericType: Category:=cecTypes;
Category:=cecProperties; ctnVarDefinition: Category:=cecVariables;
ctnConstDefinition: Category:=cecConstants;
ctnProcedure: Category:=cecProcedures;
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;
ShowChilds:=false; ShowChilds:=CodeNode.Desc in [ctnTypeDefinition,ctnGenericType];
if ShowNode then begin if ShowNode then begin
if fCategoryNodes[Category]=nil then begin if fCategoryNodes[Category]=nil then begin
NodeData:=TViewNodeData.Create(CodeNode.Parent); NodeData:=TViewNodeData.Create(CodeNode.Parent);