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

codetools: class completion: fixed add to published section

Browse Source 
git-svn-id: trunk@22059 -
This commit is contained in:
mattias 2009-10-06 17:37:56 +00:00
parent 96b6819584
commit 9f47216bff
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/codecompletiontool.pas
View File

@ -5184,7 +5184,9 @@ begin
ReadNextAtom;
if UpAtomIs('STRICT') then
ReadNextAtom;
InsertPos:=CurPos.EndPos;
ANode:=ClassSectionNode.Next;
if (ANode<>nil) and (CurPos.EndPos<=ANode.StartPos) then
InsertPos:=CurPos.EndPos;
end else if ClassSectionNode.Desc in AllClassInterfaces then begin
// skip class interface header
MoveCursorToCleanPos(InsertPos);