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

SynEdit: prevent crash, when deleting lines which have a mark

Browse Source 
git-svn-id: trunk@28129 -
This commit is contained in:
martin 2010-11-07 19:16:04 +00:00
parent 82e943fc36
commit 37980ef821
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/synedit/syneditmarks.pp
View File

@ -1118,7 +1118,7 @@ procedure TSynEditMarkList.DoLinesEdited(Sender: TSynEditStrings; aLinePos, aByt
aLineBrkCnt: Integer; aText: String);
var
i: Integer;
CurLine: TSynEditMarkLine;
CurLine, NextLine: TSynEditMarkLine;
LinePos, LineBSize: Integer;
f: Boolean;
Mrk: TSynEditMark;
@ -1151,6 +1151,7 @@ begin
if (LinePos = aLinePos) then
CurLine := TSynEditMarkLine(CurLine.Successor(LinePos, LineBSize));
while (CurLine <> nil) and (LinePos <= aLinePos - aLineBrkCnt) do begin
NextLine := TSynEditMarkLine(CurLine.Successor(LinePos, LineBSize));
f := LinePos = aLinePos - aLineBrkCnt;
i := CurLine.Count - 1;
while i >= 0 do begin
@ -1162,7 +1163,7 @@ begin
Mrk.Column := aBytePos; // or delete ?
dec(i);
end;
CurLine := TSynEditMarkLine(CurLine.Successor(LinePos, LineBSize));
CurLine := NextLine;
end;
if CurLine <> nil then FInternalIterator.GotoMark(CurLine[0]); // TODO: better notification system
FMarkLines.AdjustForLinesDeleted(aLinePos + 1, -aLineBrkCnt);