Мерцание при обработке Resize

← →
Alextp © (2006-06-10 20:09) [0]

Компонент рисует на канве. После нажатия клавиш делается скролл и перерисовка: все хорошо, мерцания нет. Но: перерисовка делается и в методе Resize: а тут уже плохо, мерцание есть и сильное (под WinXP).

Код примерно такой:
Redraw: моя процедура, делающая перерисовку буфера и вызывающая Paint;
Paint (override): вызывает Canvas.Draw(0, 0, FBitmap); т.е. отрисовку буфера.
Rezize (override): вызывает только Redraw;

В чем проблема?
Кажется, при Resize помимо вызова моей Redraw где-то в VCL вызывается "своя" перерисовка, из-за чего и набл. мерцание. Но как это поправить?

← →
Alextp © (2006-06-10 20:29) [1]

Добавление: мерцание при ризайзе есть даже если вообще убрать у меня метод Resize. То есть проблема кажется где-то в VCL... или я чего-то не учел.

← →
Юрий Зотов © (2006-06-10 21:07) [2]

Трудно сказать, не видя кода, но навскидку - слишком много перерисовок. По идее, должно хватать одного только Paint, но если этого недостаточно, то вызывайте Invalidate, а не прямое рисование. Еще - посмотрите DoubleBuffered, тоже может помочь.

← →
Макс Черных © (2006-06-10 21:19) [3]

Первым делом надо поставить в конструкторе.

DoubleBuffered := true; ControlStyle := ControlStyle + [csOpaque];

А вообще, посмотри метод TWinControl.WMEraseBkgnd
Сразу станет понятно - что моргает, зачем моргает.

DoubleBuffered := true;

- помогло. Спасибо!
csOpaque тоже полезный флаг, но и без него все хорошо. Я кстати не понял из хелпа зачем он нужен:

csOpaque
The control completely fills its client rectangle.

- Это мой случай, кстати.

> Я кстати не понял из хелпа зачем он нужен

Суть простая. Если control имеет csOpaque, то следовательно закрывает (т.е. рисует сам) всю клиентскую область. Следовательно, системе нет надобности стирать фон, т.е. делать EraseBackGround. Соответственно, нет и моргания на перерисовке. В принципе, при DoubleBuffered := true оно и так не моргает, но по правильному надо ставить csOpaque.

Мерцание при обработке Resize Найти похожие ветки