Помогите найти ошибку

[NeiL]

Господа программисты, помогите найти ошибку (graphics32).
Процедура особым способом проверяет пикселы bitmapa и в случае если цвет пикселя bitmapa совпадает с выбранным цветом (FColor) тогода закрашиваем его (пиксел) в красный цвет ( цвет с которым будем сравнивать храниться в переменной FColor (кстати цвет грузится в переменную из этого же bitmapa)).
Исходя из этого получается что хотябы один пиксел в любом случае будет совпадать. Но почемуто этого не происходит. Помогите решить проблему.

 procedure RecursiveFill(AX, AY: Integer);
      procedure NeedFillPixel(X, Y: Integer);
      var
        B: Integer;
        P: PPoint;
        C: TColor32;
      begin
        B := Y * BitsWidth + X;
        if (X >= 0) and (X < BitsWidth) and
           (Y >= 0) and (Y < BitsHeight)
          and (BitMask[B] = #00) then
          begin
            BitMask[B] := #01;  // Где-то здесь как мне кажется возникает ошибка
//**********************************************************************
            C := NewBitmap.Pixel[X, Y];
            if RGB(TColor32Entry(FColor).R, TColor32Entry(FColor).G, TColor32Entry(FColor).B)
                 = RGB(TColor32Entry(C).R
                     ,TColor32Entry(C).G, TColor32Entry(C).B) then
//**********************************************************************
            begin
               NewBitmap.Pixel[X, Y] := clRed32;
              GetMem(P, SizeOf(TPoint));
              P^.X := X;
              P^.Y := Y;
              Stack.Push(P);
            end;
          end;
      end;
    var
      P: PPoint;
    begin
      NeedFillPixel(AX, AY);
      with Stack do
        while Count > 0 do
        begin
          P := PPoint(Pop(True));
          try
            with P^ do
            begin
              NeedFillPixel(X + 1, Y);
              NeedFillPixel(X, Y + 1);
              NeedFillPixel(X - 1, Y);
              NeedFillPixel(X, Y - 1);
            end;
          finally
            FreeMem(P, SizeOf(TPoint));
          end;
        end;
    end;

[mutabor]

Если это заливка ограниченной области, то возможно тот пиксель не попадает в область заливки.
Если это заливка тотальная то есть всего битмапа, вернее не заливка а замена цвета, то тут все элементарно - перебрать матрицу битмапа проверяя цвет.
Перебор матрицы:
for i:=0 to Width do
for j:=0 to Height do {Проверка цвета [i,j], если нужно - закраска} ;

[NeiL]

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

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

Видимо верно. В Bitmap грузится фотография. Как с учетом этого можно решить эту проблему...

[mutabor]

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

Видимо верно. В Bitmap грузится фотография. Как с учетом этого можно решить эту проблему...

Прблему я так и не понял. Что это за заливка? Какие пиксели из всех проходят проверку?

[NeiL]

Вообщем имеется фотография предстяавляющая собой белы фон в центре которого изображен квадрат с оттенками зеленого цвета.
Если цвет с которым мы сравнивает мы берем из области квадрата, процедура не проходит ни разу, а если мы берем цвет из фона то находятся и закрашиваются найденные пиксели почему-то раз от раза.

[Sibedir]

Если у вас фотография, то вероятность того, что цвет одного из пикселей точь в точь совпадет с другим, не велика. В этом случае лучше закрашивать пикселы близкие по цвету. Что-то типа этого:

var
  FRGB, PixelRGB: TRGBQuad;
  Pixel: TColor; // Цвет пиксела, который проверяем
begin
...
  FRGB := TRGBQuad (ColorToRGB (FColor));
  PixelRGB := TRGBQuad (ColorToRGB (Pixel));
  if (PixelRGB.rgbBlue - 5 < FRGB.rgbBlue) and (PixelRGB.rgbBlue + 5 > FRGB.rgbBlue) and
     (PixelRGB.rgbGreen - 5 < FRGB.rgbGreen) and (PixelRGB.rgbGreen + 5 > FRGB.rgbGreen) and
     (PixelRGB.rgbRed   - 5 < FRGB.rgbRed  ) and (PixelRGB.rgbRed   + 5 > FRGB.rgbRed  ) and
     (PixelRGB.rgbBlue + PixelRGB.rgbGreen + PixelRGB.rgbRed - FRGB.rgbBlue - FRGB.rgbGreen - FRGB.rgbRed <= 25) then begin
    Pixel := clRed;
  end;
...
end;

[NeiL]

Все нашел... Ошибку... Код был верный ... Это я как обычно что-то накосячил в другом месте ...
Тема закрыта

[Sibedir]

2 NeiL
Уважаемый, NeiL. У нас принято, в случае нахождения ошибки, пояснять ее. Если вам не сложно, плиз. Можно без кода, если он не несет особой смысловой нагрузки.