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

SynEdit: fixed space-trimmer. Don't mark as changed when lock did not make changes.

Browse Source
This commit is contained in:
Martin 2024-01-21 00:33:33 +01:00
parent c4483bf7f4
commit 09b29a5e63
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/synedittexttrimmer.pas
View File

@ -770,6 +770,7 @@ procedure TSynEditStringTrimmingList.TrimAfterLock;
var
i, index, slen: Integer;
ltext: String;
Changed: Boolean;
begin
if (not fEnabled) then exit;
FIsTrimming := True;
@ -788,8 +789,7 @@ begin
IncViewChangeStamp;
FIsTrimming := True;
BeginUpdate;
if fLockList.Count > 0 then
IncViewChangeStamp;
Changed := False;
try
for i := 0 to fLockList.Count-1 do begin
index := fLockList.Entries[i].LineIndex;
@ -799,9 +799,12 @@ begin
// TODO: Avoid triggering the highlighter
NextLines[index] := ltext; // trigger OnPutted, so the line gets repainted
MaybeAddUndoForget(Index+1, fLockList.Entries[i].TrimmedSpaces);
Changed := True;
end;
end;
finally
if Changed then
IncViewChangeStamp;
EndUpdate;
FIsTrimming := False;
end;