paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 01:28:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: codeexplorer: show initialization/finalization in source nodes, issue #33646

Browse Source 
git-svn-id: trunk@57692 -
This commit is contained in:
mattias 2018-04-24 20:24:14 +00:00
parent d7f2afdc7f
commit 545e33e8c9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/codeexplorer.pas
View File

@ -997,7 +997,8 @@ begin
CurParentViewNode:=ParentViewNode;
// don't show statements
if (CodeNode.Desc in AllPascalStatements+[ctnParameterList]) then begin
if (CodeNode.Desc in AllPascalStatements+[ctnParameterList]-
[ctnInitialization,ctnFinalization]) then begin
ShowNode:=false;
ShowChilds:=false;
end;