TChartScrollBar fading effect problem

[sswang]

Hi,

I did a runtime created TChartScrollBar like this:

FChartScrollBar := TChartScrollBar.Create(GetHost);
FChartScrollBar.Parent := GetHost;
FChartScrollBar.Chart := GetHost;
FChartScrollBar.Align := alBottom;

It worked fine.
But when I mouse over the scrollbar, It generate a fading animation,
but the image that it captured for fading is from the top portion of chart, which is wrong bescause
the scrollbar is actually on the bottom, so the result is weird.
Please advice, thanks.

[Yeray]

Hello,

I'm using the following code:

Code: Select all

uses Series, TeeScroB;

procedure TForm1.FormCreate(Sender: TObject);
var FChartScrollBar: TChartScrollBar;
begin
  Chart1.AddSeries(TPointSeries).FillSampleValues;
  Chart1.Axes.Bottom.SetMinMax(0, 10);

  FChartScrollBar := TChartScrollBar.Create(Chart1);
  FChartScrollBar.Parent := Chart1;
  FChartScrollBar.Chart := Chart1;
  FChartScrollBar.Align := alBottom;
end;

And I see the animation just on the bar with Delphi 7. What IDE are you using?
Have you tried with a regular TScrollBar?

2013-05-15_1005.png (16.22 KiB) Viewed 3412 times