Update simba.image.pas

Author: Torwent

Source/simba.image.pas

@@ -1452,7 +1452,6 @@ function TSimbaImage.Blend(Points: TPointArray; Radius: Integer): TSimbaImage;
   Result := Blend(Points, Radius, []);
 end;
 
-
 function TSimbaImage.Blend(Points: TPointArray; Radius: Integer; IgnorePoints: TPointArray): TSimbaImage;
 var
   P: TPoint;
@@ -1487,8 +1486,6 @@ function TSimbaImage.Blend(Points: TPointArray; Radius: Integer; IgnorePoints: T
         if Skip[Y * FWidth + X] then
           Continue;
         BGRA := FData[Y * FWidth + X];
-        if (BGRA.A = ALPHA_OPAQUE) then
-          Continue;
 
         Inc(R, BGRA.R);
         Inc(G, BGRA.G);
@@ -1502,13 +1499,13 @@ function TSimbaImage.Blend(Points: TPointArray; Radius: Integer; IgnorePoints: T
       BGRA.R := R div Count;
       BGRA.G := G div Count;
       BGRA.B := B div Count;
+      BGRA.A := ALPHA_OPAQUE;
 
       Result.FData[P.Y * FWidth + P.X] := BGRA;
     end;
   end;
 end;
 
-
 function TSimbaImage.Downsample(Scale: Integer): TSimbaImage;
 begin
   Result := SimbaImage_Downsample(Self, Scale);