From 3ea51f22b2f148d19f3ba003e8c9842d827be480 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 8 Jan 2015 11:23:07 +0000
Subject: [PATCH] fpspreadsheet: Avoid TsWorkbookChartSource ignoring series
 color.

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

diff --git a/components/fpspreadsheet/fpspreadsheetchart.pas b/components/fpspreadsheet/fpspreadsheetchart.pas
index a47b15841..1a65a204e 100644
--- a/components/fpspreadsheet/fpspreadsheetchart.pas
+++ b/components/fpspreadsheet/fpspreadsheetchart.pas
@@ -365,6 +365,7 @@ var
 begin
   GetXYItem(rngX, AIndex, FCurItem.X, FCurItem.Text);
   GetXYItem(rngY, AIndex, FCurItem.Y, dummy);
+  FCurItem.Color := clDefault;
   Result := @FCurItem;
 end;