Bug: TScrollPager keeps dragging after mouse left

[jens.mertelmeyer]

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

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.

By the way: Why are .mp4 files disallowed? I had to wrap it in a .zip before...

[jens.mertelmeyer]

I don't want to spam, but Bug #1218 is probably related (forum thread).

The only workaround I have been able to find so far is:
- when the mouse leaves the Subchart area
- and the mouse button is still down
I will have to destroy the entire Scrollpager tool and create it again.

[Yeray]

Hello,

Bug #1218 is probably related (forum thread).

The same behaviour can be reproduced with v2015.14, before closing #1218.

Also note the same happens when you do the same action leaving the chart and the window from the bottom.
I've added a new ticket in the public tracker: #1818