10-10-2008
|
|
Miembro Premium
|
|
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Reputación: 0
|
|
bueno...habia puesto...
Cita:
...
(origen.Pixels[i-1,j-1] = clBlack) or
(origen.Pixels[i ,j-1] = clBlack) or
...
then
destino.Pixels[i,j] := clBlack else destino.Pixels[i,j] := clWhite;
|
y el tuyo...
Cita:
...
(ABmp.Canvas.Pixels[i+1,j-1] = clwhite) or
(ABmp.Canvas.Pixels [i-1,j] = clwhite) or
...
then ABmp.Canvas.Pixels[i,j] := clblack else ABmp.Canvas.Pixels[i,j] := clwhite;
|
probablemente por eso te invierte invierte los colores |