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

IDE: code explorer: show sub nodes

Browse Source 
git-svn-id: trunk@29978 -
This commit is contained in:
mattias 2011-03-21 21:31:14 +00:00
parent 265f94e8af
commit eace1cdf6c
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/codeexplorer.pas
View File

@ -762,9 +762,11 @@ begin
if CodeNode.Desc in [ctnIdentifier,ctnRangedArrayType, if CodeNode.Desc in [ctnIdentifier,ctnRangedArrayType,
ctnOpenArrayType,ctnOfConstType,ctnRangeType,ctnTypeType,ctnFileType, ctnOpenArrayType,ctnOfConstType,ctnRangeType,ctnTypeType,ctnFileType,
ctnVariantType,ctnEnumerationType,ctnSetType,ctnProcedureType] ctnVariantType,ctnEnumerationType,ctnSetType,ctnProcedureType]
then then begin
ShowNode:=false; ShowNode:=false;
ShowChilds:=false;
end;
// don't show End. // don't show End.
if CodeNode.Desc=ctnEndPoint then if CodeNode.Desc=ctnEndPoint then
ShowNode:=false; ShowNode:=false;
@ -820,7 +822,6 @@ begin
end; end;
end else begin end else begin
// not a top level node // not a top level node
ShowNode:=false;
end; end;
//DebugLn(['TCodeExplorerView.CreateNodes ',CodeNode.DescAsString,' ShowNode=',ShowNode,' ShowChilds=',ShowChilds]); //DebugLn(['TCodeExplorerView.CreateNodes ',CodeNode.DescAsString,' ShowNode=',ShowNode,' ShowChilds=',ShowChilds]);
end; end;