Einzelnen Beitrag anzeigen

Danny79

Registriert seit: 16. Apr 2012
3 Beiträge
 
#1

TChart --> TpieSeries -- shadow Zuweisungsproblem

  Alt 20. Apr 2012, 10:43
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;
  Mit Zitat antworten Zitat