From b0da20f06819f1e79ba2b9d21a56d0c6d69ef32f Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Thu, 15 Apr 2021 02:36:37 +0200
Subject: [PATCH] refact setter used to set the gutter color

so that it doeds not rely on default gutter parts
---
 src/u_synmemo.pas | 24 ++++++++----------------
 1 file changed, 8 insertions(+), 16 deletions(-)

diff --git a/src/u_synmemo.pas b/src/u_synmemo.pas
index 293e9ed9..8b3956ca 100644
--- a/src/u_synmemo.pas
+++ b/src/u_synmemo.pas
@@ -1252,26 +1252,18 @@ begin
 end;
 
 procedure TDexedMemo.setGutterTransparent(value: boolean);
+var
+  i: integer;
+  c: TColor;
 begin
   fTransparentGutter:=value;
   if fTransparentGutter then
-  begin
-    Gutter.LineNumberPart.MarkupInfo.Background:= Color;
-    Gutter.SeparatorPart.MarkupInfo.Background:= Color;
-    Gutter.MarksPart.MarkupInfo.Background:= Color;
-    Gutter.ChangesPart.MarkupInfo.Background:= Color;
-    Gutter.CodeFoldPart.MarkupInfo.Background:= Color;
-    Gutter.Color:=Color;
-  end
+    c := color
   else
-  begin
-    Gutter.LineNumberPart.MarkupInfo.Background:= clBtnFace;
-    Gutter.SeparatorPart.MarkupInfo.Background:= clBtnFace;
-    Gutter.MarksPart.MarkupInfo.Background:= clBtnFace;
-    Gutter.ChangesPart.MarkupInfo.Background:= clBtnFace;
-    Gutter.CodeFoldPart.MarkupInfo.Background:= clBtnFace;
-    Gutter.Color:=clBtnFace;
-  end;
+    c := clBtnFace;
+  for i := 0 to Gutter.Parts.Count - 1 do
+    gutter.Parts.Part[i].MarkupInfo.Background := c;
+  gutter.Color:=c;
 end;
 
 procedure TDexedMemo.setDefaultFontSize(value: Integer);