Hallo,

ich muss mich nun doch mal mit TChart befassen. Ich bin dabei ein ActiveX zu programmieren welches Diagramme zur Laufzeit erzeugt.
Soweit ist auch alles klar und es funktioniert. Jedoch bin ich nun an meine scheinbare Grenze gestoßen und komme trotz Suche und etlichen Versuchen nicht mehr weiter.

Ich muss zur Laufzeit die Eigenschaft "shadow.visible" der TPieseries ändern können.

Hat jemand eine Idee wie ich das schaffe?

Versuche über TChartSeriesStyle, TPieseries oder direkte Ansprache über die Serie schlugen fehl.

Zum Verständnis ein wenig Code.:

zusammenfalten · markieren

Delphi-Quellcode:

// PieSeries

procedure addseriesPie;
var PieShadow : vcltee.series.TPieSeries;
begin

  mychart.AddSeries(TPieSeries.Create(mychart));
  PieShadow := vcltee.series.TPieSeries.Create(mychart.series[mychart.SeriesCount-1]);
  PieShadow.Shadow.Visible := False;
  mychart.Series[mychart.SeriesCount-1].Pen.Width := 1;
  mychart.Series[mychart.SeriesCount-1].Title := titel;
  //mychart.Series[mychart.SeriesCount-1].Style := PieShadow.Shadow.Visible;
  IF Mark then
    mychart.Series[mychart.SeriesCount-1].Marks.Style := smsValue;
  mychart.Series[mychart.SeriesCount-1].Marks.Visible := Mark;
  mychart.series[mychart.SeriesCount-1].ColorEachPoint := True;
end;

procedure adddata;
var WertDouble : double;
begin
  wertdouble := Wert/100;
    mychart.Series[serie].Addy(wertdouble,titel);
end;

procedure Addsave;
begin
  mychart.SaveToBitmapFile(Speicherort);
end;

markieren

Delphi-Quellcode:

var PieShadow : TPieSeries;
begin
  PieShadow :=TPieSeries.Create(mychart);
  mychart.AddSeries(PieShadow);
  PieShadow.Shadow.Visible := False;
  mychart.Series[mychart.SeriesCount-1].Pen.Width := 1;
  mychart.Series[mychart.SeriesCount-1].Title := 'test';
  mychart.series[mychart.SeriesCount-1].Add(123,'TEst',clBlue);
  mychart.series[mychart.SeriesCount-1].Add(22,'TEst2',clLime);
end;

Unglaublich. Den Wald vor lauter Bäumen nicht gesehen.

Viel Dank !!!!