Форум: "Система";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];
ВнизАнимация без мерцания Найти похожие ветки
← →
xxxXXxx (2003-10-23 15:25) [0]Есть код вида:
for j:=0 to maxY-1 do
begin
for i:=0 to maxX-1 do
begin
col := ...
//рисуем на канве точку
Image1.Canvas.Pixels[i,j] := col;
end;
// для того, чтобы отображалась отрисованная строка изображения
Application.ProcessMessages;
end;
Возникает проблема - при отрисовке картинки происходит мерцание изображения. Как этого избежать?
Попытки использовать SwapBuffers(DC) внутри цикла , где DC=GetDC(Form1.Handle) - устанавливал при создании форму не привели к положительному результату, может, что не так делал?
Помогите, пожалуйста.
← →
N169 (2003-10-23 16:04) [1]Control.DoubleBuffered:=True;
где Control - контрол, "на котором лежит" картинка.
Напр., Form1, если на форме, или Panel1, если на панели и т.п.
← →
xxxXXxx (2003-10-23 17:04) [2]спасибо, работает :)
← →
xxxXXxx (2003-10-23 17:20) [3]в вышеприведённом куске кода надо непосредственно перед Application.ProcessMessages;
поставить SwapBuffers( DC );
где DC := GetDC(Handle);
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c