Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   problemas al recorrer imagen (https://www.clubdelphi.com/foros/showthread.php?t=56300)

fasthorse 13-05-2008 22:37:09

problemas al recorrer imagen
 
Hola, tengo un problemita al recorrer la imagen. Tengo una funcion que me pasa la imagen de color a blanco y negro, pero siempre en todas las imagenes me deja un margen derecho a color, es como si no me recorriera la imagen entera, pero el bucle esta bien creo, no?

for(int i= 0; i<Imagen->Height;++i){
for(int j=0; j<Imagen->Width;++j){
int TheRGBValue = ColorToRGB(Imagen->Canvas->Pixels[i][j]);
Byte Tono = (GetRValue(TheRGBValue)+GetGValue(TheRGBValue)+GetBValue(TheRGBValue))/3;
TColor WB = (TColor)RGB(Tono, Tono, Tono);
Imagen->Canvas->Pixels[i][j]=WB;
}
}

gracias. Saludos

coso 13-05-2008 22:49:25

usa i++, j++ . Con ++i, ++j Estas sumandole 1 antes de empezar el codigo por primera vez (lo raro es q no te haya dado error por pasarte)

fasthorse 14-05-2008 20:01:39

Hola, he hecho lo que me comentas, pero me sigue saliendo igual...lo que tengo es así:

for(int i= 1; i<Imagen->Height;i++){
for(int j=1; j<Imagen->Width;j++){
int TheRGBValue = ColorToRGB(Imagen->Canvas->Pixels[i][j]);
Byte Tono = (GetRValue(TheRGBValue)+GetGValue(TheRGBValue)+GetBValue(TheRGBValue))/3;
TColor WB = (TColor)RGB(Tono, Tono, Tono);
Imagen->Canvas->Pixels[i][j]=WB;
}
}

coso 14-05-2008 20:16:04

solo cambiar el ++j por j++ y el ++i por i++

fasthorse 15-05-2008 11:40:46

Si, así también lo probé pero nada... será por alguna propiedad del TImagen? no creo no?...

coso 15-05-2008 21:09:06

for (int i= 0; i<Imagen->Height;i++)

fasthorse 15-05-2008 22:27:51

si si, así lo tengo y tampoco me sale, sigue con el margen derecho sin pasarse a blanco y negro....

coso 15-05-2008 22:57:21

donde pone Width pon Height y donde pone Height pon Width. Sin cambiar nada mas.


La franja horaria es GMT +2. Ahora son las 00:27:14.

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