Tchart nesnesi increment sorunu

FireMonkey ve Mobil uygulama (iOS, Android, Windows Phone) ile ilgili sorularınızı bu foruma sorabilirsiniz.
Cevapla
Hashirama
Üye
Mesajlar: 81
Kayıt: 26 Kas 2013 03:42

Tchart nesnesi increment sorunu

Mesaj gönderen Hashirama »

Merhaba Arkadaşlar
mrmarman hocamızın daha önce paylaşmış olduğu Tchart kullanımı ile ilgili örneği üzerinde çalışma yapıyorum.

Kod: Tümünü seç

unit Unit2;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,fmxtee.Series,
  FMX.StdCtrls, FMXTee.Engine, FMXTee.Procs, FMXTee.Chart, FMX.Layouts,
  FMX.ListBox;

type
  TForm2 = class(TForm)
    Chart1: TChart;
    Button1: TButton;
    StatusBar1: TStatusBar;
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.fmx}

procedure TForm2.Button1Click(Sender: TObject);
Var
 Seri1 : TLineSeries; // USES Series
  Seri2 : TPointSeries;
  i,j:integer;
begin
  With Chart1 do begin

    View3D               := false;
    Title.Text.Text      := 'TChart Örneği - Başlık';

   BottomAxis.Minimum   :=  0;


   BottomAxis.DateTimeFormat := 'dd.mmmm';
   BottomAxis.Increment := DatetimeStep[dtOneday];
   BottomAxis.Increment := DateTimeStep[dtThirtyMinutes];
   Axes.Bottom.LabelsAngle:=90;


  //  BottomAxis.Maximum   := '24.04.2014';
 //   BottomAxis.Increment := 1;
 //  BottomAxis.Automatic := true;



   //   BottomAxis.Increment := 1;


   // BottomAxis.Title.Caption := '10''luk yatay artış değerleri';

 //    LeftAxis.Minimum     := 0;
  //   LeftAxis.Maximum     := 0.8;
  LeftAxis.Increment   := 1 ;
  //   LeftAxis.Automatic   := False;

  //  LeftAxis.Title.Caption := '0.1''lik düşey artış değerleri';


  end;

 Seri1             := TLineSeries.Create(Nil);

  Seri1.Title       := 'Çizgi Seri'; // Birden fazla seri varsa bu başlık görülür.
  Seri1.ParentChart := Chart1;
  Seri1.VertAxis    := aLeftAxis;

   for I := 0 to listbox1.Count-1 do
   begin
      Seri1.AddXY(strtodate(listbox1.Items[i]),strtoint(listbox2.Items[i]));
   end;


  Seri2 := TPointSeries.Create(Nil);
  Seri2.Title       := 'Nokta Seri';
  Seri2.ParentChart := Chart1;
  Seri2.VertAxis    := aLeftAxis;

   for j := 0 to listbox1.Count-1 do
   begin
      Seri2.AddXY(strtodate(listbox1.Items[j]),strtoint(listbox2.Items[j]));
   end;


 Seri1.XValues.DateTime:=True;


  end;

end.
ancak ekteki fotoğrafta da görüldüğü gibi

Kod: Tümünü seç

BottomAxis.Increment := DatetimeStep[dtOneday];
ve

Kod: Tümünü seç

 LeftAxis.Increment   := 1 ;
kodları istenilen işi görmüyor.
Arttırım olayını birer ve gün gün nasıl yapabilir ?

Teşekkürler.

Resim
Dosya ekleri
grafik 3 android.rar
(8.04 KiB) 100 kere indirildi
Cevapla