Ajustar (Stretch) & Centrar Imagen En TImage Dentro de ScrollBox

[Beaker_]

Muchas gracias por tu respuesta, la cuestión es que si podía yo restaurar el stretch después de ampliar la imagen usando el scroll, el problema era que no me mostraba el scroll horizontal. Una vez que hice más grande el scroll para así poder ver la barra horizontal, lo cual si funcionó, dejé de poder restaurar la imagen, por lo cual si se ha de poder, pero no sé si tengo que cambiar las propiedades del scroll o que sucede... Gracias

[*Caro*]

Empezado por Beaker_

Muchas gracias por tu respuesta, la cuestión es que si podía yo restaurar el stretch después de ampliar la imagen usando el scroll

Hola Beaker_, si utilizas solo la propiedad Strech si se puede sobre el mismo tamaño del TImage, pero si queres ampliar tendrías que asignar tu, su nuevo Width y Heigth y al restaurar lo mismo, si utilizas el AutoSize no se puede restaurar al tamaño original, tienes que guardar en alguna variable su Width y Height inicial como te indica ElDioni, y estaríamos en lo mismo si utilizaramos solo Strech.

Para que parezca centrado puedes utilizar la propiedad Margin de tu ScrollBox.

Código Delphi [-]
 aWidth := imagen.Width;
 aHeigth := imagen.Height;
 ScrollBox1.VertScrollBar.Margin := imagen.Top;
 ScrollBox1.HorzScrollBar.Margin := imagen.Left;
 imagen.Stretch := False;
 imagen.AutoSize := True;

 //Parar restaurar
 imagen.AutoSize := False;
 imagen.Stretch := True;
 imagen.Width := aWidth;
 imagen.Height := aHeigth;
 ScrollBox1.VertScrollBar.Margin := 0;
 ScrollBox1.HorzScrollBar.Margin := 0;

Saluditos