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

IDE: codeexplorer figure mpety class sections: ignore first published

Browse Source 
git-svn-id: trunk@19468 -
This commit is contained in:
mattias 2009-04-17 11:20:36 +00:00
parent a4a1f193d8
commit 803eb781be
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/codeexplorer.pas
View File

@ -966,7 +966,7 @@ begin
CheckUnsortedClassMembers(CodeNode); CheckUnsortedClassMembers(CodeNode);
if (cefcEmptyClassSections in Figures) and if (cefcEmptyClassSections in Figures) and
(CodeNode.FirstChild=nil) and (CodeNode.FirstChild=nil) and
((CodeNode.Desc <> ctnClassPublished) or (CodeNode.EndPos - CodeNode.StartPos > 7)) then ((CodeNode.Desc <> ctnClassPublished) or (CodeNode.PriorBrother<>nil)) then
begin begin
// empty class section // empty class section
AddCodeNode(cefcEmptyClassSections,CodeNode); AddCodeNode(cefcEmptyClassSections,CodeNode);