Закрашивание Image по пикселям.

[_Engine_]

да пожалйста
http://www.transl-gunsmoker.ru/2009/09/blog-post.html

[A-IX-2]

Сообщение от _Engine_

да пожалйста
http://www.transl-gunsmoker.ru/2009/09/blog-post.html

Спасибо! Ну, а по теме что скажете?

[_Engine_]

По теме я уже в первом сообщении сказал
P.S. Вы хотите разобраться или ищете готовое решение?

[A-IX-2]

Сообщение от _Engine_

По теме я уже в первом сообщении сказал
P.S. Вы хотите разобраться или ищете готовое решение?

Я прекрасно знаю куда за готовыми решениями обращаться.
P.S. Сори, я имел ввиду по поводу вопроса о торможении картинки в 8 посте.

[Sparkman]

Сообщение от A-IX-2

Всем доброго времени суток!
У меня такой вопрос: Image по пикселям закрашивается очень медленно, как можно сделать быстрее?

Function ToColor(r: real): TColor;
  var
    b: byte;
begin
  b:=255-round(255*r);
  result:=RGB(255,b,0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);

  var
    _p:real;
    i,j: integer;

begin

  for I := 0 to h do
  for j := 0 to image1.Height do
  begin
    _p:=p[i];
    Pixels[h-i,j]:=ToColor(_p);
  end;

  h:=h+1;

  if h>Image1.Width then Timer1.Enabled:=False;

end;

попробуйте не использовать таймер...

[ZvEr_HaCkEr]

Тогда вот так.

[Swarog]

Есть еще один способ получем доступ к массиву пикселей напрямую, отрисовку проводим в обход методов класса Canvas или BitMap, закрашивание области в 1000х700 проводит примерно раз 30-60 в секунду...

Во архиве пример как это делать