Steema Central

Code: Select all

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

  Series1.FillSampleValues();

  ChartTool1.Text:=FloatToStr(Series1.CloseValues.MaxValue);
  ChartTool1.Shape.Transparent:=True;
  ChartTool1.Shape.Font.Color:=clRed;

  ChartTool2.Active:=False;
  ChartTool2.Shape.Transparent:=True;
  ChartTool2.Shape.Font.Color:=clBlue;

  Chart1.Draw;
end;

procedure TForm1.Chart1AfterDraw(Sender: TObject);
begin
  SetAnnotationPosition(ChartTool1);
end;

procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var Index : Integer;
begin
  Index:=Series1.Clicked(X, Y);
  ChartTool2.Active:=Index<>-1;

  If ChartTool2.Active then
  begin
    ChartTool2.Text:=FloatToStr(Series1.CloseValues[Index]);
    SetAnnotationPosition(ChartTool2);
  end;
end;

procedure TForm1.SetAnnotationPosition(Annotation: TAnnotationTool);
var Value : Double;
    XPos  : Integer;
    YPos  : Integer;
begin
  Value:=StrToFloat(Annotation.Text);

  XPos:=Chart1.Axes.Bottom.IStartPos - Annotation.Width -
        Chart1.Axes.Left.TickLength - 2;
  YPos:=Chart1.Axes.Left.CalcPosValue(Value) - (Annotation.Height div 2);

  Annotation.Shape.CustomPosition:=True;
  Annotation.Shape.Left:=XPos;
  Annotation.Shape.Top:=YPos;
end;