Steema Central

Code: Select all

uses Series;

procedure TForm1.FormCreate(Sender: TObject);
var i : Integer;
const nPoints = 5;
      myLabels : array  [0..nPoints-1] of string = ('Cars', 'Phones', 'Tables', 'Monitors', 'Lamps');
begin
  with Chart1.AddSeries(TPointSeries) as TPointSeries do
  begin
    for i:=0 to nPoints-1 do
      Add(50+random*50, myLabels[i]);

    Marks.Visible:=True;
    Marks.Style:=smsLabelValue;
  end;
end;

Code: Select all

uses Series, TeeTools;

var annotations: array of TAnnotationTool;

procedure TForm1.FormCreate(Sender: TObject);
var i : Integer;
const nPoints = 5;
      myLabels : array  [0..nPoints-1] of string = ('Cars', 'Phones', 'Tables', 'Monitors', 'Lamps');
begin
  SetLength(annotations, nPoints);

  with Chart1.AddSeries(TPointSeries) as TPointSeries do
  begin
    for i:=0 to nPoints-1 do
    begin
      annotations[i]:=Chart1.Tools.Add(TAnnotationTool) as TAnnotationTool;
      annotations[i].Text:=myLabels[i];

      Add(50+random*50);
    end;

    Marks.Visible:=True;
    Marks.Style:=smsValue;

    OnGetMarkText:=SeriesGetMarkText;
  end;
end;

procedure TForm1.SeriesGetMarkText(Sender: TChartSeries; ValueIndex: Integer; var MarkText: string);
begin
  if (ValueIndex>=0) and (ValueIndex<Chart1[0].Count) and (Sender.Marks.Positions[ValueIndex] <> nil) then
  begin
    annotations[ValueIndex].Left:=Sender.Marks.Positions[ValueIndex].LeftTop.X+Sender.Marks.Positions[ValueIndex].Width;
    annotations[ValueIndex].Top:=Sender.Marks.Positions[ValueIndex].LeftTop.Y;
  end;
end;

Code: Select all

unit testTeeu;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, VclTee.TeeGDIPlus, VclTee.TeEngine,
  Vcl.ExtCtrls, VclTee.TeeProcs, VclTee.Chart, VclTee.Series, VclTee.TeeTools;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  var
    annotations: array of TAnnotationTool;
    procedure SeriesGetMarkText(Sender: TChartSeries; ValueIndex: Integer;
      var MarkText: string);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
const
  nPoints = 5;
  myLabels: array [0 .. nPoints - 1] of string = ('Cars', 'Phones', 'Tables',
    'Monitors', 'Lamps');
begin
  SetLength(annotations, nPoints);

  with Chart1.AddSeries(TPointSeries) as TPointSeries do
  begin
    for i := 0 to nPoints - 1 do
    begin
      annotations[i] := Chart1.Tools.Add(TAnnotationTool) as TAnnotationTool;
      annotations[i].Text := myLabels[i];

      Add(50 + random * 50);
    end;

    Marks.Visible := True;
    Marks.Style := smsValue;

    OnGetMarkText := SeriesGetMarkText;
  end;
end;

procedure TForm1.SeriesGetMarkText(Sender: TChartSeries; ValueIndex: Integer;
  var MarkText: string);
begin
  if (ValueIndex >= 0) and (ValueIndex < Chart1[0].Count) and
    (Sender.Marks.Positions[ValueIndex] <> nil) then
  begin
    annotations[ValueIndex].Left := Sender.Marks.Positions[ValueIndex].LeftTop.X
      + Sender.Marks.Positions[ValueIndex].Width;
    annotations[ValueIndex].Top := Sender.Marks.Positions[ValueIndex].LeftTop.Y;
  end;
end;

end.

Code: Select all

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

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

procedure TForm1.FormCreate(Sender: TObject);
//...

  Chart1.Draw;
end;