Thema: Delphi Säulendiagramm

Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#17

Re: Säulendiagramm

  Alt 10. Jul 2008, 21:40
Klar.

Du setzt DepthAxis.LabelStyle auf talText und stellst einen event handler für OnGetAxisLabel bereit:

Delphi-Quellcode:
procedure TDemoForm.DemoChartGetAxisLabel(Sender: TChartAxis;
  Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
begin
  if Sender = TChartAxis(DemoChart.DepthAxis) then
    case ValueIndex of
      0: LabelText := 'Serie 1';
      1: LabelText := 'Serie 2';
      2: LabelText := 'Serie 3';
    else LabelText := '???';
    end;
end;
  Mit Zitat antworten Zitat