[TCursorTool] Invisible when superimposed

[bertrod]

Hello,

I'm using 2 CursorTool on my chart. My problem is that sometimes the 2 cursors must be at the same position. But if the 2 cursors are superimposed, they are not visible anymore. Is there a way to avoid this problem ?

[Narcís]

Hi bertrod,

I'm afraid this is a bug, I've added it (TV52011928) to our defect list to be fixed for future releases.

In the meantime, you can try changing tool's pen width when they overlap, for example:

Code: Select all

procedure TForm1.ChartTool1Change(Sender: TCursorTool; x, y: Integer;
  const XValue, YValue: Double; Series: TChartSeries; ValueIndex: Integer);
begin
  if ChartTool1.XValue=ChartTool2.XValue then
    ChartTool1.Pen.Width:=2
  else
    ChartTool1.Pen.Width:=1
end;

procedure TForm1.ChartTool2Change(Sender: TCursorTool; x, y: Integer;
  const XValue, YValue: Double; Series: TChartSeries; ValueIndex: Integer);
begin
  if ChartTool1.XValue=ChartTool2.XValue then
    ChartTool2.Pen.Width:=2
  else
    ChartTool2.Pen.Width:=1
end;

[bertrod]

Ok thanks, I could deal with my problem with your suggestion.