График в TChart, Delphi7.

[Zurs]

Как сделать такие же надписи в Tchart, Delphi7?

[Аватар]

Например в OnAfterDraw рисовать на канвас chart-а

[Zurs]

Чет не очень понял, что нужно делать. Можно попроще.

[Аватар]

У chart-a есть событие OnAfterDraw и свойство Canvas. У Canvas есть методы TextOut и TextRect. Вот используя это в обработчике события OnAfterDraw и рисуй любой текст на графике в заданных местах. Сильно понятней?

[Zurs]

Очень понятно! А можно отредактировать мой образец кода и добавить тудой надписи? Это будет просто вай вах!

[Аватар]

Вечером, если будет время и не забуду посмотрю

[Pavia]

А не проще невидимую линию добавить?

procedure TForm1.Button1Click(Sender: TObject);
var
  LabelLine:TFastLineSeries;
begin
// Данные
Chart1.Series[0].AddXY(10,10);
Chart1.Series[0].AddXY(20,20);
Chart1.Series[0].AddXY(30,10);
Chart1.Series[0].AddXY(40,20);
// Надписи
LabelLine:=TFastLineSeries.Create(nil);
LabelLine.LinePen.Visible:=False;
LabelLine.Marks.Visible:=True;
LabelLine.Marks.Style:=smsLabel;
LabelLine.AddXY(0.5*(10+20),30,'серия1');
LabelLine.AddXY(0.5*(20+30),30,'серия2');
LabelLine.AddXY(0.5*(30+40),30,'серия3');
Chart1.AddSeries(LabelLine);
end;

[Аватар]

В качестве примера. Нужно еще озаботиться как вычислять позицию выдачи текста. В посте #7 будет такая же точно проблемка

procedure TForm1.Chart1AfterDraw(Sender: TObject);
var xRect: TRect;
begin
  xRect:=Chart1.ChartRect;
  Chart1.Canvas.Brush.Style:=bsClear;
  Chart1.Canvas.Font.Color:=clBlue;
  Chart1.Canvas.TextOut(xRect.Left,xRect.Top,'Стадия 1');
end;