Ayuda para hacer zoom
Esto interesado en que alguien me pueda decir como lograr que una imagen se le pueda hacer zoom in y zoom out
|
1 Archivos Adjunto(s)
Sin saber mas detalles se me ocurre que puedes poner la propiedad Stretch de un TImage a TRUE, y luego aumentar o disminuir el tamaño del TImage. Para darle un mejor aspecto podemos tambien encerrar el TImage dentro de un TScrollBox de esta manera la imagen no ocupara mas alla de un determinado tamaño y podremos movernos por ella usando las barras de desplazamiento. Este efecto es solo visual, si lo que quieres es modificar el tamaño real de la imagen ya estariamos hablando de alguna rutina para redimensionar imagenes, cosa que ya tratamos no hace mucho por aqui.
La cosa quedaria asi:
|
No lo inicie yo, pero tambien te agradezco. He seguido los ejemplos que has dado al respecto. :)
|
La franja horaria es GMT +2. Ahora son las 18:13:05. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi