paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 20:50:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix AV when clearing Series.Styles and TColorMapSeries.ColorSource properties

Browse Source 
git-svn-id: trunk@37770 -
This commit is contained in:
ask 2012-06-24 21:06:50 +00:00
parent 8f09d13055
commit b8f54da212
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/tachart/tacustomseries.pas
View File

@ -835,6 +835,7 @@ begin
if FStylesListener.IsListening then
Styles.Broadcaster.Unsubscribe(FStylesListener);
FStyles := AValue;
if Styles <> nil then
Styles.Broadcaster.Subscribe(FStylesListener);
UpdateParentChart;
end;

1
components/tachart/tafuncseries.pas
View File

@ -1522,6 +1522,7 @@ begin
if FColorSourceListener.IsListening then
ColorSource.Broadcaster.Unsubscribe(FColorSourceListener);
FColorSource := AValue;
if ColorSource <> nil then
ColorSource.Broadcaster.Subscribe(FColorSourceListener);
UpdateParentChart;
end;