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

codetools: CleanPosToCaret now returns false if Buffer.IsDeleted

Browse Source 
git-svn-id: trunk@19180 -
This commit is contained in:
mattias 2009-04-01 12:27:38 +00:00
parent 7fb37b5564
commit 804c85d283
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/customcodetool.pas
View File

@ -2198,6 +2198,7 @@ begin
Result:=Scanner.CleanedPosToCursor(CleanPos,p,Code);
if Result then begin
Caret.Code:=TCodeBuffer(Code);
if Caret.Code.IsDeleted then exit(false);
TCodeBuffer(Code).AbsoluteToLineCol(p,Caret.Y,Caret.X);
Result:=(Caret.Y>=0);
end;