Bug: TScrollPager keeps dragging after mouse left
Posted: Mon Mar 13, 2017 10:43 am
When using a TScrollPager tool (which is awesome!), there is a malfunction when dragging its TColorBandTool and then exiting the SubChart area while the mouse button is still pressed.
Please find the following code and a short video attachement on how to reproduce this.
Using TeeChart Pro 2015.16 for VCL
By the way: Why are .mp4 files disallowed? I had to wrap it in a .zip before...
Please find the following code and a short video attachement on how to reproduce this.
Using TeeChart Pro 2015.16 for VCL
Code: Select all
unit Unit1;
interface uses
System.Classes,
Vcl.Controls, Vcl.Forms,
VCLTee.TeEngine, VCLTee.TeeScrollPagerTool, VCLTee.Chart
;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private var
chart: TChart;
tool: TScrollPagerTool;
private
procedure createChart();
end;
var
Form1: TForm1;
implementation uses VCLTee.Series;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
createChart();
end;
procedure TForm1.createChart();
var
lineSeries: TLineSeries;
begin
chart := TChart.Create(self);
chart.Align := TAlign.alClient;
chart.Parent := self;
lineSeries := TLineSeries.Create(chart);
lineSeries.FillSampleValues();
chart.AddSeries(lineSeries);
tool := TScrollPagerTool.Create(chart);
tool.Series := lineSeries;
tool.SetUpScrollPager();
end;
end.