TAChart: Add support of the TChartTitle.Wordwrap property to ChartEditor demo.

components/tachart/demo/charteditor/cemain.lfm

@@ -90,11 +90,15 @@ object MainForm: TMainForm
     Caption = 'Click on a title, axis, label, grid, data point to open the corresponding editor.'
   end
   object Bevel1: TBevel
+    AnchorSideLeft.Control = Owner
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = Label1
     Left = 0
     Height = 4
     Top = 290
     Width = 613
+    Anchors = [akTop, akLeft, akRight]
     Shape = bsBottomLine
   end
   object cbDoubleClick: TCheckBox

components/tachart/demo/charteditor/cetitlefootframe.lfm

@@ -31,6 +31,19 @@ object ChartTitleFootFrame: TChartTitleFootFrame
       State = cbChecked
       TabOrder = 0
     end
+    object cbWordwrap: TCheckBox
+      AnchorSideLeft.Control = cbShow
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = PanelTop
+      Left = 81
+      Height = 19
+      Top = 0
+      Width = 75
+      BorderSpacing.Left = 32
+      Caption = 'Wordwrap'
+      OnClick = cbWordwrapClick
+      TabOrder = 1
+    end
   end
   object ParamsPanel: TPanel
     Left = 0
@@ -43,7 +56,7 @@ object ChartTitleFootFrame: TChartTitleFootFrame
     BevelOuter = bvNone
     ClientHeight = 187
     ClientWidth = 423
-    TabOrder = 1
+    TabOrder = 2
     object rgAlignment: TRadioGroup
       AnchorSideLeft.Control = ParamsPanel
       AnchorSideTop.Control = ParamsPanel
@@ -118,7 +131,7 @@ object ChartTitleFootFrame: TChartTitleFootFrame
     ClientHeight = 196
     ClientWidth = 423
     Constraints.MinHeight = 80
-    TabOrder = 2
+    TabOrder = 1
     object lblText: TLabel
       AnchorSideLeft.Control = MemoPanel
       AnchorSideTop.Control = MemoPanel
@@ -127,7 +140,6 @@ object ChartTitleFootFrame: TChartTitleFootFrame
       Top = 0
       Width = 21
       Caption = 'Text'
-      ParentColor = False
     end
     object mmoText: TMemo
       AnchorSideLeft.Control = lblText

components/tachart/demo/charteditor/cetitlefootframe.pas

@@ -16,6 +16,7 @@ type
 
   TChartTitleFootFrame = class(TFrame)
     cbShow: TCheckBox;
+    cbWordwrap: TCheckBox;
     gbFont: TGroupBox;
     gbShapeBrushPenMargins: TGroupBox;
     lblText: TLabel;
@@ -25,6 +26,7 @@ type
     ParamsPanel: TPanel;
     rgAlignment: TRadioGroup;
     procedure cbShowChange(Sender: TObject);
+    procedure cbWordwrapClick(Sender: TObject);
     procedure mmoTextChange(Sender: TObject);
     procedure rgAlignmentClick(Sender: TObject);
   private
@@ -101,6 +103,12 @@ begin
   rgAlignment.Visible := cbShow.Checked;
   gbShapeBrushPenMargins.Visible := cbShow.Checked;
   gbFont.Visible := cbShow.Checked;
+  cbWordwrap.Visible := cbShow.Checked;
+end;
+
+procedure TChartTitleFootFrame.cbWordwrapClick(Sender: TObject);
+begin
+  FTitle.Wordwrap := cbWordwrap.Checked;
 end;
 
 procedure TChartTitleFootFrame.ChangedHandler(Sender: TObject);
@@ -139,6 +147,7 @@ begin
   FTitle := ATitle;
 
   cbShow.Checked := ATitle.Visible;
+  cbWordwrap.Checked := ATitle.Wordwrap;
   mmoText.Lines.Assign(ATitle.Text);
   {$IFDEF WYSIWYG_TITLE}
   mmoText.Font.Assign(ATitle.Font);