Показать сообщение отдельно
  #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;

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