From 282f0a29fe0a8baae468cf6b5745f9f3caf7be94 Mon Sep 17 00:00:00 2001
From: Jesus Reyes A <jesusrmx@gmail.com>
Date: Sat, 4 Sep 2021 19:04:07 -0500
Subject: [PATCH] LCL: grids: enable ellipsis editor color.

---
 lcl/grids.pas | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index 35ab50bfc7..bbdf40314b 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -302,7 +302,7 @@ type
     ActiveControl: boolean;
   end;
 
-  TCompositeCellEditor = class(TWinControl)
+  TCompositeCellEditor = class(TCustomControl)
   private
     FGrid: TCustomGrid;
     FCol,FRow: Integer;
@@ -324,6 +324,7 @@ type
     function GetActiveControl: TWinControl;
     procedure VisibleChanging; override;
     function  SendChar(AChar: TUTF8Char): Integer;
+    procedure SetColor(Value: TColor); override;
     procedure WndProc(var TheMessage : TLMessage); override;
     procedure CustomAlignPosition(AControl: TControl; var ANewLeft, ANewTop, ANewWidth,
       ANewHeight: Integer; var AlignRect: TRect; AlignInfo: TAlignInfo); override;
@@ -13716,6 +13717,16 @@ begin
   end;
 end;
 
+procedure TCompositeCellEditor.SetColor(Value: TColor);
+var
+  activeCtrl: TWinControl;
+begin
+  inherited SetColor(Value);
+  activeCtrl := ActiveControl;
+  if activeCtrl<>nil then
+    activeCtrl.Color := Value;
+end;
+
 destructor TCompositeCellEditor.Destroy;
 begin
   SetLength(FEditors, 0);