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

TAChart: Fix TCubicSplineSeries.Assign not trigger recreation of splines.

Browse Source 
git-svn-id: trunk@60820 -
This commit is contained in:
wp 2019-04-02 06:58:20 +00:00
parent 09a76c0d2d
commit c4c50a69c7
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tafuncseries.pas
View File

@ -1317,6 +1317,8 @@ procedure TCubicSplineSeries.Assign(ASource: TPersistent);
begin begin
if ASource is TCubicSplineSeries then if ASource is TCubicSplineSeries then
with TCubicSplineSeries(ASource) do begin with TCubicSplineSeries(ASource) do begin
if (Self.FOptions <> FOptions) or (Self.FSplineType <> FSplineType) then
Self.FreeSplines;
Self.BadDataPen.Assign(FBadDataPen); Self.BadDataPen.Assign(FBadDataPen);
Self.FOptions := FOptions; Self.FOptions := FOptions;
Self.FPen.Assign(FPen); Self.FPen.Assign(FPen);