Caption/Title in the middle of a TDonutSeries

[Ed Dressel]

How do I put a caption/title in the middle of a TDonutSeries? I think I am missing the obvious.

Ed Dressel

[Yeray]

Hello,

You could use a TAnnotationTool as follows:

Code: Select all

uses TeeDonut, TeeTools;

var donut1: TDonutSeries;
    annot1: TAnnotationTool;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.Legend.Hide;
  Chart1.View3D:=False;

  donut1:=Chart1.AddSeries(TDonutSeries) as TDonutSeries;
  donut1.FillSampleValues;

  annot1:=Chart1.Tools.Add(TAnnotationTool) as TAnnotationTool;
  annot1.Text:='Annotation';

  Chart1.Draw;
  annot1.Left:=donut1.CircleXCenter -(annot1.Width div 2);
  annot1.Top:=donut1.CircleYCenter -(annot1.Height div 2);
end;