Мерцание при прорисовке Image

← →
O?O (2004-10-30 07:13) [0]

По таймеру делаю движение фигуры, к примеру квадрата слева направо до правого края Image потом справа налево до левого края и так далее. Делаю в цикле

Сначала стираем предыдущее положение

Im.Canvas.Pen.Width := 1;
Im.Canvas.Brush.Color := clBtnFace;
Im.Canvas.Pen.Color := clBtnFace;
Im.Canvas.Rectangle(0,0,Im.Width,Im.Height);

Затем рисуем новое

Im.Canvas.Pen.Width := 1;
Im.Canvas.Brush.Color := clBtnFace;
Im.Canvas.Pen.Color := clBtnFace;
Im.Canvas.Rectangle(X,Y,X+100,Y+100);

X и Y меняем с какимнибудь шагом.

Всё бы хорошо, только прорисовка неплавная а иногда проскальзывают мерцания, типа квадрат до конца не прорисовался сразу, глазу очень заметно. Помню когда-то еще в Турбо паскале чтоб небыло мерцаний как-то там синхронизировали прорисовку с обратным ходом луча, может и в дельфях надо что-то такое делать?

← →
AZ © (2004-10-30 07:25) [1]

Попробуй
DoubleBuffered:=True

← →
O?O (2004-10-30 07:53) [2]

Бальшой спасиб :)
Очень выручили

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