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.:
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;