Delphi-PRAXiS - Einzelnen Beitrag anzeigen - TChart zur Laufzeit unterschiedliche Typen Series erstellen ohne doppelten Code

**DieDolly**

Wie erstellt man bei TCHart am besten zur Laufzeit Series? Ich habe diesen Codeblock den ich aufrufen kann. Aber wie ändere ich den ab, damit ich nicht nur TAreaSeries machen kann?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure CreateAreaSeries(const Name: string; const Color: Integer);

var

 AreaSeries: TAreaSeries;

begin

 AreaSeries := TAreaSeries.Create(FormMain.Chart1);

 AreaSeries.Name := Name;

 AreaSeries.ParentChart := FormMain.Chart1;

 AreaSeries.Dark3D := True;

 AreaSeries.Color := Color;

 AreaSeries.DrawStyle := dsCurve;

 AreaSeries.Pointer.Visible := True;

 AreaSeries.Pointer.Style := psCircle; // WIE GERNE würde ich hier segments benutzen wegen der schönen farblichen Darstellung. Aber runde Series sind einfach schöner - dann aber leider keine Farbe. NACHHOLBEDARF bei Steema!

 AreaSeries.Pointer.Size := 6;

 AreaSeries.Pointer.InflateMargins := True;

 AreaSeries.Pointer.Frame.Visible := True;

 AreaSeries.Pointer.Shadow.Visible := False;

 AreaSeries.Marks.Arrow.Style := psSolid;

 AreaSeries.Marks.Visible := True;

 AreaSeries.Transparency := 65;

 AreaSeries.Marks.Visible := True;

 AreaSeries.Marks.UseSeriesTransparency := False;

 AreaSeries.OnGetMarkText := FormMain.GetMarkText;

end;