Hola gaunmanuel, bienvenido a
Club Delphi .
Como es costumbre con los que ingresan, te invitamos a leer nuestra
guía de estilo.
Ejemplo:
Código Delphi
[-]
const
TOTVAL = 8;
procedure TForm1.FormCreate(Sender: TObject);
const
CVALUES: array[1..TOTVAL] of Integer = (395, 602, 490, 553, 543, 564, 534, 703);
var
i: Integer;
Field: TField;
begin
with DBChart1 do
begin
Title.Visible := False;
Legend.Visible := False;
MarginLeft := 3;
MarginRight := 20;
Gradient.StartColor := $00B0FFB0;
Gradient.EndColor := $00A6FFFF;
Gradient.Visible := True;
BottomAxis.LabelsSize := 150;
BottomAxis.LabelsAngle := 320;
BottomAxis.LabelsSeparation := 0;
Series[0].Marks.Visible:= False;
for i:= 1 to TOTVAL do
Series[0].Add(CVALUES[i], Format('Larga cadena para label %d',[i]) ,clLime);
end;
end;
Resultado:
Saludos