Te propongo una idea, pero no es demasiado (limpia), más bien un parche jejejje
Cuando cargues la imagen almacenate dos variables con el alto y ancho original...
carga la imagen en un TImage con la propiedad Stretch a True de forma que el TImage se ocupa de modificar la imagen a su propio tamaño...
ahora, si te piden un 200% de zoom y la imagen media 400x400 originalmente, dale al TImage 800 de ancho x 800 de alto
¿Se entiende la idea?
Un saludo
|