Hallo Holger,
Delphi-Quellcode:
procedure TDemoForm.ChartGetAxisLabel(Sender: TChartAxis;
Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
var
iMonth: Integer;
begin
if TryStrToInt(LabelText, iMonth)
and (iMonth in [1..12])
and (Sender = Sender.ParentChart.BottomAxis) then
LabelText := LongMonthNames[iMonth];
end;
sieht irgendwie hübscher aus - findest du nicht?
Freundliche Grüße