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

TAChart: Copy recently added properties in TChartTextElement.Assign and TGenericChartMarks.Assign

Browse Source 
git-svn-id: trunk@38585 -
This commit is contained in:
ask 2012-09-08 16:58:55 +00:00
parent bf4025e39a
commit 7525f414fe
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/tatextelements.pas
View File

@ -263,8 +263,11 @@ begin
if ASource is TChartTextElement then if ASource is TChartTextElement then
with TChartTextElement(ASource) do begin with TChartTextElement(ASource) do begin
Self.FAlignment := Alignment; Self.FAlignment := Alignment;
Self.FCalloutAngle := FCalloutAngle;
Self.FClipped := FClipped; Self.FClipped := FClipped;
Self.FMargins.Assign(FMargins);
Self.FOverlapPolicy := FOverlapPolicy; Self.FOverlapPolicy := FOverlapPolicy;
Self.FShape := FShape;
end; end;
inherited Assign(ASource); inherited Assign(ASource);
end; end;
@ -560,6 +563,7 @@ procedure TGenericChartMarks.Assign(ASource: TPersistent);
begin begin
if ASource is Self.ClassType then if ASource is Self.ClassType then
with TGenericChartMarks(ASource) do begin with TGenericChartMarks(ASource) do begin
Self.FArrow.Assign(FArrow);
Self.FAttachment := FAttachment; Self.FAttachment := FAttachment;
Self.FDistance := FDistance; Self.FDistance := FDistance;
Self.FFormat := FFormat; Self.FFormat := FFormat;