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 2347

Summary:	Wrong position for Annotation in a ColorLineTool within a SubChart
Product:	VCL TeeChart	Reporter:	yeray alonso <yeray>
Component:	Tools	Assignee:	yeray alonso <yeray>
Status:	RESOLVED FIXED
Severity:	enhancement	CC:	yeray
Priority:	---
Version:	29.200113
Target Milestone:	---
Hardware:	PC
OS:	Windows
URL:	https://www.steema.com/support/viewtopic.php?f=3&t=17386
Chart Series:	---	Delphi / C++ Builder RAD IDE Version:

Description yeray alonso 2020-07-17 06:34:38 EDT

Here a test example.
Find a screenshot in the support forums

  with Chart1 do
  begin
    View3D:=False;
    Legend.Hide;
    Gradient.Visible:=False;
    Color:=clWhite;
    Walls.Back.Gradient.Visible:=False;
    Walls.Back.Color:=clWhite;
    Axes.Left.Grid.Hide;
    Axes.Bottom.Grid.Hide;

    AddSeries(TFastLineSeries).FillSampleValues;
  end;

  with TSubChartTool(Chart1.Tools.Add(TSubChartTool)) do
  begin
    with Charts.AddChart do
    begin
      View3D:=False;
      Axes.Left.Grid.Hide;
      Axes.Bottom.Grid.Hide;
      Left:=200;
      Width:=400;
      Height:=300;

      AddSeries(TFastLineSeries).FillSampleValues;

      with TColorLineTool(Tools.Add(TColorLineTool)) do
      begin
        Axis:=Axes.Bottom;
        AnnotationValue:=True;
        Value:=10;
      end;

      with TAnnotationTool(Tools.Add(TAnnotationTool)) do
      begin
        Text:='Annotation in SubChart';
        Shape.CustomPosition:=True;
      end;
    end;
  end;

  with TColorLineTool(Chart1.Tools.Add(TColorLineTool)) do
  begin
    Axis:=Chart1.Axes.Bottom;
    AnnotationValue:=True;
    Value:=2;
  end;

  with TAnnotationTool(Chart1.Tools.Add(TAnnotationTool)) do
  begin
    Text:='Annotation';
    Shape.CustomPosition:=True;
  end;