Aumentar y disminuir un Timage
 

Hola, tengo una función para aumentar y disminuir la imagen, pero no me hace nada...
void __fastcall TForm1::AumentarClick(TObject *Sender)
{
int x= Imagen->Height;
int y= Imagen->Width;
Imagen->Height = x+100;
Imagen->Width = y+100;
Imagen->Refresh();

}

¿Qué le pasa, que no me funciona?

Gracias, saludos.

hola.
Pasa que a mi modo de ver estas tratando de modificar el tamaño original pero del archivo.

lo que debes hacer es modificar directamente el Timage por sus propiedades.

algo asi como:

Timage1->wide=300;
Timage1->height=280;

ensayalo y buena suerte.:)

Si quieres que al aumentar tu TImage se incremente tb el tamaño de tu imagen, debes modificar ciertas propiedades del TImage, a saber: Proportional, Stretch. Ambas son 2 booleanos que adaptan la imagen al tamaño del TImage, y luego vas modificando el tamaño del TImage como explica zidfrid. Al menos es lo que entiendo que deseas hacer. Si tienes otra duda consulta espero poder ayudarte

He puesto la propiedad de proporcional a True, la de Strech ya la tenía, pero sigue sin salirme, y lo de hacer TImage1->Heigth... eso creo que lo hago bien, no? porque es que mi TImagen se llama Imagen... que raro... pero esto no va...

Hola, ya me vaa!!! Oleee, pero ahora me pasa que siempre me aumenta, cuando le doy al boton de zoom- también, teniendo este código en cada uno:
En el zoom +

Imagen->Height= Imagen->Picture->Height;
Imagen->Width=Imagen->Picture->Width;
Imagen->Height = Imagen->Height*2;
Imagen->Width = Imagen->Width*2;

En el zoom -

Imagen->Height= Imagen->Picture->Height;
Imagen->Width=Imagen->Picture->Width;
Imagen->Height = Imagen->Height/2;
Imagen->Width = Imagen->Width/2;

Además de lo q siempre me aumenta, quisiera que cada vez que se pulse el botón aumentara su tamaño, al igual que para dismunuir, que solo me lo hace la primera vez...

Y ya una última preguntita, la propiedad de monocrhoma del bitmap, es para que te ponga la imagen en escalas de grises?? pq a mi me la pone toda en negra...

Gracias.
Saludos.