Форум: "Media";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];
Внизкак избежать мерцания при перерисовке? Найти похожие ветки
← →
aspen (2002-12-03 13:06) [0]использую вот такую процедуру для рисовки графика в конве тимиджа. но поскольку процедура вызывается циклически, появляется мерцание имиджа... как от этого избавиться?
procedure DrawBuffer();
var
center, i : integer;
begin
center := FormRecord.ImageDrawGrafic.Height div 2;
ScaleX := FormRecord.ImageDrawGrafic.Width div 500;
ScaleY := 1;
FormRecord.ImageDrawGrafic.Canvas.CopyMode := cmSrcCopy;
FormRecord.ImageDrawGrafic.Canvas.Rectangle(0,0,FormRecord.ImageDrawGrafic.Width, FormRecord.ImageDrawGrafic.Height);
FormRecord.ImageDrawGrafic.Canvas.MoveTo(0, center);
for i:=0 to 500 do
begin
FormRecord.ImageDrawGrafic.Canvas.LineTo(i*ScaleX, FormRecord.ImageDrawGrafic.Height-Buffer[0,i]*ScaleY);
end;
end;
← →
MBo (2002-12-03 13:18) [1]Doublebuffered:=True для формы (или Parent-а Image, если он лежит не на форме)
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c