No replies to this topic

[enecumene]

Para todo aquél que requiera saber cómo hacerlo, aquí os dejo como lo hice yo, en mi caso utilicé el estilo de Barras laterales:

delphi

var Barra: TBarSeries;
begin
  if (Tabla.Active) then begin
 
    Tabla.First;
    while not Tabla.Eof do begin
      Barra := TBarSeries.Create(Chart);
      Chart.AddSeries(Barra);
 
      Barra.Add(Tabla.Fields[1].AsFloat,uppercase(Tabla.Fields[1].FieldName)); //Compra
      Barra.Add(Tabla.Fields[2].AsFloat,uppercase(Tabla.Fields[2].FieldName)); //Donacion
      Barra.Add(Tabla.Fields[3].AsFloat,uppercase(Tabla.Fields[3].FieldName)); //Prestado
      Barra.Add(Tabla.Fields[4].AsFloat,uppercase(Tabla.Fields[4].FieldName)); //Transferencia
      Barra.Add(Tabla.Fields[5].AsFloat,uppercase(Tabla.Fields[5].FieldName)); //Alquilado
      Barra.Title := Tabla.Fields[0].AsString; //Mostramos el Año en la leyenda lateral
      Barra.Marks.Style := smsValue; // Mostramos los valores en las leyendas
 
      Tabla.Next;
    end;
 
    Chart.Title.Clear; //Limpiamos el titulo del grafico
    Chart.Title.Text.Add('Desglose por Modo de Adquisición Anual'); //Agregamos el titulo
 
  end;
end;

Nota: Al agregar las barras utilicé la propiedad FieldName de la tabla porque ya de por sí el campo tiene el nombre necesario, en este caso puedes especificar cualquier leyenda que desees.

 

Más abajo dejo el resultado.

 

Espero le sea de utilidad a más de uno.

 

 grafica.png   154.02KB   1 downloads

 

Saludos.