Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como Cambiar El Color De Fondo En Una Imagen (https://www.clubdelphi.com/foros/showthread.php?t=52266)

kurono 16-01-2008 03:20:22

Como Cambiar El Color De Fondo En Una Imagen
 
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 27-11-2011 13:51:46

SimilarColors
 
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 27-11-2011 13:53:41

Recuerda usar las etiquetas para el código:




Código Delphi [-]
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;


La franja horaria es GMT +2. Ahora son las 12:58:45.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi