Steema Central

Code: Select all

uses Series;

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

  with Chart1.AddSeries(TPointSeries) do
  begin
    FillSampleValues(10);
    Marks.Visible:=true;
    Marks.Callout.Length:=-50;
    Marks.Arrow.Color:=clRed;
    Marks.Transparent:=true;
  end;
end;

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
    tmpPos: TseriesMarkPosition;
begin
  Chart1.View3D:=false;

  with Chart1.AddSeries(TPointSeries) do
  begin
    FillSampleValues(10);
    Marks.Visible:=true;
    Marks.Callout.Length:=-50;
    Marks.Arrow.Color:=clRed;
    Marks.Transparent:=true;
  end;

  Chart1.Draw;

  with Chart1[0] as TPointSeries do
  begin
    for i:=0 to Count-1 do
    begin
      tmpPos:=Marks.Positions.Position[i];
      tmpPos.Custom:=true;
      tmpPos.ArrowTo.Y:=tmpPos.LeftTop.Y;
    end;
  end;
end;

Code: Select all

//...
  private
    { Private declarations }
    procedure CalcMarks;
//...
uses Series;

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

  with Chart1.AddSeries(TPointSeries) do
  begin
    FillSampleValues(10);
    Marks.Visible:=true;
    Marks.Callout.Length:=-50;
    Marks.Arrow.Color:=clRed;
    Marks.Transparent:=true;
  end;

  CalcMarks;
end;

procedure TForm1.CalcMarks;
var i: Integer;
    tmpPos: TseriesMarkPosition;
begin
  Chart1.Draw;

  with Chart1[0] as TPointSeries do
  begin
    for i:=0 to Count-1 do
    begin
      tmpPos:=Marks.Positions.Position[i];
      tmpPos.Custom:=true;
      tmpPos.ArrowFrom.X:=GetHorizAxis.CalcPosValue(XValues[i]);
      tmpPos.ArrowFrom.Y:=GetVertAxis.CalcPosValue(YValues[i]);
      tmpPos.ArrowTo.X:=tmpPos.ArrowFrom.X;
      tmpPos.ArrowTo.Y:=tmpPos.ArrowFrom.Y-Marks.Callout.Length-tmpPos.Height;
      tmpPos.LeftTop.X:=tmpPos.ArrowFrom.X-(tmpPos.Width div 2);
      tmpPos.LeftTop.Y:=tmpPos.ArrowTo.Y;
    end;
  end;
end;

procedure TForm1.Chart1Scroll(Sender: TObject);
begin
  CalcMarks;
end;

procedure TForm1.Chart1UndoZoom(Sender: TObject);
begin
  CalcMarks;
end;

procedure TForm1.Chart1Zoom(Sender: TObject);
begin
  CalcMarks;
end;