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

codetools: identifier completion: fixed line index

Browse Source 
git-svn-id: trunk@22519 -
This commit is contained in:
mattias 2009-11-10 12:14:19 +00:00
parent e50ada8891
commit 0fd3251391
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/identcompletiontool.pas
View File

@ -1514,7 +1514,8 @@ begin
// get identifier position // get identifier position
GetIdentStartEndAtPosition(Src,CleanCursorPos,IdentStartPos,IdentEndPos); GetIdentStartEndAtPosition(Src,CleanCursorPos,IdentStartPos,IdentEndPos);
if CursorPos.X>CursorPos.Code.GetLineLength(CursorPos.Y)+1 then //DebugLn(['TIdentCompletionTool.ParseSourceTillCollectionStart ',dbgstr(copy(Src,IdentStartPos,10)),' CursorPos.X=',CursorPos.X,' LineLen=',CursorPos.Code.GetLineLength(CursorPos.Y-1),' ',CursorPos.Code.getline(CursorPos.Y-1)]);
if CursorPos.X>CursorPos.Code.GetLineLength(CursorPos.Y-1)+1 then
IdentStartPos:=IdentEndPos; IdentStartPos:=IdentEndPos;
end; end;
@ -1552,7 +1553,7 @@ procedure TIdentCompletionTool.FindCollectionContext(
MoveCursorToCleanPos(IdentStartPos); MoveCursorToCleanPos(IdentStartPos);
ReadPriorAtom; ReadPriorAtom;
if (CurPos.Flag=cafPoint) if (CurPos.Flag=cafPoint)
or (UpAtomIs('INHERITED')) then begin or UpAtomIs('INHERITED') then begin
Result:=FindStartOfTerm(IdentStartPos,NodeTermInType(ContextNode)); Result:=FindStartOfTerm(IdentStartPos,NodeTermInType(ContextNode));
if Result<ContextNode.StartPos then if Result<ContextNode.StartPos then
Result:=ContextNode.StartPos; Result:=ContextNode.StartPos;