Marks Tip Tool???

[ISD]

I would like to display the value of a series in the chart when the user hovers the mouse over that series. I saw in the features something about a Marks Tip Tool but cannot load the source for the example in Delphi 2010. I get an error: Class TMarksTipTool not found.

I am attempting this in TeeChart Standard 8 for Delphi 2010.

How can I accomplish this either by using/enabling this MarksTipTool or by code???

Thanks all,
Branden Johnson

[Yeray]

Hi Branden Johnson,

As you can see here, the Standard version doesn't give access to the Tools.
If you want to upgrade your license to the Pro version, please contact the sales department at sales at steema dot com.

On the other hand, you always can do it manually like in the following example:

Code: Select all

var line1: TLineSeries;
    MouseX, MouseY: Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.View3D:=false;

  line1:=Chart1.AddSeries(TLineSeries.Create(self)) as TLineSeries;
  line1.FillSampleValues();
  line1.Pen.Width:=2;

  Chart1.OnMouseMove:=Chart1MouseMove;
end;

procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  MouseX:=X;
  MouseY:=Y;
  if line1.Clicked(X,Y)>-1 then Chart1.Draw;
end;

procedure TForm1.Chart1AfterDraw(Sender: TObject);
var Index: Integer;
    text: string;
begin
  Index:=line1.Clicked(MouseX, MouseY);
  if Index>-1 then
  begin
    with Chart1.Canvas do
    begin
      text:=FloatToStr(line1.YValue[Index]);
      Rectangle(Rect(MouseX,MouseY,MouseX+TextWidth(text),MouseY-TextHeight(text)));
      TextOut(MouseX,MouseY-TextHeight(text),text);
    end;
  end;
end;