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

Автор темы

D Dock1100 Участник 29.03.2010

#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));

 

D Dock1100 Участник 29.03.2010

#2

Вот так?

Код:

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

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

 

D Dock1100 Участник 30.03.2010

#3

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

 

V vital Участник 30.03.2010

#4

sax_ol сказал(а):

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

Нажмите, чтобы раскрыть...

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

 

H hosm Участник 30.03.2010

#5

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

 

V vital Участник 30.03.2010

#6

OKEN сказал(а):

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

Нажмите, чтобы раскрыть...

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

 

D Dock1100 Участник 30.03.2010

#7

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