Extending TCursorTool to display over Custom Axes.

[Phineas]

I want the vertical line of the TCursorTool to also extend across my custom axes. I want the tool to be assiged to Series1, but to display over other Series on custom axes. I figure I can spend some time coding this but do you folk have a quick method I can use.

[Narcís]

Hi Phineas,

The easiest solution I can think of now is using a TColorLineTool for that, for example:

Code: Select all

procedure TForm1.ChartTool1Change(Sender: TCursorTool; x, y: Integer;
  const XValue, YValue: Double; Series: TChartSeries; ValueIndex: Integer);
begin
  ColorLine.Value:=ChartTool1.XValue;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  ColorLine:=TColorLineTool.Create(Self);
  ColorLine.Axis:=Series2.GetHorizAxis;
  ColorLine.Pen.Color:=ChartTool1.Pen.Color;

  ColorLine.Value:=ChartTool1.XValue;
end;

Hope this helps!