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

IDE: code observer: unsorted class visibility: ignore first published class section

Browse Source 
git-svn-id: trunk@19749 -
This commit is contained in:
mattias 2009-05-01 18:28:33 +00:00
parent bf401e3e3b
commit d3391736dc
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/codeexplorer.pas
View File

@ -910,6 +910,7 @@ begin
try
while CodeNode<>nil do begin
case CodeNode.Desc of
ctnBeginBlock:
begin
if (CodeNode.SubDesc and ctnsNeedJITParsing)<>0 then
@ -1015,8 +1016,9 @@ begin
and (CodeNode.PriorBrother.Desc>CodeNode.Desc)
then begin
if (CodeNode.PriorBrother.Desc=ctnClassPublished)
and (CodeNode.PriorBrother.PriorBrother=nil) then
begin
and ((CodeNode.PriorBrother.PriorBrother=nil)
or (not (CodeNode.PriorBrother.PriorBrother.Desc in AllClassBaseSections)))
then begin
// the first section can be published
end else begin
// the prior section was more visible