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

SynEdit: fix painting gutter-part with margin. Issue #41638

Browse Source 
(cherry picked from commit 34541a9c02)
This commit is contained in:
Martin 2025-05-15 10:46:22 +02:00
parent e0d7bc66c9
commit 3c988b0ed8
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syngutterbase.pp
View File

@ -921,6 +921,8 @@ begin
( (MarkupInfoCurLineMerged.Background = clNone) or (CaretRow < 0))
then
begin
AClip.Left := AClip.Left + FLeftOffset;
AClip.Right := AClip.Right - FRightOffset;
Paint(Canvas, AClip, FirstLine, LastLine);
exit;
end;