Create Cahrt Series at runtime.

[Kratov 0]

Hi,

I'm trying to create series at run time, It updates titles but not graphic bars.

Need Help Please.

procedure CargarGrafica< T: TUniChartSeries >();


procedure TFrmConGrupo.CargarGrafica<T>();
var
  Serie : T;
begin
  DBChart1.SeriesList.Clear;
  DmoConsultasConta.QrySaldoGru.First;
  While not DmoConsultasConta.QrySaldoGru.Eof do
  begin
    Serie := T(TUniChartSeries.Create(DBChart1));
    Serie.Name := '';
    Serie.Parent := DBChart1;
    Serie.Add(DmoConsultasConta.QrySaldoGruSALDO.AsInteger,DmoConsultasConta.QrySaldoGruDESCRIPCION.AsString);
    DmoConsultasConta.QrySaldoGru.Next;
  end;
end;


procedure TFrmConGrupo.BtnPastelClick(Sender: TObject);
begin
  inherited;
  CargarGrafica<TUniPieSeries>();
end;

Best Regards,

[ricardolb 3]

For all I know it's not possible, I already tried it, I started using HighCharts