paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 14:47:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Optimization for same-word highlighter

Browse Source 
git-svn-id: trunk@39547 -
This commit is contained in:
martin 2012-12-15 03:39:10 +00:00
parent 65f8b4e839
commit d610f90bf7
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/synedit/syneditmarkuphighall.pp
View File

@ -411,9 +411,38 @@ end;
procedure TSynEditMarkupHighlightAll.FindStartPoint;
var
ptStart, ptEnd, ptFoundStart, ptFoundEnd: TPoint;
i, j: Integer;
begin
if fSearchString = '' then exit;
if (ssoWholeWord in fSearchOptions) and (not HideSingleMatch) then begin
// can not wrap around lines
fStartPoint := Point(1, TopLine);
exit;
end;
if (fSearchOptions * [ssoRegExpr, ssoRegExprMultiLine] = []) and
(not HideSingleMatch)
then begin
// can not wrap around lines
j := 0;
i := Length(fSearchString);
while i > 0 do begin
if fSearchString[i] = #13 then begin
inc(j);
if (i > 1) and (fSearchString[i-1] = #10) then dec(i); // skip alternating
end
else
if fSearchString[i] = #10 then begin
inc(j);
if (i > 1) and (fSearchString[i-1] = #13) then dec(i); // skip alternating
end;
dec(i);
end;
fStartPoint := Point(1, Max(1, TopLine - j));
exit;
end;
FindInitialize(true);
ptStart := Point(1, Max(1, TopLine-100));
ptEnd.Y := TopLine;