Warning en asignación de TColor a Integer

[[escafandra]]

Efectivamente, las API que usaste para aislar los componentes de color, devuelven un Byte. C es muy estricto con los tipos, por lo que te avisa de una conversión no ortodoxa pero no es un error ya que TColor es en realidad un int. Debes hacer la conversión explicita a TColor para evitar el aviso. Es recomendable hacerlo así pues evitar posibles errores derivados de una mala conversión de tipos.

Prueba esto:

Byte Tono = (GetRValue(TheRGBValue)+GetGValue(TheRGBValue)+GetBValue(TheRGBValue))/3;
TColor WB = (TColor)RGB(Tono, Tono, Tono);
Imagen->Canvas->Pixels[k][l]=WB;

Saludos.

EDITO:

Por si no comprendiste porqué los tonos eran rojizos, la pega está en asumir el color como (GetRValue(TheRGBValue)+GetGValue(TheRGBValue)+GetBValue(TheRGBValue))/3; esto es un byte que al asimilarlo a color sólo tiene componente rojo. De aquí que debas hacer RGB(Tono, Tono, Tono);

[fasthorse]

ok, muchisimas gracias, ya me salió, y si ahora quiero volver a poner la imagen en sus colores originales??

Saludos.

[[escafandra]]

Pues... No puedes volver a los colores originales a no ser que tengas una copia de la imagen original.

En algunas imágenes tipo *.bmp que no son de 24 bits (por pixel), es decir de 256 colores, 16, 8 o menos colores, éstos se guardan en una paleta en el mismo archivo. Cambiando la paleta y guardando la original, si podrías hacerlo.

Revisa esos tipos de gráficos y los Dib de Windows. Para windows todo gráfico es un Dib y estos pueden tener o no paleta, dependiendo de la profundidad de color usada.

Si la profundidad de color es 24 bits, no tenemos paleta y la única opción es guardar toda la imagen para recuperar los colores originales.

Saludos.

[fasthorse]

ok, muchas gracias, pensé que habría alguna forma, volviendo a cambiar los píxeles, lo miraré tal cual me comentas.

Gracias, y saludos.