Как избавиться от мерцания TImage [D6, WinXP]
I'm © (2002-09-09 17:08:00)
Для примера такая процедура вызывает мерциние, видимо при
получнии 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:00) [1]
DoubleBuffered:=True; (для формы или того контрола, на котором
лежит Image)
Наверх 
ЧАТ |
Орешник |
|
