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

IDE: fix color setting for "marks-gutter-part". It needs to be painted in "parent" (gutter) background color. Issue #41616

Browse Source 
(cherry picked from commit 5ede412c0d)
This commit is contained in:
Martin 2025-05-06 10:09:05 +02:00
parent e4f608ee2f
commit b2925dfc01
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/editoroptions.pp
View File

@ -7637,6 +7637,8 @@ begin
SetGutterColorByClass(ahaModifiedLine, TSynGutterChanges);
SetGutterColorByClass(ahaCodeFoldingTree, TSynGutterCodeFolding);
SetGutterColorByClass(ahaGutterSeparator, TSynGutterSeparator);
if assigned(ASynEdit.Gutter.Parts.ByClass[TSynGutterMarks, 0]) then
ASynEdit.Gutter.Parts.ByClass[TSynGutterMarks, 0].MarkupInfo.Clear; // always use gutter color for marks
Attri := AttributeByEnum[ahaCodeFoldingTreeCurrent];
if Attri <> nil then begin
if ASynEdit.Gutter.Parts.ByClass[TSynGutterCodeFolding,0] <> nil then