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 1821 - "Out of range" error adding an tcSeriesAnimation Tool
Summary: "Out of range" error adding an tcSeriesAnimation Tool
Status: RESOLVED FIXED
Alias: None
Product: ActiveX TeeChart
Classification: Unclassified
Component: Chart Tools (show other bugs)
Version: TeeChart Pro Activex Control 2017.0.0.0 Release
Hardware: PC Windows
: Normal normal
Target Milestone: ---
Assignee: Steema Issue Manager
URL: http://www.teechart.net/support/viewt...
Keywords:
Depends on:
Blocks:
 
Reported: 2017-03-20 06:19 EDT by yeray alonso
Modified: 2018-08-08 06:15 EDT (History)
1 user (show)

See Also:
Chart Series: ---
Delphi / C++ Builder RAD IDE Version:

Attachments
Add an attachment (proposed patch, testcase, etc.)

Note You need to log in before you can comment on or make changes to this bug.
Description yeray alonso 2017-03-20 06:19:11 EDT 
In VCL this works fine:

uses Series, TeeAnimations;

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

  with Chart1.Tools.Add(TSeriesAnimationTool) as TSeriesAnimationTool do
  begin
    Series:=Chart1[0];
    Execute;
  end;
end;

But in ActiveX this gives an "Argument out of range" error:

  TChart1.AddSeries scBar
  TChart1.Series(0).FillSampleValues
  TChart1.Series(0).ColorEachPoint = True
  
  TChart1.Tools.Add tcSeriesAnimation ' <- error running this
  TChart1.Tools.Items(0).As.Series = TChart1.Series(0)
Comment 1 yeray alonso 2017-03-21 05:56:54 EDT 
Broken in v2014.0.0.0. Worked fine in v2013.0.1.4
Comment 2 marc meumann 2018-08-08 06:12:48 EDT 
Modified SeriesAnimation Tool to get round 'wakening thread issue'.
Comment 3 marc meumann 2018-08-08 06:15:18 EDT 
Example code (VB6):


Private Sub Command1_Click()
  TChart1.Animations.Items(0).asSeriesAnimation.Series = TChart1.SeriesList.Items(0)
  TChart1.Animations.Items(0).asSeriesAnimation.Play
End Sub

Private Sub Form_Load()
  TChart1.Series(0).FillSampleValues
  TChart1.Animations.Add tcSeriesAnimation
  TeeCommander1.Chart = TChart1
End Sub