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

codetools: class completion: support strict private

Browse Source 
git-svn-id: trunk@22049 -
This commit is contained in:
mattias 2009-10-05 22:10:35 +00:00
parent 14f7ff3b26
commit d03a9eea81
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/codecompletiontool.pas
View File

@ -5177,10 +5177,14 @@ begin
Indent:=GetLineIndent(Src,ClassSectionNode.StartPos)
+ASourceChangeCache.BeautifyCodeOptions.Indent;
InsertPos:=ClassSectionNode.StartPos;
if (ClassSectionNode.Desc in AllClassBaseSections)
or (ClassSectionNode.Desc in AllClassTypeSections) then begin
if (ClassSectionNode.Desc in (AllClassBaseSections+AllClassTypeSections))
then begin
// skip keyword
inc(InsertPos,GetIdentLen(@Src[InsertPos]));
MoveCursorToCleanPos(InsertPos);
ReadNextAtom;
if UpAtomIs('STRICT') then
ReadNextAtom;
InsertPos:=CurPos.EndPos;
end else if ClassSectionNode.Desc in AllClassInterfaces then begin
// skip class interface header
MoveCursorToCleanPos(InsertPos);