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;