TCustomChartLegend.DrawLegend
TCustomChartLegend
procedure DrawLegend;
Unit
Chart
Description
Use the DrawLegend method to draw multiple Legends on a Chart.
Example :
Assigns Series1 to the 1st Legend and Series2 to the 2nd.
procedure TMultiLegendForm.FormCreate(Sender: TObject);
begin
inherited;
Series1.FillSampleValues(4);
Series2.FillSampleValues(4);
Chart1.Legend.LegendStyle:=lsValues;
Chart1.Legend.Series:=Series1;
end;
procedure TMultiLegendForm.Chart1AfterDraw(Sender: TObject);
begin
With Chart1.Legend do
begin
Top:=125;
Series:=Series2;
DrawLegend;
CustomPosition:=False;
Series:=Series1;
end;
end;