DBChart von Balken auf linien zur laufzeit umstellen

[BrunoT]

Hi Schodn,


versuchs mal so:

Delphi-Quellcode:

Var
  MyClass: TChartSeriesClass;
  Serie:TChartSeries;
....
//Ratiogroup zur Auswahl
    CASE  DTyp1.ItemIndex OF
      0:MyClass:=TLineSeries;
      1:BEGIN MyClass:=TBarSeries; BTyp.Visible:=True; END;
      2:BEGIN MyClass:=THorizBarSeries; BTyp.Visible:=True; END;
      3:MyClass:=TAreaSeries;
      4:MyClass:=TPointSeries;
      5:MyClass:=TPieSeries;
      6:MyClass:=TFastLineSeries;
      END;
      ELSE
    END;

...
//Neue Serie mit gewünschten Eigenschaften erzeugen
Serie := MyClass.Create(Chart1);
Chart1.AddSeries(Serie);

...
//Werte einfügen oder Mit Datenquelle verbinden
Serie.Add(p,s);
//oder
Serie.DataSource:=Chart1.Series[0];
...
//Ursprüngliche Serie löschen
     Chart1.Series[0].SetFunction(NIL);
     Chart1.Series[0].Free;

mfg

BrunoT