TChart "Gestapelte Säulen"

[hincapie]

Hier, aus dem Demo zu TChart, Auswahl der darstellung mit einer Radiogroup:

Delphi-Quellcode:

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  { Four ways to plot bar Series: }
  Case RadioGroup1.ItemIndex of
    0: LineSeries1.MultiBar:=mbNone;
    1: LineSeries1.MultiBar:=mbSide;
    2: LineSeries1.MultiBar:=mbStacked;
    3: LineSeries1.MultiBar:=mbStacked100;
  end;
end;

So wie Du es haben willst, ist es mbStacked.

Die LineSeries lass ich mir per Quelltext füllen, etwa so:

Delphi-Quellcode:

    for k := 0 to RecCount -1 do
    begin
      Value := Irgendein Integer-Wert
      LineSeries1.AddY(Value, Irgendein Datum, clRed);
    end;
    for l := 0 to RecCount -1 do
    begin
      Value := Irgendein anderer Integer-Wert
      LineSeries2.AddY(Value, Irgendein Datum, clGreen);
    end;