Coso e intentado de esta forma pero tbm no me dio resultado, conste q si creo un origen y un destino no me compila, me da una mesage de falta de parametros, y como esta abajo solo invierte los colores
Código Delphi
[-]
procedure Erosionar( ABmp : TBitmap);
var
i, j : integer;
begin
for i := 0 to ABmp.Width do
for j := 0 to ABmp.Height do
begin
if (ABmp.Canvas.Pixels[i-1,j-1] = clwhite) or
(ABmp.Canvas.Pixels[i ,j-1] = clwhite) or
(ABmp.Canvas.Pixels[i+1,j-1] = clwhite) or
(ABmp.Canvas.Pixels [i-1,j] = clwhite) or
(ABmp.Canvas.Pixels [i ,j] = clwhite) or
(ABmp.Canvas.Pixels [i+1,j] = clwhite) or
(ABmp.Canvas.Pixels [i-1,j+1] = clwhite) or
(ABmp.Canvas.Pixels [i ,j+1] = clwhite) or
(ABmp.Canvas.Pixels[i+1,j+1] = clwhite) then
ABmp.Canvas.Pixels[i,j] := clblack else ABmp.Canvas.Pixels[i,j] := clwhite;
end;
end;