Como Cambiar El Color De Fondo En Una Imagen

[kurono]

siguiendo con el tema de la edicion de foto que puse hace unos dias que debo dar gracia a todos los colegas que me an ayudado aqui en el foro por el cual llevo mi programa bastante avanzado todos los codigo me an funcionado a la perfecion pero lo que me falta es como cambiar el color de fondo de esas imagenes y de paso como imprimirlas si se puede

[MaxiDucoli]

Hola, mirá, yo estuve usando una vez para encontrar un color similar en 3 imagenes esto:

function SimilarColors(Color1, Color2, Tolerance: Integer): Boolean;
begin
Result := ((Abs((Color1 and $ff) - (Color2 and $ff)) <= Tolerance) and
(Abs(((Color1 and $ff00) shr 8) - ((Color2 and $ff00) shr 8)) <= Tolerance) and
(Abs(((Color1 and $ff0000) shr 16) - ((Color2 and $ff0000) shr 16)) <= Tolerance));
end;

Si tu color de fondo es sólido o un color mas o menos igual en todo el fondo, capaz que esto te sirva.
Recorre la imagen y anda comparando el color y listo.
Espero que te sirva!
Saludos!

[Casimiro Notevi]

Recuerda usar las etiquetas para el código:

http://neftali.clubdelphi.com/images/UtilizarTAGs.png


function SimilarColors(Color1, Color2, Tolerance: Integer): Boolean;
begin
Result := ((Abs((Color1 and $ff) - (Color2 and $ff)) <= Tolerance) and
(Abs(((Color1 and $ff00) shr 8) - ((Color2 and $ff00) shr 8)) <= Tolerance) and
(Abs(((Color1 and $ff0000) shr 16) - ((Color2 and $ff0000) shr 16)) <= Tolerance));
end;