TMarksTipTool: OnHint index?

[TestAlways]

With a TMarksTipTool.OnGetText, there is no .Index property that I can find to know what help should be pointing at.

Any suggestions on how to find this?

Ed Dressel

[Yeray]

Hi Ed,

You could set the MarkTips Style to be smsPointIndex and use it at ChartTool1GetText:

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
begin
  ChartTool1.Style:=smsPointIndex;
end;

procedure TForm1.ChartTool1GetText(Sender: TMarksTipTool; var Text: String);
var ValueIndex: Integer;
begin
  ValueIndex:=StrToInt(Text);
  Text:='X: ' + FloatToStr(Sender.Series.XValue[ValueIndex]) + #13 + 'Y: ' + FloatToStr(Sender.Series.YValue[ValueIndex]);
end;

[GoToXY]

Hi, i found that topic and i must say that you need to change the event because when you use that tool on All Series, the Sender.Series = Nil
So, it should be a good idea to make it nice and add the Index and Series that as been "clicked / moved on" for the hint.

[Narcís]

Hi GotoXY,

Hi, i found that topic and i must say that you need to change the event because when you use that tool on All Series, the Sender.Series = Nil

A safeguard could be implementing the event like this:

Code: Select all

procedure TForm1.ChartTool1GetText(Sender: TMarksTipTool;
  var Text: String);
begin
  if Assigned(Sender.Series) then
  begin
    ValueIndex:=StrToInt(Text);
    Text:='X: ' + FloatToStr(Sender.Series.XValue[ValueIndex]) + #13 + 'Y: ' + FloatToStr(Sender.Series.YValue[ValueIndex]);
  end;
end;

So, it should be a good idea to make it nice and add the Index and Series that as been "clicked / moved on" for the hint.

It can be easily found using TeeChart's mouse events combined with series' Clicked method. Anyway, I have added your request to the wish-list (TV52015263) to be considered for inclusion in future releases.