Make TCursorTool perform OnChange Event?

[tbonejo]

Is there a possible way to execute the OnChange event of the TCursor Tool from else where in my code?

I am updating labels showing the output this change and as doing the updat would like that event to execute WITHOUT actually moving a cursor.

Is this possible?


Thanks,


Tom

[Narcís]

Hi Tom,

Yes, you can do something like this:

Code: Select all

procedure TForm1.ChartTool1Change(Sender: TCursorTool; x, y: Integer;
  const XValue, YValue: Double; Series: TChartSeries; ValueIndex: Integer);
begin
  Chart1.Title.Text.Add('Cursor Changed');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ((X0 <> -1) and (Y0 <> -1)) then
  begin
    ChartTool1Change(ChartTool1, X0, Y0, Chart1.Axes.Bottom.CalcPosPoint(X0),
                    Chart1.Axes.Bottom.CalcPosPoint(X0), ChartTool1.Series,
                    ChartTool1.Series.Clicked(X0,Y0));
  end;
end;

procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  X0:=X;
  Y0:=Y;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  X0:=-1;
  Y0:=-1;
end;

[Narcís]

Hi Tom,

Sorry but the tool's event call should be something like this:

Code: Select all

    ChartTool1Change(ChartTool1, X0, Y0, Chart1.Axes.Bottom.CalcPosPoint(X0),
                    Chart1.Axes.Left.CalcPosPoint(Y0), ChartTool1.Series,
                    ChartTool1.Series.Clicked(X0,Y0));

I forgot to change the YValue argument after copy and paste .

[tbonejo]

Thats ok, I got it working nice and smooth.


Thanks,

Tom