TDragPointTool and mouse pointer

[johnnix]

Hello,

I use TChart 2010 and I noticed that although my TDragPointTool is set to active=false the pointer cursor changes when the mouse is over a point. Would it be "better" not to use the TDragPointTool.Cursor when this tool is not active?

Regards

[Narcís]

Hi johnnix,

I'm not able to reproduce the problem here using code below. Does this work fine for you? Which TeeChart 2010 build are you using? Can you please modify the code below so that we can reproduce the problem here?

Code: Select all

uses Series, TeeDragPoint;

procedure TForm1.FormCreate(Sender: TObject);
var DragPoints1: TDragPointTool;
begin
  Chart1.AddSeries(TPointSeries.Create(Self)).FillSampleValues;

  DragPoints1:=TDragPointTool.Create(Self);
  DragPoints1.Series:=Chart1[0];
  DragPoints1.Active:=False;
  Chart1.Tools.Add(DragPoints1);
end;

Thanks in advance.

[johnnix]

Hello Narcis,

Yes, your code works ok because you have not defined a different cursor style. Please try the following code:

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
var DragPoints1: TDragPointTool;
begin
  Chart1.AddSeries(TPointSeries.Create(Self)).FillSampleValues;

  DragPoints1:=TDragPointTool.Create(Self);
  DragPoints1.Series:=Chart1[0];
  DragPoints1.Active:=False;
  DragPoints1.Series.Cursor := crhourglass;
  Chart1.Tools.Add(DragPoints1);
end;

Regards

[Narcís]

Hi johnnix,

Ok, thanks for the info. I don't think this is a bug. You are changing the cursor of the series associated to the DragPoints tool, not the tool itself. This is the same to do this:

Code: Select all

  Chart1[0].Cursor:=crHourGlass;

[johnnix]

Hello,

Thank you for your reply. I guess that the property Cursor under the TDragPointTool is misleading then Either it should not be there or be applicable only when the tools is enabled (it should be a tool property and not a series one).

Regards

[Narcís]

Hi johnnix,

This property clearly indicates that it's Series.Cursor not tool's cursor. When you access a series associated to a tool you can access all its properties.

Anyway, I'll add a Cursor property for the TDragPointTool to the wish-list.