Steema Issues Database

Note: This database is for bugs and wishes only. For technical support help, if you are a customer please visit our online forums;
otherwise you can use StackOverflow.
Before using this bug-tracker we recommend a look at this document, Steema Bug Fixing Policy.

Bug 2372

Summary:	Wrong starting point in annotation callout when in 3D
Product:	VCL TeeChart	Reporter:	yeray alonso <yeray>
Component:	Tools	Assignee:	Steema Issue Manager <issuemanager>
Status:	CONFIRMED ---
Severity:	enhancement	CC:	yeray
Priority:	---
Version:	30.200525
Target Milestone:	---
Hardware:	PC
OS:	Windows
URL:	https://www.steema.com/support/viewtopic.php?f=3&t=17420#p77494
Chart Series:	---	Delphi / C++ Builder RAD IDE Version:

Description yeray alonso 2020-09-28 07:37:20 EDT

Here a simple example:

procedure TForm1.AnnotationCallout;
var i: Integer;
    s: TPoint3DSeries;
begin
  Chart1.View3D:=True;

  s:=TPoint3DSeries(Chart1.AddSeries(TPoint3DSeries));
  with s do
  begin
    for i:=0 to 9 do
      AddXYZ(i, i, 5);

    Pointer.Size:=2;
    LinePen.Hide;
  end;

  Chart1.Draw;

  with TAnnotationTool(Chart1.Tools.Add(TAnnotationTool)) do
  begin
    Text:='Annotation here';
    With Callout do
    begin
      Draw3D:=True;
      Arrow.Visible:=True;
      Arrow.Color:=clRed;

      XPosition:=s.CalcXPos(5);
      YPosition:=s.CalcYPos(5);
      ZPosition:=s.CalcZPos(5);
    end;
  end;
end;