paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 15:00:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix exception on destroying clones series

Browse Source 
git-svn-id: trunk@39821 -
This commit is contained in:
ask 2013-01-10 14:18:09 +00:00
parent d501e634d7
commit 9a5d0a0e44
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tacustomseries.pas
View File

@ -626,7 +626,7 @@ procedure TChartSeries.Assign(ASource: TPersistent);
begin
if ASource is TChartSeries then
with TChartSeries(ASource) do begin
Self.Marks := FMarks;
Self.Marks.Assign(FMarks);
Self.FOnGetMark := FOnGetMark;
Self.Source := FSource;
Self.Styles := FStyles;
@ -908,7 +908,9 @@ procedure TBasicPointSeries.Assign(ASource: TPersistent);
begin
if ASource is TBasicPointSeries then
with TBasicPointSeries(ASource) do begin
Self.FPointer := Pointer;
Self.FMarkPositions := MarkPositions;
if Self.FPointer <> nil then
Self.FPointer.Assign(Pointer);
Self.FUseReticule := UseReticule;
end;
inherited Assign(ASource);