paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 08:59:13 +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);
if (cefcEmptyClassSections in Figures) and
(CodeNode.FirstChild=nil) and
((CodeNode.Desc <> ctnClassPublished) or (CodeNode.EndPos - CodeNode.StartPos > 7)) then
((CodeNode.Desc <> ctnClassPublished) or (CodeNode.PriorBrother<>nil)) then
begin
// empty class section
AddCodeNode(cefcEmptyClassSections,CodeNode);