Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Курс видеоуроков программирования и крэкерства 6.0
(актуальность: февраль 2017)
Свежие инструменты, новые видеоуроки!

  • 300+ видеоуроков
  • 800 инструментов
  • 80 свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Размыть изображение

В этом способе цвету каждой точки присваивается среднее значение цветов соседних точек.


 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS