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

SynEdit: speed up large operations (search replace)

Browse Source 
git-svn-id: trunk@43763 -
This commit is contained in:
martin 2014-01-18 19:01:23 +00:00
parent a586b848df
commit d57a4a302e
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/synedit/syneditpointclasses.pas
View File

@ -1518,9 +1518,21 @@ begin
end; end;
procedure TSynEditSelection.LineChanged(Sender: TSynEditStrings; AIndex, ACount: Integer); procedure TSynEditSelection.LineChanged(Sender: TSynEditStrings; AIndex, ACount: Integer);
var
i, i2: Integer;
begin begin
if (FCaret <> nil) and (not FCaret.AllowPastEOL) and (not FIsSettingText) then if (FCaret <> nil) and (not FCaret.AllowPastEOL) and (not FIsSettingText) then begin
AdjustAfterTrimming; i := ToPos(AIndex);
i2 := i + ACount - 1;
//AdjustAfterTrimming;
if (FStartLinePos >= i) and (FStartLinePos <= i2) then
if FStartBytePos > Length(FLines[FStartLinePos-1]) + 1 then
FStartBytePos := Length(FLines[FStartLinePos-1]) + 1;
if (FEndLinePos >= i) and (FEndLinePos <= i2) then
if FEndBytePos > Length(FLines[FEndLinePos-1]) + 1 then
FEndBytePos := Length(FLines[FEndLinePos-1]) + 1;
end;
end; end;
procedure TSynEditSelection.DoLinesEdited(Sender: TSynEditStrings; aLinePos, aBytePos, aCount, procedure TSynEditSelection.DoLinesEdited(Sender: TSynEditStrings; aLinePos, aBytePos, aCount,