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

TAChart: Add fields missing from TCubicSplineSeries.Assign. Issue #35268, modified patch by Marcin Wiazowski.

Browse Source 
git-svn-id: trunk@60803 -
This commit is contained in:
wp 2019-03-31 14:29:19 +00:00
parent 0a93bb1e76
commit d0f6276d0c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/tachart/tafuncseries.pas
View File

@ -1319,7 +1319,10 @@ procedure TCubicSplineSeries.Assign(ASource: TPersistent);
begin
if ASource is TCubicSplineSeries then
with TCubicSplineSeries(ASource) do begin
Self.Pen := FPen;
Self.BadDataPen.Assign(FBadDataPen);
Self.FOptions := FOptions;
Self.FPen.Assign(FPen);
Self.FSplineType := FSplineType;
Self.FStep := FStep;
end;
inherited Assign(ASource);