Objektzugriff in Ereignisroutine

[messie]

Moin,

ich sehe mal wieder nur das Brett vor meinem Kopf, wer schneidet mir da ein Guckloch rein?

Ich muß Axislabels in einem TChart anpassen (wg. 24h-Überlauf bei der Formatierung). Alle Objekte werden zur Laufzeit erzeugt.

Delphi-Quellcode:

procedure TForm1.Chart1GetAxisLabel(Sender: TChartAxis;
               Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
var
  ser : TChartSeries;
  xvals : TChartValueList;
begin
  try
    if Series.XValues.DateTime then
    begin
      if Series.XValue[ValueIndex] > 1 then
      begin
        LabelText := TimeToStr_hhhmm(Series.XValue[ValueIndex]);
      end;
    end;
  finally

  end;
end;

Ich kann aber nicht auf die property Series.XValues.DateTime zu greifen. Habe schon versucht, lokal sowohl die Series und/oder XValues zu erzeugen und die Referenz zu übergeben, gibt immer Zugriffsverletzungen.

Ober muß ich den Chart und alles drumrum erzeugen? Dann fände ich die Implementierung der Ereignisroutine unsinnig.

Danke, Messie

[hoika]

Hallo,

aus der Hilfe.

property OnGetAxisLabel: TAxisOnGetLabel;

Für jede angezeigte Achsenbeschriftung wird ein Ereignis ausgelöst. Es gibt zwei verschiedene Einsatzmöglichkeiten für OnGetAxisLabel:

1) Achsenbeschriftungen entsprechen Werten. In diesem Fall ist der Parameter Series Nil und der ValueIndex ist -1.

2) Achsenbeschriftungen entsprechen Reihenpunkten. Der Parameter Series entspricht einer zulässigen TChartSeries und der ValueIndex der aktuellen Reihenpunktposition. Sie können den für LabelText verwendeten Parameter ändern, um eine andere Achsenbeschriftung anzuzeigen.

Kann es sein, dass dein Series NIL ist, also 1. ?

Dann musst du das wohl irgendwo umstellen.


Heiko

[messie]

Ja, Chart ist nil und Index ist -1.
Aber wie soll ich das umstellen? Ich habe nun einmal Werte auf der Zeitachse.
Ohne Zugriff auf die Werte kann ich auch den 24h-Überlauf nicht verhindern.

Den Zugriff auf die Daten habe ich jetzt:

Delphi-Quellcode:

procedure TForm1.Chart1GetAxisLabel(Sender: TChartAxis;
               Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
var
  ser : TChartSeries;
begin
  try
    with Sender as TChartaxis do
    begin
      ser := Sender.ParentChart.Series[2];
      if ser.XValues.DateTime then
      begin
        if ser.XValue[ValueIndex] > 1 then
        begin
          LabelText := TimeToStr_hhhmm(ser.XValue[ValueIndex]);
        end;
      end;
    end;
  finally

  end;
end;

Ich müßte nur erfahren, zu welchem Wert die gelieferte Labelbeschriftung gehört.

Gibt es noch eine Idee?

Grüße, Messie


[edit]Tüppfähler[/edit]

[hoika]

Hallo,

> Umstellen
siehe Hilfe (verstanden habe ich das aber acuh nicht ...)

> welcher Wert
Sender oder ValueIndex.

(Ich benutze TChart nicht.)


Heiko