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