como saber y cambiar el tamaño a una imagen

[[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.