Скачать: CL | DM;

Как избавиться от мерцания 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)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.009 c