+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Genel Programlama (https://www.delphican.com/forumdisplay.php?fid=6)
+--- Konu Başlığı: Delphide Chart Kullanımı (/showthread.php?tid=1238)
Delphide Chart Kullanımı - mcuyan - 06-08-2017
Merhaba Arkadaşlar.
Aranızda hiç chart ile grafik çizen varmı.. ? Bir konuda yardımlarınızı rica edeceğim. baya bir araştırdım fakat bulamadım.
X düzelemindeki Labellara rotate veremedim. Normal yazı gibi yatay yazdırıyor. fakat ben dikey yazdırmam gerkeiyor. Örnek kodum aşağıdaki gibi :
Grafiği oluşturuyorum. sonrasında seriyi oluşturuyorum.
(Kodu kısaltmalı yazdım.)
Fakat X serisinin labellarını dikey yazdırmayı başaaramadım. Bu neden gerekli: X serisine tarih yazdırıyorum ve tarih sığmıyor o alana.
Var
Grafik : TChart;
seri : TLineSeries;
begin
Grafik := TChart.Create(self);
Grafik.Parent := Panel1;
Grafik.Left := 350;
Grafik.Top := 10;
Grafik.Width :=panel1.Width-350;
Grafik.Height :=panel1.Height-10;
Grafik.Hover.Visible:=False;
Grafik.Legend.Selected.Hover.Visible :=False;
Grafik.Axes.Left.Texts.Selected.Visible:=False;
Grafik.ClipPoints:=True;
Grafik.View3DOptions.Zoom:=100;
Grafik.Axes.Left.Grid.Style := psSolid;
Grafik.Anchors:=[akleft,aktop,akright,akbottom];
seri := TLineSeries.Create(Nil);
seri.ClickableLine := False;
seri.DrawStyle := dsAll;
// seri.Title := 'sertifikasiz';
seri.ParentChart := Grafik;
seri.Marks.AutoPosition:=True;
seri.Marks.AutoSize:=True;
seri.Gradient.Angle:=90;
seri.Addxy(q4.Fieldbyname('tarih').AsDateTime,q4.Fieldbyname('adet').AsInteger,formatdatetime('dd.mm.yyyy',q4.Fieldbyname('tarih').AsDateTime));
Grafik.Repaint;
Delphide Chart Kullanımı - SimaWB - 07-08-2017
Versiyona göre farklı olabilir mi bilmiyorum ama bendeki versiyonda Grafik.BottomAxis.LabelsAngle 'a açı değeri vererek istediğinizi elde edebiliyorsunuz.
Delphide Chart Kullanımı - mcuyan - 11-08-2017
Teşekkürler.. Aşağıdaki gibiymiş.
Grafik.BottomAxis.LabelsAngle:=90;
seri.Gradient.Angle:=90;