Форум программистов [Powered by Invision Power Board]

Код

  for y := 1 to Round((hei-1) / step) do
    for x := 1 to Round((wid-1) / step) do
    begin
      xx:= x*step;
      yy:= y*step;

      if (xx) >=wid then Continue;
      if (yy) >= hei then Continue;

      microCount:= 0;
      for k := 0 to step-1 do
      begin
        xk:= xx + k;
        yk:= yy;
        Application.ProcessMessages;
        Bar.Position:= Bar.Position + 1;
        red:=   R(GetPixel(BM.Canvas.Handle, xk, yk));
        green:= G(GetPixel(BM.Canvas.Handle, xk, yk));
        blue:=  B(GetPixel(BM.Canvas.Handle, xk, yk));

        // если нет ничего - след. проход :
        if (red<>0) or (green<>0) or (blue<>0) then
          Continue;

        // слева вверху :
        red:=   R(GetPixel(BM.Canvas.Handle, xk-Fk, yk-Fk));
        green:= G(GetPixel(BM.Canvas.Handle, xk-Fk, yk-Fk));
        blue:=  B(GetPixel(BM.Canvas.Handle, xk-Fk, yk-Fk));
        if (red<>255) and (green<>255) and (blue<>255) then
        begin
          Inc(microCount);
          if microCount = 1 then
            lk:= k;
          Continue;
        end;



        // слева :
        red:=   R(GetPixel(BM.Canvas.Handle, xk-Fk, yk));
        green:= G(GetPixel(BM.Canvas.Handle, xk-Fk, yk));
        blue:=  B(GetPixel(BM.Canvas.Handle, xk-Fk, yk));
        if (red<>255) and (green<>255) and (blue<>255) then
        begin
          Inc(microCount);
          if microCount = 1 then
            lk:= k;
          Continue;
        end;

        // справа :
        red:=   R(GetPixel(BM.Canvas.Handle, xk+Fk, yk));
        green:= G(GetPixel(BM.Canvas.Handle, xk+Fk, yk));
        blue:=  B(GetPixel(BM.Canvas.Handle, xk+Fk, yk));
        if (red<>255) and (green<>255) and (blue<>255) then
        begin
          Inc(microCount);
          if microCount = 1 then
            lk:= k;
          Continue;
        end;



        // вверху :
        red:=   R(GetPixel(BM.Canvas.Handle, xk, yk-Fk));
        green:= G(GetPixel(BM.Canvas.Handle, xk, yk-Fk));
        blue:=  B(GetPixel(BM.Canvas.Handle, xk, yk-Fk));
        if (red<>255) and (green<>255) and (blue<>255) then
        begin
          Inc(microCount);
          if microCount = 1 then
            lk:= k;
          Continue;
        end;

        // справа вверху :
        red:=   R(GetPixel(BM.Canvas.Handle, xk+Fk, yk-Fk));
        green:= G(GetPixel(BM.Canvas.Handle, xk+Fk, yk-Fk));
        blue:=  B(GetPixel(BM.Canvas.Handle, xk+Fk, yk-Fk));
        if (red<>255) and (green<>255) and (blue<>255) then
        begin
          Inc(microCount);
          if microCount = 1 then
            lk:= k;
          Continue;
        end;

        // слева внизу :
        red:=   R(GetPixel(BM.Canvas.Handle, xk-Fk, yk+Fk));
        green:= G(GetPixel(BM.Canvas.Handle, xk-Fk, yk+Fk));
        blue:=  B(GetPixel(BM.Canvas.Handle, xk-Fk, yk+Fk));
        if (red<>255) and (green<>255) and (blue<>255) then
        begin
          Inc(microCount);
          if microCount = 1 then
            lk:= k;
          Continue;
        end;

        // снизу :
        red:=   R(GetPixel(BM.Canvas.Handle, xk, yk+Fk));
        green:= G(GetPixel(BM.Canvas.Handle, xk, yk+Fk));
        blue:=  B(GetPixel(BM.Canvas.Handle, xk, yk+Fk));
        if (red<>255) and (green<>255) and (blue<>255) then
        begin
          Inc(microCount);
          if microCount = 1 then
            lk:= k;
          Continue;
        end;

        // справа снизу :
        red:=   R(GetPixel(BM.Canvas.Handle, xk+Fk, yk+Fk));
        green:= G(GetPixel(BM.Canvas.Handle, xk+Fk, yk+Fk));
        blue:=  B(GetPixel(BM.Canvas.Handle, xk+Fk, yk+Fk));
        if (red<>255) and (green<>255) and (blue<>255) then
        begin
          Inc(microCount);
          if microCount = 1 then
            lk:= k;
          Continue;
        end;
      end;

      // если есть попадания - граф инфа :
      if (microCount < step) and (microCount <> 0) then begin
        Inc(Count);
        if NeedDraw then
        Image1.Canvas.Ellipse(lk+xx-10, lk+yy-10,
          lk+xx+10, lk+yy+10);
      end;
    end;