Быстрая отрисовка рисунка.

09.11.2009
665
1
#1
Как можно бысторо отрисовать рисунок (TImage)(ставим размер 640Х480 и если отрисовывать попиксельно то ждем около одной секунды, что не очень хорошо), или может испольтзовать какой то другой компонент?

Код:
for i := 0 to 640 do
for j := 0 to 480 do
image1.Canvas.pixels[i,j]:=rgb(random(255),random(255),random(255));
 
09.11.2009
665
1
#2
Вот так?
Код:
bitblt(image1.Canvas.Handle,0,0,640,480,bmp.canvas.Handle,0,0,SrcCopy);
После орисовки надо обновлять форму,как это исправить?