paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 15:59:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add forgotten properties to TChartSeriesLegend.Assign.

Browse Source 
git-svn-id: trunk@60835 -
This commit is contained in:
wp 2019-04-04 18:01:10 +00:00
parent 643da08e7a
commit d1da579c77
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/talegend.pas
View File

@ -965,10 +965,14 @@ procedure TChartSeriesLegend.Assign(Source: TPersistent);
begin begin
if Source is TChartSeriesLegend then if Source is TChartSeriesLegend then
with TChartSeriesLegend(Source) do begin with TChartSeriesLegend(Source) do begin
Self.FFormat := FFormat;
Self.FGroupIndex := FGroupIndex;
Self.FMultiplicity := FMultiplicity; Self.FMultiplicity := FMultiplicity;
Self.FOnDraw := FOnDraw; Self.FOnDraw := FOnDraw;
Self.FOrder := FOrder;
Self.FTextFormat := FTextFormat; Self.FTextFormat := FTextFormat;
Self.FUserItemsCount := FUserItemsCount; Self.FUserItemsCount := FUserItemsCount;
Self.FVisible := FVisible;
end; end;
inherited Assign(Source); inherited Assign(Source);