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,