PDA

Ver la Versión Completa : TDBChart poner leyendas de abajo (Horizontal Axis) en diferente ángulo


gaunmanuel
15-06-2015, 20:47:06
Que tal, tengo una cuestion con el componente TDBChart.
Lo que quiero lograr es poner las leyendas que van en la parte de abajo (Horizontal Axis) en un Angulo diferente.
Las leyendas que despliego en los llamados Horizontal Axis son algo grandes y ocupan mucho espacio si se despliegan horizontalmente, entonces si alguien sabe como modificar el Angulo en que se muestran, en un Angulo de 90 grados sería perfecto.
En la imagen anexa, es una gráfica realizada en Excel, la pongo como ejemplo de como me gustaría que se mostraran las leyendas de la parte de abajo de la gráfica.

gracias.
saludos.

ecfisa
16-06-2015, 05:07:08
Hola gaunmanuel, bienvenido a Club Delphi :).

Como es costumbre con los que ingresan, te invitamos a leer nuestra guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php).

Ejemplo:

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:

http://s2.postimg.org/npab3l4sp/Chart.png

Saludos :)

gaunmanuel
17-06-2015, 18:32:06
Es correcto, el tip funciono correctamente
Muchas gracias.
saludos.