IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Вопрос по TChart
сообщение
Сообщение #1


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Как сделать чарт "прокручиваемым", то есть чтобы в текущий момент времени отображались скажем только последние 5 значений ?

Я раньше делал так:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(t);
Chart1.Series[0].AddXY(t, random(100));
if t > 5 then
Chart1.Series[0].Delete(0);
end;


но сейчас этот вариант не годится, так как необходимо иметь возможность прокрутки чарта после окончания работы программы, а delete ведь все стирает =(((

Такой вот вариант тоже не катит


//...
chart1.MaxPointsPerPage := 5;
// ...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(t);
Chart1.Series[0].AddXY(t, random(100));
if t > 5 then chart1.NextPage;
end;


Я так думаю какое-нибудь свойство надо поменять типа autoscroll ... вот только какое ?)


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 19.04.2024 13:34
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name