Timer vs ListBox

← →
Наталья (2013-01-21 11:06) [0]

Здравствуйте. При прокрутке ListBox колесом мыши (именно при прокрутке колесом) Работа таймера в программе приостанавливается. Как можно обойти этот не желательный эффект?

← →
clickmaker © (2013-01-21 11:26) [1]

А что делает таймер?

← →
И. Павел © (2013-01-21 11:27) [2]

Попробуйте использовать не TTimer а что-нибудь поточнее.
http://delphimaster.net/view/1-70307

← →
Наталья (2013-01-21 11:30) [3]

> clickmaker © (21.01.13 11:26) [1]

Timer - читает данные в массив;
PaintBox.OnPaint - рисует график в себе на основании массива.

Данные должны обновляться очень часто.

← →
clickmaker © (2013-01-21 11:36) [4]

И что, неужели прокрутка может длиться настолько долго, что это критично для графика?

← →
Наталья (2013-01-21 11:45) [5]

Это Mp3 плеер на курсовую. (Визуализация проигрывания трека)

в общих чертах:
procedure TMainForm.TimerRenderTimer(Sender: TObject); begin BASS_ChannelGetData(Channel, @FFTFata, BASS_DATA_FFT1024); PaintBox.Repaint; end; procedure TMainForm.PaintBoxPaint(Sender: TObject); begin //рисуем данные из @FFTFata end;

← →
Наталья (2013-01-21 11:46) [6]

> И что, неужели прокрутка может длиться настолько долго,
> что это критично для графика?

Очень не красиво

← →
brother © (2013-01-21 11:47) [7]

[5]! а причем тут ListBox?

← →
brother © (2013-01-21 11:51) [8]

http://jqbook.narod.ru/delphi/bass_vis.htm
может чем поможет

← →
QAZ10 (2013-01-21 11:58) [9]

> Как можно обойти этот не желательный эффект?

отключить в винде "плавную прокрутку списков"
либо не использовать соотв. компоненты

← →
Наталья (2013-01-21 13:44) [10]

> brother © (21.01.13 11:51) [8]

да не в том дело, все это получается - примеров полно.

Вопрос вот в чем:

есть таймер и листбокс

procedure TForm1.Timer1Timer(Sender: TObject); begin i := i + 1; Form1.Caption := IntToStr(i); end;

когда мы будем крутить колесо мыши в листбокс, то работа таймера будет приостанавливаться. Вывод переменной I будет рывками.

← →
O'ShinW © (2013-01-21 13:53) [11]

> procedure TForm1.Timer1Timer(Sender: TObject);
> begin
> i := i + 1;
> Form1.Caption := IntToStr(i);
> end;
>

проблема не воспроизводится

← →
O'ShinW © (2013-01-21 14:09) [12]

> проблема не воспроизводится

win7, d7
вывод плавный, хоть обкрутись
timer interval = 100
строк в листбокс 10

← →
brother © (2013-01-21 14:37) [13]

[10] вот чувствую, что дело не в тех кусках кода, что Вы показываете!

← →
brother © (2013-01-21 14:39) [14]

и не вижу ответа на [7]...

← →
Наталья (2013-01-21 14:42) [15]

> вывод плавный, хоть обкрутись

нет не плавный, попробуйте колесом (если есть)

← →
Sha © (2013-01-21 14:42) [16]

> Наталья (21.01.13 13:44) [10]
> когда мы будем крутить колесо мыши в листбокс, то работа таймера
> будет приостанавливаться. Вывод переменной I будет рывками.

Неправильно i показывать.
Правильно показывать f(GetTickCount), например, (GetTickCount-StartTickCount) div 1000

← →
brother © (2013-01-21 14:43) [17]

> нет не плавный

будем спорить?

← →
brother © (2013-01-21 14:43) [18]

> Неправильно i показывать.

хрен с ним как, главное: кто очередь сообщений вешает...

← →
Наталья (2013-01-21 14:49) [19]

> brother © (21.01.13 14:39) [14]

Весь модуль и покрутите колесом.

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; ListBox1: TListBox; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; i: Integer; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Interval := 100; i := 0; //заполним ListBox1 через инспектор end; procedure TForm1.Timer1Timer(Sender: TObject); begin Inc(i); Caption := IntToStr(i); end; end.

← →
Sha © (2013-01-21 14:54) [20]

> Наталья (21.01.13 14:49) [19]

Попробуйте в FormCreate: StartTickCount:=GetTickCount;
в Timer1Timer: Caption := (GetTickCount-StartTickCount) div 100;

← →
Sha © (2013-01-21 14:56) [21]

и Timer1.Interval := 50;

← →
Наталья (2013-01-21 15:09) [22]

> Sha © (21.01.13 14:54) [20]

Тоже самое - скроллинг колесом вешает вывод.

← →
brother © (2013-01-21 15:10) [23]

проблемму подтверждаю, но мне кажется пока идет такой скролл вешается все окно...

← →
Sha © (2013-01-21 15:12) [24]

Не совсем то же самое.
В моем варианте в течение "повешенного" интервала просто нет вывода, но время течет непрерывно.
В вашем варианте время останавливается на время зависания.

← →
Наталья (2013-01-21 15:26) [25]

> Sha © (21.01.13 15:12) [24]
>
> Не совсем то же самое.
> В моем варианте в течение "повешенного" интервала просто
> нет вывода, но время течет непрерывно.
> В вашем варианте время останавливается на время зависания.
>

Результат конечный тот же.

← →
brother © (2013-01-21 15:28) [26]

посмотрел через spy++ на момент "такого" прокручивания окно перестает получать сообщения... значит просто проблемму не решить, или вообще не решаема...

← →
Sha © (2013-01-21 15:29) [27]

> Наталья (21.01.13 15:26) [25]
> Результат конечный тот же.

Результатом работы программы является мерцание таймера 10 раз в секунду или нечто другое?
Просто любопытно.

← →
Наталья (2013-01-21 15:29) [28]

Даже такая авантюра не спасает

while True do Application.ProcessMessages;

я использовал другой подход к "подвешиванию" окна: нажимаем на колесико и ведем мышь ввех-вниз до любого скролла...

> Наталья (21.01.13 15:29) [28]
> Application.ProcessMessages;

Пристрелите того гада, который вам это показал.

← →
aka (2013-01-21 15:55) [31]

Уважаемые, я сталкивался с подобной проблемой (кстати тоже писал когда то плеер).

Может я извращенец, но проблему решил заменой ListBox на

ScrollBox и PaintBox.

Я все рано собирался в ListBox через OnDrawItem, рисовать по своему, а в PaintBox это получилось даже как то удобней.

только для прокрутки колесом нужно:
procedure TForm1.ScrollBoxMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin Handled := True; TScrollBox(Sender).VertScrollBar.Position := TScrollBox(Sender).VertScrollBar.Position - WheelDelta; end;

и учтите, что в ScrollBox нет фокуса. Нужно мудрить самостоятельно, ну хотя бы такprocedure TForm1.ScrollBoxClick(Sender: TObject); begin TScrollBox(Sender).SetFocus; end;

← →
aka (2013-01-21 15:58) [32]

А сам выводил из в StringList.

> aka (21.01.13 15:55) [31]

Мне не совсем ясно, зачем нужна визуализация плеера в момент прокрутки.

← →
aka (2013-01-21 16:04) [34]

> Sha © (21.01.13 15:59) [33]

Я не знаю что визуализирует автор вопроса. Лично у меня это был спектр частот
И действительно получается не красиво, когда крутишь колесо, а отрисовка останавливается. В идеале этого не должно быть.
Чититать данные для этого можно только таймером, который виснет.

А если, скажем, для отображения списка используется TListView, который во многом ведет себя аналогично TListBox, то придется реализовать весь его функционал вручную?
Гораздо проще применить другое интерфейсное решение, например, сдвиг отображалки спектра за пределы окна на время работы со списком.

Из основ программирования под виндовс: События таймеров имеют наинизший приоритет, соответственно выполняются после обработки всех имеющихся/появляющихся в системе событий. Т.ч. прекращайте заниматься онанизмом.

← →
aka (2013-01-21 16:23) [37]

> Sha © (21.01.13 16:15) [35]

Кто же спорит. Но если нужно вывести только список, то можно и в PaintBox. Я там еще и процентное выделение текущей песни другим цветом делал в зависимости от времени проигрывания.

← →
aka (2013-01-21 16:29) [38]

> Sha © (21.01.13 16:15) [35]

А если прятать прийдется все на свете, ну хотя бы ползунок прогресса проигрывание, ведь его передвижения окромя как таймером не сделать.

← →
QAZ10 (2013-01-21 16:30) [39]

> aka (21.01.13 16:29) [38]

Во-первых, сделать.
Во-вторых, есть другое окно.
В третьих, фокус внимания пользователя не может быть одновременно на всем: и на ползунке, и на спектре, и на списке. Решите, с чем он работает, все остальное не важно.

Timer vs ListBox Найти похожие ветки