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

SynEdit: SynEditMarkupHighAll, remove unused code

Browse Source
This commit is contained in:
Martin 2024-04-24 23:51:51 +02:00
parent 78cf30a16a
commit e80bce48a4
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/synedit/syneditmarkuphighall.pp
View File

@ -2025,25 +2025,12 @@ var
);
end;
function HasInvalidationBetween(ARangeStart, ARangeEnd: TPoint): Boolean; // Check if point is in invalid range
begin
Result :=
((FFirstInvalidLine >= ARangeStart.y) and (FFirstInvalidLine <= ARangeEnd.y)) or
((FLastInvalidLine >= ARangeStart.y) and (FLastInvalidLine <= ARangeEnd.y));
end;
function IsStartAtMatch0: Boolean; // Check if FStartPoint = FMatches[0]
begin
Result := (FMatches.Count > 0) and
(FStartPoint.y = FMatches.StartPoint[0].y)and (FStartPoint.x = FMatches.StartPoint[0].x);
end;
function IsEndAtMatch(APoint: TPoint): Boolean;
begin
Result := (FMatches.Count > 0) and
(APoint.y = FMatches.EndPoint[FMatches.Count].y)and (APoint.x = FMatches.EndPoint[FMatches.Count].x);
end;
function AdjustedSearchStrMaxLines: Integer;
begin
Result := SearchStringMaxLines - 1;