Problem with GetLengendPos

[Calou]

Hello,

I use this code in order to place a radiogroup

Code: Select all

procedure TfrmMain.ChrtOccStatusGetLegendPos(Sender: TCustomChart;  Index: Integer; var X, Y, XColor: Integer);
var
  i:integer;
  chrt:TChart;
begin
  chrt:=Sender as TChart;
  for i := 0 to High(frmOccStatus.TabRdGrpOccStatus) do
  begin
    if frmOccStatus.TabRdGrpOccStatus[i].Parent=chrt then
    begin
      frmOccStatus.TabRdGrpOccStatus[i].Top:=chrt.Legend.Top+chrt.Legend.Height+10;
      frmOccStatus.TabRdGrpOccStatus[i].Left:=chrt.Legend.Left;
    end;
  end;
end;

On the chart there are a lot of square by using this event :http://www.cijoint.fr/cjlink.php?file=c ... 7CI34s.jpg


Thanks for help

Regards

[Narcís]

Hi Calou,

Can you please attach a simple example project we can run "as-is" to reproduce the problem here?

Thanks in advance.