Aumentar y disminuir un Timage

[fasthorse]

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.

[zidfrid]

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.

[luiggixD]

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

[fasthorse]

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

[fasthorse]

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.