Рисование без мерцания

[Bayazet]

много уже было сказанно по этому поводу, в частности:

...вот я и удивляюсь - почему я получаю мерцание, если я вызываю Repaint или Refresh, а не метод OnPaint напрямую? Или это просто "вариация на тему"?

Имеются две фазы обновления окна. В первой фазе, при выводе окна, Windows посылает ему сообщение WM_ERASEBKGND, сообщающее о необходимости стирания фона перед процедурой рисования. Затем посылается сообщение WM_PAINT, служащее сигналом для закрашивания "переднего плана".

Тем не менее, вы можете пропустить первую фазу, которая вызывает мерцание, одним из двух способов: первый способ заключается в том, что вы форсируете обновление сами, с помощью вызова функции Windows API InvalidateRect. На входе он получает дескриптор окна, указатель на закрашиваемую область - передаем NIL, если вы хотите отрисовать всю область окна - и третий параметр, сообщающий о необходимости очистки фона. Вот как раз последний параметр и должен содержать значение FALSE, если вы сами будете в методе Paint полностью отрисовывать всю область:

InvalidateRect( Handle, NIL, FALSE ) ;

Handle должен быть дескриптором формы или элемента управления.

Описав первый способ, я скажу, что существует другое подходящее решение - использовать функциональность VCL. Вы можете указать VCL не стирать фон, добавляя [ csOpaque ] к значению свойства ControlStyle, как показано ниже:

ControlStyle := ControlStyle + [ csOpaque ] ;

Это ограничивает заполнение заднего фона, но вы все еще можете видеть процесс "наполнения" области изображением, т.е. процесс рисования. В этом случае вы можете отделаться от эффекта мельтешения, рисуя на TBitmap и выводя его затем на экран командой CopyRect.

Если вы хотите углубиться в тему дальше, то я отошлю вас к моей статье "Optimizing Display Updates in Delphi" (Оптимизация обновления экрана в Delphi), опубликованной в первом выпуске журнала "Delphi magazine".

но, может я чего не понимаю в этой жизни, но собственно, как ИСПОЛЬЗОВАТЬ эти приемы на практике?
(какие модули подключать и что конкретно писать в коде программы)

я рисую след.образом: предварительно рисую все в бмп, который потом кидаю на канву методом Canvas.Draw(0,0,bmpMap);
очищаю канву для перерисовки просто рисую большой четырехугольник с белой заливкой на области, до этого "разукрашенной"

[SERG1980]

попробуйте использовать св-во DoubleBuffered:=true;
того объекта на котором вы рисуете

[Bayazet]

хм.. у TPaintBox нет такого свойства, да и у TImage тоже нет.

[BOBAH13]

Все вы верно делаите. Зачищать канву не надо это лишнее, вы ведь не рисуите с альфа каналом
Тему надо бы закрыть.

[Bayazet]

я именно так и рисую, методом draw
но мерцает

[Bayazet]

аааааааа!! как же я лажанул!
действительно, если вручную не очищать канву, ничего не мерцает. лол.
тему закрыть)

[DeKot]

Читаем - http://www.programmersforum.ru/showthread.php?t=45082 Там и о мерцании тоже.

[DomiNick]

На всякий случай...

Иногда при мерцании формы или отдельных компонентов достаточно сделать так:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Form1.DoubleBuffered:=True;
End;

Также не нужно очищать (даже частично) TImage.Canvas - лучше рисовать на временном "холсте" TBitmap, и уже затем целиком выводить на TImage.

[Манжосов Денис :)]

Я пользуюсь кодом, который приводил Kostia.
Создаю буфер

Buf: TBitmap;

Прежде чем выводить его на форму, очищаю его:

Buf.Canvas.FillRect(Rect(0,0,Buf.Width, Buf.Height);

Потом рисую на нём объекты, типа

Buf.Canvas.Draw(x,y,bmp);

И уже в конце вывожу на экран.

Canvas.Draw(0,0,Buf);

[DeKot]

Прежде чем выводить его на форму, очищаю его:

Лучше не очищать , а обновлять фоном ( обычно при рисовании всегда есть какой то фон на котором рисуют)

Buf.Canvas.Draw(0,0,Fon);

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