Проблема с Chart на Delphi 6 (

[Georgios]

Приветствую, славные умы!
В общем такая проблема:

Имеется внешнее устройство, которое 150 раз в секунду посылает на комп данные. Необходимо чертить график по ходу приема этих данных.

Данные приходят под типом Integer. Функция (если можно назвать ее так) в Chart'e такая : AddXY(i, buff(i), '', clRed)

Теперь, рисовать он рисует, но сколько бы не былоданных Chart умещает их в свою ширину. А мне надо, чтобы он по ходу прокруичвался, т.к. кол-во данных иногда превышает 70 - 80 тыс. значений.

Заранее спасибо

[Stilet]

Например так:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Series1.Addy(random(500));
if Series1.Count>5 then begin
 Chart1.BottomAxis.AutomaticMinimum:=false;
 Chart1.BottomAxis.Minimum:=Chart1.BottomAxis.Minimum+1;
end;
end;

т.е. прокрутка будет начаться после пятого значения.

[Georgios]

Спасибо, что откликнулся

Как я понимаю, Series - это кол-во линий на графике (ну или функций)?
Но у меня один график и после 5-го цикла выпадает ошибка, что якобы Minimal axes must be <= Maximum


P.S. Да, кстати, в данный момент я гружу данные с файла, в который когда-то они были загружены в тех железок. Может это влияет?

[Stilet]

Series - это кол-во линий на графике (ну или функций)?

Это не количество линий а сам график.

выпадает ошибка

Чтоб график "двигался" нужно дабы Chart1.BottomAxis.Minimum был меньше чем Chart1.BottomAxis.Maximum.
Тут либо проверку ставить нужно либо думать над прогой как она написана и где ты "двигаеш" график

Может это влияет?

Сумлеваюси

[Georgios]

Да, ты прав, проверка значения Maximuma и вроде как работает

Огромное спасибо!!!

[NOOB]

можно что-то типа этого:

X, Y - значения
interval_X - видимый интервал значений для X
interval_Y - видимый интервал значений для Y

procedure TForm1.Chart1Interval(X, Y : integer; interval_X, interval_Y : integer);
begin
 if abs(Y-Chart1.LeftAxis.Minimum)>interval_Y then
 begin
  if Y>Chart1.LeftAxis.Maximum then
  begin
    Chart1.LeftAxis.Maximum:=Y;
    Chart1.LeftAxis.Minimum:=Y-interval_Y;
  end
  else
  begin
    Chart1.LeftAxis.Minimum:=Y-interval_Y;
    Chart1.LeftAxis.Maximum:=Y;
  end
 end;
 if abs(X-Chart1.BottomAxis.Minimum)>interval_X then
 begin
  if X>Chart1.BottomAxis.Maximum then
  begin
    Chart1.BottomAxis.Maximum:=X;
    Chart1.BottomAxis.Minimum:=X-interval_X;
  end
  else
  begin
    Chart1.BottomAxis.Minimum:=X-interval_X;
    Chart1.BottomAxis.Maximum:=X;
  end
 end;
end;

не забудь задать свойства
Chart1.BottomAxis.Automatic:=false;
Chart1.LeftAxis.Automatic:=false;

[Georgios]

Кстати, тоже идея )
Попробую и так
Спасибо