TDBChart poner leyendas de abajo (Horizontal Axis) en diferente ángulo

[ecfisa]

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