paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 10:39:20 +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
This commit is contained in:
Martin 2025-05-06 10:09:05 +02:00
parent b8bd7e510b
commit 5ede412c0d
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

@ -7886,6 +7886,8 @@ begin
SetGutterColorByClass(ahaModifiedLine, TSynGutterChanges); SetGutterColorByClass(ahaModifiedLine, TSynGutterChanges);
SetGutterColorByClass(ahaCodeFoldingTree, TSynGutterCodeFolding); SetGutterColorByClass(ahaCodeFoldingTree, TSynGutterCodeFolding);
SetGutterColorByClass(ahaGutterSeparator, TSynGutterSeparator); 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]; Attri := AttributeByEnum[ahaCodeFoldingTreeCurrent];
if Attri <> nil then begin if Attri <> nil then begin
if ASynEdit.Gutter.Parts.ByClass[TSynGutterCodeFolding,0] <> nil then if ASynEdit.Gutter.Parts.ByClass[TSynGutterCodeFolding,0] <> nil then