Работа с пикселями на канве

[sergkl]

Ну если вам нужно определить количество пикселей, то получается вы имеете в виду что зоны эти отделены друг от друга. Тогда можно попробовать так

Сначала перенести на битмап все пиксели имеющие заданный цвет. Потом идти по битмапу находя пиксель, от него начинаем и находим всю зону которой он пренадлежит. В процессе нахождения переносить все еще на один битмап таким образом будет понятно какие пиксели из данной области пройдены. Это нахождение можно выполнять рекурсивно, от очередного пикселя проверять все прилегающие. Далее на новом битмапе посчитать размер области (как вы считаете нужным) и определить закрашивать или нет область на исходном изображении. После этого стереть ее с первого битмапа.
Так можно перебрать все области если они отграничены.

Конечно скорость при таком алгоритме может быть низка.

При помощи проверки радиуса думаю здесь не подойдет, потому что точка в области береться произвольной. И таким образом мы можем перескакивать и учитывать и другую облать.

[koshel]

Нежелательных зон не больше 3-4 на всей фотке. только загвоздка что я в графике вообще 0((( пробовал не перенося в битмап искать ничего не вышло -результат не предсказуем((( проверял по 8 точкам искать то есть если есть 8 точек одного цвета значит это не шум, если нет значит красим так оно мне такую зебру делало((

[Zeraim]

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

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

[koshel]

Спасибо всем за помощь проблему решил так

procedure TForm1.Button1Click(Sender: TObject);
  var
  X3,Y3:integer;
begin

for X3:=1 to image1.Picture.Width do
for Y3:=1 to image1.Picture.Height do

             if (Image1.canvas.Pixels[X3, Y3] = Pix1)
                and (Image1.canvas.Pixels[X3+1, Y3] = Pix1)
                and (Image1.canvas.Pixels[X3+2, Y3] = Pix1)
                and (Image1.canvas.Pixels[X3+3, Y3] = Pix1)
                and (Image1.canvas.Pixels[X3, Y3+1] = Pix1)
                and (Image1.canvas.Pixels[X3, Y3+2] = Pix1)
                and (Image1.canvas.Pixels[X3, Y3+3] = Pix1)
                and (Image1.canvas.Pixels[X3+1, Y3+1] = Pix1)
                and (Image1.canvas.Pixels[X3+2, Y3+2] = Pix1)
                and (Image1.canvas.Pixels[X3+3, Y3+3] = Pix1)
                and (Image1.canvas.Pixels[X3+1, Y3-1] = Pix1)
                and (Image1.canvas.Pixels[X3+1, Y3-2] = Pix1)
                and (Image1.canvas.Pixels[X3+1, Y3-3] = Pix1)
                                      then
                                      Image1.canvas.Pixels[X3, Y3]:= Pix1
                                      else
                                      Image1.Canvas.Pixels[X3,Y3] := clwhite
                                       end;

просто убираю не сформированые области пикселей, а полноценные зоны оставляю.