DBChart: Teil der Achsenbeschriftung farblich ändern

[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