Смазывание изображения

[gosy.master]

Я полный нуп в программировании  . Но получил задание следующего содержания: Нужно загрузить JPEG в Image, далее нажать на кнопу и изображение должно смазатЬся. Алгоритм смазывания я нашёл. А как его применить, не понимаю, что и где должно быть прописано???    Напишите, пожалуйста, код.

Алгоритм смазывания

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
  width = 100;
  height = 60;
  d = 2;
var
  x, y: integer;
  i, j: integer;
  c: integer;
  Pix: array [0..width-1, 0..height-1] of byte;
begin
  randomize;
  with Form1.Canvas do
  begin
    Font.name := 'Arial';
    Font.Size := 30;
    TextOut(d, d, 'Text');
    for y := 0 to height - 1 do
      for x := 0 to width - 1 do
        Pix[x,y] := GetRValue(Pixels[x,y]);
    for y := d to height - d - 1 do
    begin
      for x := d to width - d - 1 do
      begin
        c := 0;
        for i := -d to d do
          for j := -d to d do
            c := c + Pix[x+i,y+j];
        c := round(c / sqr(2 * d + 1));
        Pixels[x,y] := RGB(c, c, c);
      end;
      Application.ProcessMessages;
    end;
  end;
end;

Как его к картинке в Image присобачить привязать???

[x77]

положите TImage на форму, загрузите в него картинку, и вместо Form1.Canvas поставьте Image1.Picture.Bitmap.Canvas

[gosy.master]

Попробовал всё это сделать. Сделал кнопку загрузки в Image и кнопку, который смазывает... после нажатия кнопки, по идее, должно смазать, а картинка вообще пропадает.  

[zubr]

Попробовал всё это сделать. Сделал кнопку загрузки в Image и кнопку, который смазывает... после нажатия кнопки, по идее, должно смазать, а картинка вообще пропадает. 

Проблема скорее всего в том, что у тебя картинка не битмап, а другой формат (скорее всего jpg). Если это так то надо преобразовать jpg в bmp. К примеру так:

Код:

  bmp := TBitmap.Create;
  bmp.Assign(Image1.Picture.Graphic);
  with bmp.Canvas do

После всех преобразований подключаем наш временный битмап к Image:

Код:

Image1.Picture.Assign(bmp);

После чего не забываем удалить временный битмап.
Да и убери код:

Код:

   Font.name := 'Arial';
    Font.Size := 30;
    TextOut(d, d, 'Text');

Этот код рисует смазанный текст.
Кстати алгоритм смазывания не очень удачный - он смазывает с потерей цветов.