Steema Central

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;