Никак не могу вывести на ось 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;
|
Подскажите пожалуйста, где ошибка