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

@@ -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;