Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 27.02.2012, 19:34
pylsar pylsar вне форума
Прохожий
 
Регистрация: 11.02.2012
Сообщения: 18
Репутация: 10
По умолчанию Вопрос по TChart

Никак не могу вывести на ось X текущее системное время. Выводится 1900 год.
Задача такова строить график зависимости изменения, допустим, TrackBar1.Position от времени.
Вот код

Цитата:
procedure TForm1.FormCreate(Sender: TObject);
begin
Series1.XValues.DateTime := true;
Chart1.BottomAxis.Automatic := false;
Chart1.BottomAxis.Maximum := Time + 10./(60*60*24);
Chart1.BottomAxis.Minimum := Time;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var T: TDateTime;
begin
T := Time;
if(T > Chart1.BottomAxis.Maximum) then
begin
Chart1.BottomAxis.Maximum := T;
Chart1.BottomAxis.Minimum := T - 10./(60*60*24);
end;
Series1.AddXY(Time, TrackBar1.Position);
end;

Подскажите пожалуйста, где ошибка
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:41.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025