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

codetools: code completion: if cursor in interface search nearest node in front and same line

Browse Source 
git-svn-id: trunk@50003 -
This commit is contained in:
mattias 2015-10-08 17:04:49 +00:00
parent 1152bfdc38
commit 580b22f36e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/codecompletiontool.pas
View File

@ -9145,11 +9145,13 @@ begin
// test if forward proc // test if forward proc
//debugln('TCodeCompletionCodeTool.CompleteCode ',CursorNode.DescAsString); //debugln('TCodeCompletionCodeTool.CompleteCode ',CursorNode.DescAsString);
if CursorNode.Desc = ctnInterface then if CursorNode.Desc = ctnInterface then
begin//Search nearest (to the left) CursorNode if we are within interface section begin
//Search nearest (to the left) CursorNode if we are within interface section
CursorNode := CursorNode.LastChild; CursorNode := CursorNode.LastChild;
while Assigned(CursorNode) and (CursorNode.StartPos > CleanCursorPos) do while Assigned(CursorNode) and (CursorNode.StartPos > CleanCursorPos) do
CursorNode := CursorNode.PriorBrother; CursorNode := CursorNode.PriorBrother;
if CursorNode=nil then if (CursorNode=nil)
or (not PositionsInSameLine(Src,CursorNode.EndPos,CleanCursorPos)) then
CursorNode:=FCompletingCursorNode; CursorNode:=FCompletingCursorNode;
end; end;
ProcNode:=CursorNode.GetNodeOfType(ctnProcedure); ProcNode:=CursorNode.GetNodeOfType(ctnProcedure);