Ayuda para hacer zoom

[[seoane]]

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:

Código Delphi [-]
// Para cargar la imagen
if Opendialog1.Execute then
  begin
    Image1.Picture.LoadFromFile(Opendialog1.FileName);
    Image1.Width:= Image1.Picture.Width;
    Image1.Height:= Image1.Picture.Height;
  end;
end;

// Zoom In
begin
  Image1.Width:= Image1.Width * 2;
  Image1.Height:= Image1.Height * 2;
end;

// Zoom Out
begin
  Image1.Width:= Image1.Width div 2;
  Image1.Height:= Image1.Height div 2;