TDBChart -> Diagramm von Balken auf Torte umstellen

[Andreas Schilling]

Also beim normalen Chart geht es so. Eventuell funktioniert es wenn die Variable auf TDBChartseries geändert wird.

Delphi-Quellcode:

// Umstellung über Radiogroup
procedure TLeistungen_F.RG_AuswahlClick(Sender: TObject);
  var Serie01 : TChartSeries;
begin
  Serie01 := (series1 as Tchartseries);
  if RG_Auswahl.ItemIndex = 0
  then ChangeSeriesType(serie01, TChartSeriesClass(THorizBarSeries))
  else begin
    ChangeSeriesType(serie01, TChartSeriesClass(TPieSeries));
    (Series1 as TChartSeries).Circled := true;
  end;
end;