From a89357d5597cb743ab9a5e19ee3907a83f71ccc2 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 25 Apr 2023 20:14:36 +0000
Subject: [PATCH] fpspreadsheet: Use cell background in TsWorksheetGrid's cell
 editor.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8809 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
index b67ea3970..63a6f710a 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
@@ -2112,6 +2112,7 @@ begin
     if not odd(FSelPen.Width) then dec(Rct.Left);
     Editor.Font := CellFont[Col, Row];
     Editor.Font.Height := Round(Font.Height * ZoomFactor);
+    Editor.Color := BackgroundColor[Col, Row];
     Editor.SetBounds(Rct.Left, Rct.Top, Rct.Right-Rct.Left-1, Rct.Bottom-Rct.Top-1);
   end;
 end;