Zur Designetime erzeugte TeeChart.Series per Name ansprechen

[newIndy]

// so funktioniert es:

Delphi-Quellcode:

procedure TMainForm.Button1Click(Sender: TObject);
var Kurve:TBitmap;
    Chart1:TChart;
    lsSeries:TLineSeries;
begin
     try
        Chart1 := TChart.Create(Self);
        lsSeries := TLineSeries.Create(Chart1);
        lsSeries.BeginUpdate;
        lsSeries.Name := 'lsAverage';
        lsSeries.Title := 'Average';
        lsSeries.Marks.Visible := False;
        lsSeries.ValueFormat := '0.#';
        lsSeries.LinePen.Width := 1;
        lsSeries.XValues.DateTime := False;
        lsSeries.XValues.Order := loAscending;
        lsSeries.YValues.Order := loNone;
        lsSeries.SeriesColor := clBlue;
        lsSeries.Pointer.Visible := False;
        lsSeries.ParentChart := Chart1; // !
        lsSeries.FillSampleValues(100);
        lsSeries.EndUpdate;
        Kurve := Chart1.TeeCreateBitmap(clWhite, Image1.ClientRect, pf24bit);
        Image1.Canvas.Draw(0,0, Kurve);
     finally
        Kurve.Free;
        lsSeries.Free;
        Chart1.Free;
     end;
end;

mfG newIndy