Keeping the Legend Symbols the same size

[EdDressel]

In the attached demo, you can select if the line for the pie series is visible or not, and if it is, if it is white or black.

THis part works fine.

I would like to keep the symbols in the legend large--without the border around them (like the chart when no series pen is visible).

Can this be done?

Thank you,

Ed Dressel

[EdDressel]

I tried the following code but it colors each symbol with the same color (of course). I don't know how to get the color for each slice.

Code: Select all

  Chart1.Legend.Symbol.OnDraw := ChartLegendDraw;


procedure TForm1.ChartLegendDraw(Sender: TObject; aSeries:TChartSeries; ValueIndex:Integer; R:TRect);
var
  lBarSeries: TBarSeries;
  lCanvas: TCanvas3D;
  lBlend: TTeeBlend;
begin
  lCanvas := aSeries.ParentChart.Canvas;
  lCanvas.Brush.Color := aSeries.Color;
  lCanvas.Pen.Color := lCanvas.Brush.Color;
  lCanvas.Rectangle(R);
end;

Thank you for your help.

Ed Dressel

[EdDressel]

I posted this in the wrong group, but in case you are wondering, here is the solution:

procedure TForm1.ChartLegendDraw(Sender: TObject; aSeries:TChartSeries; aValueIndex:Integer; aR:TRect);
var
lCanvas: TCanvas3D;
lClr: TColor;
begin
lCanvas := aSeries.ParentChart.Canvas;
lClr := aSeries.LegendItemColor(aValueIndex);
lCanvas.Brush.Color := lClr;
lCanvas.Pen.Color := lClr;
lCanvas.Rectangle(aR);
end;


This concerns me about FMX though--no one here.

[Marc]

Hello Ed,

Code: Select all

This concerns me about FMX though--no one here.

Yes, we were slow to react to your post. Workload doesn't always allow us to get to every post straight away; we should have noticed your post on the TeeGrid forum and moved it to TeeChart.

Regards,
Marc

[Yeray]

Hello,

An alternative would be to hide the pie series from the legend and use a point series for each item you want to be in the legend. Ie:

Code: Select all

var i: Integer;
begin
  for i:=0 to Series1.Count-1 do
    with TPointSeries(Chart1.AddSeries(TPointSeries)) do
    begin
      Pointer.Pen.Visible:=False;
      Pointer.Size:=6;
      Title:=Series1.LegendString(i,Chart1.Legend.TextStyle);
      Color:=Series1.ValueColor[i];
    end;

  Series1.ShowInLegend:=False;
  Chart1.Walls.Hide;