Thema: Delphi Säulendiagramm

Einzelnen Beitrag anzeigen

S20000

Registriert seit: 22. Apr 2008
84 Beiträge
 
#18

Re: Säulendiagramm

  Alt 10. Jul 2008, 22:24
Vielen Dank schonmal!
Habe das jetzt wie folgt programmiert:

Delphi-Quellcode:
implementation

{$R *.dfm}

procedure TForm14.Chart1GetAxisLabel(Sender: TChartAxis; Series: TChartSeries;
  ValueIndex: Integer; var LabelText: string);
begin
  if Sender = TChartAxis(Chart1.DepthAxis) then
    case ValueIndex of
      0: LabelText := 'Serie 1';
      1: LabelText := 'Serie 2';
      2: LabelText := 'Serie 3';
    else LabelText := '???';
    end;
end;

procedure TForm14.FormCreate(Sender: TObject);
begin
chart1.DepthAxis.LabelStyle:=taltext;
chart1.Series[0].Add(10,'1',clred);
chart1.Series[1].Add(20,'2',clblue);
chart1.Series[2].Add(20,'3',clgreen);

end;
Die Ausgabe sieht dann aus wie im BIld zu sehen. Also ohne
die gewünschten Beschriftungen.
Habe ich etwas vergessen?
Miniaturansicht angehängter Grafiken
3_189.jpg  
  Mit Zitat antworten Zitat