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

IDE: codeexplorer: hide constants

Browse Source 
git-svn-id: trunk@30428 -
This commit is contained in:
mattias 2011-04-22 15:50:17 +00:00
parent 72ce7a70f6
commit 3927cd86b3
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/codeexplorer.pas
View File

@ -845,14 +845,13 @@ begin
ShowChilds:=false;
end;
// don't show End.
if CodeNode.Desc=ctnEndPoint then
// don't show special nodes
if CodeNode.Desc in [ctnEndPoint,ctnConstant,ctnIdentifier] then
ShowNode:=false;
// don't show class visibility section nodes
if (CodeNode.Desc in AllClassSections) then begin
if (CodeNode.Desc in AllClassSections) then
ShowNode:=false;
end;
if Mode=cemCategory then begin
// don't show method bodies