[SOLVED] ChartToolset DataPointClickTool whats wrong?
lazarus / 55-TAChart

----------------------------------------------------------------------
Vingadero · 2012-04-23 17:55

Hello

I want add a DataPointClickTool to a LineChart.
DataPointHintTool works great..

have attached a simple demo

What's wrong?

I'm using: Lazarus-1.1-36740-fpc-2.6.1-20120413-win32

ty

----------------------------------------------------------------------
Ask · 2012-04-23 19:03

Fill the "Shift" property of DataPointClickTool.

----------------------------------------------------------------------
Vingadero · 2012-04-23 19:21

Quote from: Ask on April 23, 2012, 09:03:44 pmFill the "Shift"
property of DataPointClickTool.

Thx man!

----------------------------------------------------------------------
Vingadero · 2012-04-23 19:38

Just one more thing..

For DataPointHintTool I used:
Chart1LineSeries1.Source.Item[ATool.PointIndex]^.x to get X value

Any equivalent to use on DataPointClickTool?

EDIT:

Found a solution:

Code: [Select]procedure
TForm1.ChartToolset1DataPointClickTool1PointClick(ATool: TChartTool;
APoint: TPoint);
var Pi : integer;
begin
  pi := ChartToolset1DataPointClickTool1.PointIndex;
  ShowMessage(FloatToStr(Chart1LineSeries1.Source.Item[pi]^.x));
end;

----------------------------------------------------------------------
Ask · 2012-04-24 04:11

Alternatively,
Code: [Select]Chart1LineSeries1.Source.Item[TDataPointClickTool(ATool)
.PointIndex]^.xwhich will also work if you have several tools with the
same event handler.