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

[Dock1100]

Как можно бысторо отрисовать рисунок (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));

 

[Dock1100]

Вот так?

bitblt(image1.Canvas.Handle,0,0,640,480,bmp.canvas.Handle,0,0,SrcCopy);

После орисовки надо обновлять форму,как это исправить?

 

[Dock1100]

Помогло, спосибо.

 

[vital]

пасибо в карман не покладешь.

Это уже вымогательство! :bequiet: Не терроризируй бедного парня)

 

[hosm]

vital
ему положено - за вредность)

 

[vital]

ему положено - за вредность)

собственную?)

 

[Dock1100]

Положил, и что дальше? :KillMe: