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

SynEdit: fixed wrong (to big) text-len in TSynEditMarkupHighlightAllMulti

Browse Source
This commit is contained in:
Martin 2023-09-07 16:07:30 +02:00
parent 897a4db3df
commit d23a06285b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/syneditmarkuphighall.pp
View File

@ -1511,6 +1511,8 @@ begin
LineTextLower := LowerCase(LineText);
LineLen := Min(Length(LineTextLower), AEndPoint.x-1);
if AEndPoint.X <= LineLen then
LineLen := AEndPoint.x - 1;
if (AStartPoint.y = AEndPoint.y) and (AStartPoint.x > 1) then begin
x := AStartPoint.x - 1;
LineLen := Max(0, LineLen - x);
@ -1549,7 +1551,7 @@ begin
LineText := Lines[AStartPoint.y-1];
LineTextLower := LowerCase(LineText);
LineLen := Length(LineTextLower);
LineLen := Length(LineTextLower) + 1 - AStartPoint.x;
if AStartPoint.y = AEndPoint.y then
LineLen := Min(LineLen, AEndPoint.x - AStartPoint.x + 1);