Buena tarde. Quisiera saber si alguién me pudiera ayudar en un par de problemas que tengo.
Esta es mi situación:
Tengo que hacer un programa el cual cargue una imagen en un TImage (lo cual ya hago) y aplicarle zoom de acuerdo a la entrada del usuario.
La imagen inicialmente la ajusto al TImage (propiedad Stretch) para que se vea bien y completa.
Este TImage está dentro de un ScrollBox para cuando se tenga que hacer zoom.
Cuando el usuario quiere hacer zoom, le cambio las propiedades al TImage, para que se pueda ver la imagen con base a la escala de Zoom, y como está dentro de un ScrollBox, tiene las barras para recorrer la imagen
Código Delphi
[-]
imagen.Stretch := False;
imagen.AutoSize := True;
Mi primer problema es, cómo mantener centrada la imagen dentro del ScrollBox?
La otra situación es que el usuario puede "restaurar" la vista para que se vea de la manera inicial, es decir, Stretch/Ajustada, por lo cual cambio de nuevo los valores como muestro abajo.
Sin embargo, la imagen se sigue viendo grande (ya que es más grande que el TImage), con las barras de ScrollBox y sin aplicar Stretch. Será que después de desactivar el Stretch y activar el Autosize, ya no se puede restaurar?
Código Delphi
[-]
imagen.AutoSize := False;
imagen.Stretch := True;