Label in TChart

[andreaschr]

Hallo,
ich habe ein Programm, bei dem ich wie bei einem alten Schreiber Daten über ein TChart von rechts nach links laufen lasse. Bei jedem Series.AddXY werden dazu gleichzeitig Minimum und Maximum der BottomAxis um einen gleichen Wert erhöht. Damit TChart nicht zu langsam wird, werden die nach links verschwindenden Daten (Index "0") immer gelöscht.
Jetzt möchte ich für bestimmte Ereignisse einen Text-Label im Zeichenbereich setzen, der dann mit der Datenkurve mitlaufen soll.
Hat jemand eine Idee, wie man das machen kann?
Grüße

Andreas

[HolgerX]

Hab das mal mit D6 (gerade zur Hand) getestet und da geht es mit folgendem Trick:


Bei dem Wert, an dem der Text angezeigt werden soll:

Chart1.Series[0].AddXY(x,y,'Text');

Bei alle anderen ein Leerzeichen als Text

Chart1.Series[0].AddXY(i,i, ' ');


Vorher noch für die LineSerie:

Delphi-Quellcode:

  ALineSeries.Marks.Visible := true;
  ALineSeries.Marks.Style := smsLabel;
  ALineSeries.Marks.Arrow.Visible := false;
  ALineSeries.Marks.Frame.Visible := false;
  ALineSeries.Marks.Transparent := true;
  ALineSeries.Marks.Font.Color := AColor;

Damit wird dann der Text an der Stelle angezeigt..

[andreaschr]

Hallo Holger,
besten Dank. Das Setzen der Label funktioniert jetzt.
Gruß
Andreas