From b8f54da212399e1988dc99cf666b18679b105421 Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Sun, 24 Jun 2012 21:06:50 +0000
Subject: [PATCH] TAChart: Fix AV when clearing Series.Styles and
 TColorMapSeries.ColorSource properties

git-svn-id: trunk@37770 -
---
 components/tachart/tacustomseries.pas | 3 ++-
 components/tachart/tafuncseries.pas   | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/components/tachart/tacustomseries.pas b/components/tachart/tacustomseries.pas
index b14db418e1..c73b0e3c07 100644
--- a/components/tachart/tacustomseries.pas
+++ b/components/tachart/tacustomseries.pas
@@ -835,7 +835,8 @@ begin
   if FStylesListener.IsListening then
     Styles.Broadcaster.Unsubscribe(FStylesListener);
   FStyles := AValue;
-  Styles.Broadcaster.Subscribe(FStylesListener);
+  if Styles <> nil then
+    Styles.Broadcaster.Subscribe(FStylesListener);
   UpdateParentChart;
 end;
 
diff --git a/components/tachart/tafuncseries.pas b/components/tachart/tafuncseries.pas
index 6bdcf7d89e..7d0934134c 100644
--- a/components/tachart/tafuncseries.pas
+++ b/components/tachart/tafuncseries.pas
@@ -1522,7 +1522,8 @@ begin
   if FColorSourceListener.IsListening then
     ColorSource.Broadcaster.Unsubscribe(FColorSourceListener);
   FColorSource := AValue;
-  ColorSource.Broadcaster.Subscribe(FColorSourceListener);
+  if ColorSource <> nil then
+    ColorSource.Broadcaster.Subscribe(FColorSourceListener);
   UpdateParentChart;
 end;