From 27c1055b42c038d68d2928dbbb1ecfb833bfcd41 Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Sat, 31 Jul 2021 21:52:19 +0200
Subject: [PATCH] TAChart: Fix TChartTitle.Assign

---
 components/tachart/tatextelements.pas | 1 +
 components/tachart/tatypes.pas        | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/tachart/tatextelements.pas b/components/tachart/tatextelements.pas
index 9bd6b14aa6..54cd139d64 100644
--- a/components/tachart/tatextelements.pas
+++ b/components/tachart/tatextelements.pas
@@ -606,6 +606,7 @@ begin
       Self.FFont.Assign(Font);
       Self.FFrame.Assign(Frame);
       Self.FText.Assign(Text);
+      Self.FWordWrap := WordWrap;
    end;
 
   inherited Assign(ASource);
diff --git a/components/tachart/tatypes.pas b/components/tachart/tatypes.pas
index 082c815b08..8528b7f003 100644
--- a/components/tachart/tatypes.pas
+++ b/components/tachart/tatypes.pas
@@ -685,7 +685,7 @@ end;
 procedure TChartMargins.Assign(Source: TPersistent);
 begin
   if Source is TChartMargins then
-    TChartMargins(Source).FData.FRect := Data;
+    Self.FData.FRect := TChartMargins(Source).FData.FRect;
   inherited Assign(Source);
 end;