diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index a07d582162..b4694387eb 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -5065,17 +5065,6 @@ begin
         // check highlight attribute
         aha := CurMarks[i].LineColorAttrib;
         if aha <> ahaNone then Break;
-
-        // check custom colors
-        CurFG := CurMarks[i].LineColorForeGround;
-        CurBG := CurMarks[i].LineColorBackGround;
-        if (CurFG <> clNone) or (CurBG <> clNone) then
-        begin
-          Markup.Foreground := CurFG;
-          Markup.Background := CurBG;
-          Special := True;
-          break;
-        end;
       end;
       // clean up
       FreeMem(CurMarks);
diff --git a/ide/sourcemarks.pas b/ide/sourcemarks.pas
index 1bb0fbfd3c..05d3017e74 100644
--- a/ide/sourcemarks.pas
+++ b/ide/sourcemarks.pas
@@ -141,8 +141,6 @@ type
   private
     FIsBreakPoint: boolean;
     FLineColorAttrib: TAdditionalHilightAttribute;
-    FLineColorBackGround: TColor;
-    FLineColorForeGround: TColor;
   protected
     procedure DoChange(AChanges: TSynEditMarkChangeReasons); override;
     procedure AddHandler(HandlerType: TSourceMarkHandler;
@@ -153,8 +151,6 @@ type
     procedure SetData(const AValue: TObject); virtual;
     procedure SetIsBreakPoint(const AValue: boolean); virtual;
     procedure SetLineColorAttrib(const AValue: TAdditionalHilightAttribute); virtual;
-    procedure SetLineColorBackGround(const AValue: TColor); virtual;
-    procedure SetLineColorForeGround(const AValue: TColor); virtual;
 
     procedure SetColumn(const Value: Integer); override;
     procedure SetLine(const Value: Integer); override;
@@ -188,10 +184,6 @@ type
   public
     property LineColorAttrib: TAdditionalHilightAttribute read FLineColorAttrib
                                                        write SetLineColorAttrib;
-    property LineColorForeGround: TColor read FLineColorForeGround
-                                         write SetLineColorForeGround;
-    property LineColorBackGround: TColor read FLineColorBackGround
-                                         write SetLineColorBackGround;
   public
     property IsBreakPoint: boolean read FIsBreakPoint write SetIsBreakPoint;
   end;
@@ -329,22 +321,6 @@ begin
   Changed;
 end;
 
-procedure TSourceMark.SetLineColorBackGround(const AValue: TColor);
-begin
-  if FLineColorBackGround=AValue then exit;
-  FLineColorBackGround:=AValue;
-  DoLineUpdate;
-  Changed;
-end;
-
-procedure TSourceMark.SetLineColorForeGround(const AValue: TColor);
-begin
-  if FLineColorForeGround=AValue then exit;
-  FLineColorForeGround:=AValue;
-  DoLineUpdate;
-  Changed;
-end;
-
 procedure TSourceMark.SetLineColorAttrib(
   const AValue: TAdditionalHilightAttribute);
 begin
@@ -422,8 +398,6 @@ begin
   inherited Create(TSynEdit(TheOwner.EditorControl));
   FData:=TheData;
   FLineColorAttrib:=ahaNone;
-  FLineColorBackGround:=clNone;
-  FLineColorForeGround:=clNone;
   TSynEdit(TheOwner.EditorControl).Marks.Add(Self);
 end;