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

SynEdit: optimize status-events

Browse Source
This commit is contained in:
Martin 2025-01-24 11:26:12 +01:00
parent 7c69859cf3
commit 33ea43b9e4
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedit.pp
View File

@ -5060,12 +5060,16 @@ end;
procedure TCustomSynEdit.SynSetText(const Value: string);
begin
IncStatusChangeLock; // can affect width (via gutter) and caret
FLines.Text := Value;
DecStatusChangeLock;
end;
procedure TCustomSynEdit.RealSetText(const Value: TCaption);
begin
IncStatusChangeLock; // can affect width (via gutter) and caret
FLines.Text := Value; // Do not trim
DecStatusChangeLock;
end;
function TCustomSynEdit.CurrentMaxTopView: Integer;