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 755

Summary:	ExtraLegendTool isn't shown
Product:	VCL TeeChart	Reporter:	yeray alonso <yeray>
Component:	Tools	Assignee:	Steema Issue Manager <issuemanager>
Status:	RESOLVED FIXED
Severity:	major	CC:	boris.seve, hans.boot, micrometeo, narcis, sandra
Priority:	Highest
Version:	140220
Target Milestone:	---
Hardware:	PC
OS:	Windows
URL:	http://www.teechart.net/support/viewtopic.php?f=3&t=14889
Chart Series:	---	Delphi / C++ Builder RAD IDE Version:

Description yeray alonso 2014-04-30 05:42:06 EDT

The TExtraLegendTool has been broken since v2014.10.
The code below works fine in v2013.09 but not in v2014.10.

uses Series, TeeExtraLegendTool;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.AddSeries(TLineSeries).FillSampleValues(5);
  Chart1.AddSeries(TLineSeries).FillSampleValues(5);

  Chart1.Legend.LegendStyle:=lsValues;

  Chart1.Draw;

  with Chart1.Tools.Add(TExtraLegendTool) as TExtraLegendTool do
  begin
    Series:=Chart1[1];

    with Legend do
    begin
      Shadow.Transparency:=70;
      CustomPosition:=True;
      Left:=Chart1.Legend.Left;
      Top:=Chart1.Legend.ShapeBounds.Bottom+10;
    end;
  end;
end;