Как избавиться от мерцания TImage

← →
I'm (2002-09-09 17:08) [0]

Для примера такая процедура вызывает мерциние, видимо при получнии WM_ERASEBKGND parentom данного экземпляра TImage. Как бы мне малой кровью решить эту проблему ?

procedure TMainForm.Button2Click(Sender: TObject);
var
i : integer;
begin
for i := 1 to Image1.Width do
begin
Image1.Canvas.LineTo(random(Image1.Width), random(Image1.Height));
end;
end;

Спасибо.

← →
MBo (2002-09-09 17:14) [1]

DoubleBuffered:=True; (для формы или того контрола, на котором лежит Image)

Как избавиться от мерцания TImage Найти похожие ветки