Оптимизация прорисовки формы

← →
oleg_ (2006-01-25 13:13) [0]

Занялся вот сабжем и вычитал что Canvas.Draw ужасно тормозной метод, попробовал проверить быстродействие еще двух: Canvas.CopyRect и апишного bitblt

Времена их работы практические одинаковые получились.
Чем еще можно побыстрее скопировать битмап?

Вот как мерил:

t1:=time;
for dd := 1 to 1000000 do
obj.Canvas.CopyRect(Bounds(x, y, bm1.Width, bm1.Height), bm1.Canvas, Bounds(0, 0, bm1.Width, bm1.Height));
t2:=time;
for dd := 1 to 1000000 do
bitblt(obj.Canvas.Handle,x,y,bm1.Width,bm1.Height,Bm1.Canvas.Handle,0,0,SRCCOPY);//PATCOPY
t3:=time;
for dd := 1 to 1000000 do
obj.Canvas.Draw(x,y, bm1);
t4:=time;

td1:=t2-t1;
td2:=t3-t2;
td3:=t4-t3;

← →
oleg_ (2006-01-25 21:01) [1]

подскажите кто какой метод выбирает?

← →
antonn © (2006-01-25 21:02) [2]

не точно мерил, нужно примерно так:

var Divisor:Int64; T1:Int64; TotalTime :Extended; iii:integer; begin if QueryPerformanceFrequency(Divisor) then begin QueryPerformanceCounter(T1); TotalTime := T1; for iii:=0 to 199 do Canvas.BrushCopy( rect(0,0,Image1.Width,Image1.Height),Image1.Picture.Bitmap,rect(0,0,Image1.Width,Image1.Height),clblack ); QueryPerformanceCounter(T1); TotalTime:=(T1-TotalTime)/Divisor; caption:=floattostr(TotalTime); //вывод времени end;

bitblt - думаю, самое быстрое, что есть...

но я обычно избегаю canvas, работаю с TBitmap и scanline.

Оптимизация прорисовки формы Найти похожие ветки