paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-02 16:51:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Copy properties in TChartLegend.Assign

Browse Source 
git-svn-id: trunk@39076 -
This commit is contained in:
ask 2012-10-14 05:01:49 +00:00
parent aec9afaf9c
commit 9313416622
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/tachart/talegend.pas
View File

@ -474,8 +474,21 @@ end;
procedure TChartLegend.Assign(Source: TPersistent);
begin
if Source is TChartLegend then
with TChartLegend(Source) do
Self.FAlignment := FAlignment;
with TChartLegend(Source) do begin
Self.FAlignment := Alignment;
Self.FBackgroundBrush.Assign(BackgroundBrush);
Self.FColumnCount := ColumnCount;
Self.FFont.Assign(Font);
Self.FFrame.Assign(Frame);
Self.FGroupFont.Assign(GroupFont);
Self.FGroupTitles.Assign(GroupTitles);
Self.FMarginX := MarginX;
Self.FMarginY := MarginY;
Self.FSpacing := Spacing;
Self.FSymbolFrame.Assign(SymbolFrame);
Self.FSymbolWidth := SymbolWidth;
Self.FUseSidebar := UseSidebar;
end;
inherited Assign(Source);
end;