paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 01:40:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: class completion: fixed FindInsertPointForNewClass empty implementation

Browse Source 
git-svn-id: trunk@28322 -
This commit is contained in:
mattias 2010-11-18 18:19:12 +00:00
parent 319aa319a8
commit fe1d763b7d
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/codetools/codecompletiontool.pas
View File

@ -6636,13 +6636,15 @@ var
if (ImplementationNode.FirstChild=nil)
or (ImplementationNode.FirstChild.Desc=ctnBeginBlock) then begin
Indent:=GetLineIndent(Src,ImplementationNode.StartPos);
InsertPos:=ImplementationNode.EndPos
InsertPos:=ImplementationNode.EndPos;
exit;
end;
StartSearchProc:=ImplementationNode.FirstChild;
end else begin
// class is not in interface section
StartSearchProc:=CodeCompleteClassNode;
while StartSearchProc.Desc<>ctnTypeSection do
while (StartSearchProc.Parent<>nil)
and (StartSearchProc.Desc<>ctnTypeSection) do
StartSearchProc:=StartSearchProc.Parent;
end;
case ASourceChangeCache.BeautifyCodeOptions.ForwardProcBodyInsertPolicy of
@ -6674,7 +6676,9 @@ var
// Try to insert new proc behind existing methods
// find last method (go to last brother and search backwards)
NearestProcNode:=StartSearchProc.Parent.LastChild;
if (StartSearchProc<>nil)
and (StartSearchProc.Parent<>nil) then
NearestProcNode:=StartSearchProc.Parent.LastChild;
while (NearestProcNode<>nil) and (not NodeIsMethodBody(NearestProcNode)) do
NearestProcNode:=NearestProcNode.PriorBrother;
if NearestProcNode<>nil then begin
@ -6685,7 +6689,9 @@ var
end;
// Default position: Insert behind last node
NearestProcNode:=StartSearchProc.Parent.LastChild;
if (StartSearchProc<>nil)
and (StartSearchProc.Parent<>nil) then
NearestProcNode:=StartSearchProc.Parent.LastChild;
if NearestProcNode<>nil then begin
Indent:=0;
InsertPos:=FindLineEndOrCodeAfterPosition(NearestProcNode.EndPos);