TAnnotationTool : no assign function ?

[bertrod]

Hey,

I'm assigning manually some parts of the chart (axis, legend, annotation), but I noticed there is no TAnnotationTool.Assign() function. Is there another way to copy an annotation look ?

Tx

[Narcís]

Hi bertrod,

You can try Marjan's suggestion about cloning tools here.

[bertrod]

Hi bertrod,

You can try Marjan's suggestion about cloning tools here.

I had seen this post during my research on the forum, but Marjan is using the "Assign" function to clone the tools, and as I said, the TAnnotationTool.Assign method is not implemented and I was wondering why...

[Pep]

Hi,

for the moment there's no way to copy all the properties automatically, however it's on our wish list to be considered for further releases.
In meantime a workaround is to set them manually, ie :

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  Chart2.Tools.Clear;
  Chart2.Assign(Chart1);
  for i:=0 to Chart1.Tools.Count-1 do
  begin
    CloneChartTool(Chart1.Tools[i],Chart2).ParentChart:=Chart2;
    if (Chart1.Tools[i] is TAnnotationTool) then
     (Chart2.Tools.Items[i] as TAnnotationTool).Position := (chart1.tools[i] as TAnnotationTool).position;
  end;
end;