Cita:
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;
imagen.AutoSize := False;
imagen.Stretch := True;
imagen.Width := aWidth;
imagen.Height := aHeigth;
ScrollBox1.VertScrollBar.Margin := 0;
ScrollBox1.HorzScrollBar.Margin := 0;
Saluditos