DBChart: Teil der Achsenbeschriftung farblich ändern

[steppo]

Hi Leute,

ich zeige Ergebnisse in einem DBChart an. Die X-Achse stellt dabei immer ein Datum dar. Nun möchte ich auf die einzelnen Werte dieser Achse zugreifen.

Dazu muß ich über die werte auf der x-Achse iterieren.
DBChart1.BottomAxis.LabelValue(i) Bei einem bestimmten Werte möchte ich die Farbe des Wertes (und nur dieses Wertes)ändern.
Ist das möglich?

Gruß Steppo

[marabu]

Hallo Steppo,

lass die Komponente selbst iterieren und klinke dich in das Ereignis OnGetAxisLabel() ein. Hier das Prinzip:

Delphi-Quellcode:

procedure TDemoForm.DemoChartGetAxisLabel(Sender: TChartAxis;
  Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
begin
  if Sender = Sender.ParentChart.BottomAxis then
    if Assigned(Series) then
      if ValueIndex = 2
        then Sender.LabelsFont.Color := clRed
        else Sender.LabelsFont.Color := clBlack
    else
      if LabelText = '2007-02-02'
        then Sender.LabelsFont.Color := clRed
        else Sender.LabelsFont.Color := clBlack
end;

Grüße vom marabu

[steppo]

Herzlichen Dank,
habe mir einen Wolf gesucht. Zwar wurde die Font.Color bei mir ebenfalls geändert, aber leider für alle Einträge.

Nocheinmal herzlichen Dank für deine schnelle Hilfe!

Gruß Steppo