como saber y cambiar el tamaño a una imagen

[[escafandra]]

Revisa Strech.

Saludos.

[Negriz]

Empezado por escafandra

Revisa Strech.

Saludos.

cunado uso TBitmap este atribuo no aparece en las opciones que me brinda builder....

creeme ya lo intente.

Saludos y gracias.

[[escafandra]]

Stretch es una propiedad de TImage, no del Bitmap.
No estoy seguro si afecta al TGraphic o al Bitmap del TPicture del TImage en cuestión pero en caso de afectar al graphic, lo conviertes a Bitmap (Assign)

También puedes revisar las API StretchDIBits y StretchBlt, es posible que te sirva de ayuda.

Saludos.

[Negriz]

Empezado por escafandra

Stretch es una propiedad de TImage, no del Bitmap.
No estoy seguro si afecta al TGraphic o al Bitmap del TPicture del TImage en cuestión pero en caso de afectar al graphic, lo conviertes a Bitmap (Assign)

También puedes revisar las API StretchDIBits y StretchBlt, es posible que te sirva de ayuda.

Saludos.

intenté redimencionar le Timage y despues pasarlo al bitmap para poder guardalro con esas dimenciones pero no funciona, picture del timage se paso al bitmap como si le hubiera dado loadFormFile al bitmap...

y otra cosa si el Tpicture de la Timage es con extencion .jpg como hago????

voy a mirar las apis que me pasaste...

mira mi idea es hacer cambiar el tamaño de la imagen a la de la resolucion del monitor...

depronto tengas ideas de como hacerlo...

Gracias.

[[escafandra]]

Bueno, ¿no estarás usando el Bitmap del mismo TImage (Image->Picture->Bitmap) para asignar el resultado?. Si es así, eso no te funcionará. Debes crear un TBitmap nuevo y asignarle la imagen cambiada de tamaño.

Si miras las API recuerda que utilizan un DC, (Canvas para las VCL) y que tendrás que volcar su imagen en un Bitmap.....

De todas formas no esperes resultados espectaculares tipo Photoshop.

Saludos.

[Negriz]

Empezado por escafandra

Bueno, ¿no estarás usando el Bitmap del mismo TImage (Image->Picture->Bitmap) para asignar el resultado?. Si es así, eso no te funcionará. Debes crear un TBitmap nuevo y asignarle la imagen cambiada de tamaño.

Si miras las API recuerda que utilizan un DC, (Canvas para las VCL) y que tendrás que volcar su imagen en un Bitmap.....

De todas formas no esperes resultados espectaculares tipo Photoshop.

Saludos.

ok. Creo un TBitmap nuevo, modifico el alto y largo de la TImage, al bitmap le asigno el Bitmap de la TImage, (tambien puedo asignarle el picture con el comando asign)... pero no me funciona; cuando lo guardo me sale con el tamaño original...
Sobre el "Canvas", lo he visto pero no se como funciona ni para que sirve.

Voy a buscar.

Gracias por tu respuesta.

[[escafandra]]

Bueno, vamos a ver si tratamos de simplificarlo.

Analiza este código y experimenta con el. Image1 es un TImage en Form1 al que se le carga una imagen para probar. Este código cambia el tamaño de la imagen, pero... no es photoshop...

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TImage *Image = new TImage(this);
   // Aquí dimensionamos la nueva imagen....
   Image->Height = 200;
   Image->Width  = 200;
   // Preparamos para la función StretchDraw
   TRect R(0, 0, Image->Height, Image->Width);
   // Copiamos la imagen cambiada de tamaño a Image desde Image1...
   Image->Canvas->StretchDraw(R, Image1->Picture->Graphic);
   // La salvamos para ver que ha pasado. ....EURECA....
   Image->Picture->Graphic->SaveToFile("a.bmp");
}

Saludos.