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

fixed code completion, when cursor in forward proc head

Browse Source 
git-svn-id: trunk@3148 -
This commit is contained in:
mattias 2002-08-18 16:50:00 +00:00
parent 03c5f31679
commit 6cf183e85d
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/codetools/codecompletiontool.pas
View File

@ -2365,8 +2365,8 @@ begin
Result:=false;
if (SourceChangeCache=nil) then
RaiseException('need a SourceChangeCache');
// in a class or in a forward proc?
BuildTreeAndGetCleanPos(trAll,CursorPos, CleanCursorPos,[]);
// find CodeTreeNode at cursor
CursorNode:=FindDeepestNodeAtPos(CleanCursorPos,true);
CodeCompleteSrcChgCache:=SourceChangeCache;
@ -2389,9 +2389,12 @@ begin
{$ENDIF}
// test if forward proc
ProcNode:=CursorNode;
if ProcNode.Desc=ctnProcedureHead then ProcNode:=ProcNode.Parent;
if (ProcNode.Desc=ctnProcedure)
ProcNode:=CursorNode.GetNodeOfType(ctnProcedureHead);
if ProcNode<>nil then
ProcNode:=ProcNode.Parent;
if (ProcNode=nil) and (CursorNode.Desc=ctnProcedure) then
ProcNode:=CursorNode;
if (ProcNode<>nil) and (ProcNode.Desc=ctnProcedure)
and ((ProcNode.SubDesc and ctnsForwardDeclaration)>0) then begin
// Node is forward Proc
CompleteForwardProc;