Что надо сделать чтоб в Chart по оси Х шел промежуток времени?

Тема в разделе "Delphi - FAQ", создана пользователем KuevProger, 26 мар 2009.

Статус темы:
Закрыта.
  1. KuevProger

    KuevProger Гость

    Что надо сделать чтоб в chart по оси Х шел промежуток времени 5 минут?
    Вот листинг:
    Procedure TtrendThread.Execute;
    var
    i:integer;
    begin

    For i:=1 To 9 Do
    Form3.Chart1.Series[i-1].AddXY(????,value);
    sleep(100);
    end;

    спс за ранее!
     
  2. European

    Регистрация:
    4 сен 2006
    Сообщения:
    2.580
    Симпатии:
    0
    В стандартных примерах к Delphi есть очень навороченное приложение, показывающее все возможности TChart-а
     
  3. KuevProger

    KuevProger Гость

    СПС не надо я уже сам замутил:
    ar
    TrendThread:TtrendThread;
    Form3: TForm3;
    procedure StartTrend;
    implementation
    uses U_Main;

    {$R *.dfm}

    procedure StartTrend;
    begin
    TrendThread:=TtrendThread.Create(True);
    with TrendThread do begin
    Priority:=tpNormal;
    FreeOnTerminate:=True;
    Resume;
    end;
    end;

    Procedure TtrendThread.Execute;
    var
    i:integer;
    d:TDateTime;
    begin
    d:=time;
    For i:=1 To 9 Do
    Form3.Chart1.Series[i-1].AddXY(d,value);


    end;


    procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
    Action:=caFree;
    end;

    procedure TForm3.Timer1Timer(Sender: TObject);
    begin
    StartTrend;
    sleep(100);
    end;

    procedure TForm3.FormCreate(Sender: TObject);
    var d,t:TDateTime;
    Hour, Min, Sec, MSec: Word;
    begin
    LongTimeFormat:='HH:MM:SS.ZZ';{Н-нда...}
    d:=Time;

    DecodeTime( D, Hour, Min, Sec, MSec);
    Min:=Min+5;
    T:= EncodeTime(Hour, Min, Sec, MSec);
    Chart1.BottomAxis.SetMinMax(d,t);
    end;
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей