agrandar Imagen en delphi7

[emeritos]

Hola Dilferos.
Necesito hacer una pequeña cosa, tengo un campo longbolb, donde tengo una imagen. Necesito agrandar mas esa imagen, es decir, que el usuario pueda pasar una lupa por encima de ella y agrandar mas la imagen o parte de ella (por donde pasa la lupa). Espero haberme explicado bien.

Gracias.

[Neftali [Germán.Estévez]]

Decir que seguro que hay componentes para realizar esto, de todas forma si deseas hacerlo "a mano", no creo que sea complicado.

Se trata de utilizar un canvas (podría ser otro TImage) y para cada pixel (color) de la imagen original pintar 2 (por ejemplo) iguales, en la imagen destino (que será la lupa).

[Neftali [Germán.Estévez]]

He realizado un par de pruebas para ver si realmente se solventaba el problema utilizando lo comentado y parece que sí.
Aquí puedes ver cómo funciona...



El ejemplo está en el FTP del club y como adjunto.

[emeritos]

Muchas gracias.

Lo he probado y puede valer aunque es un poco lento, pero es una manera de empezar.

Reitero las gracias.

[Neftali [Germán.Estévez]]

A veces no nos paramos a pensar las cosas y el primer resultado, aunque funciona, no es óptimo.
Seguramente esto sea lo que me ha pasado a mí esta vez.

Luego he pensado que tal vez sea más efectivo (puedes probarlo y comentarlo) utilizar los métodos de TCanvas disponibles.
TCanvas, posee el método para copiar una porción de un Canvas a otro. Es el método CopyRect. Esa porción de Canvas se copia utilizando el modo CopyMode .

De esta forma si pones un botón en el form y colocas el siguiente código:

Código Delphi [-]
var
  sRect, dRect:TRect;
begin
  // esto solo es para "limpiar" la zona destino
  FormShow(nil);
  // definimos los 2 rectángulos; el destino es el doble del original
  sRect.Left := 0; sRect.Top := 0; sRect.Right := 40; sRect.Bottom := 40;
  dRect.Left := 0; dRect.Top := 0; dRect.Right := 80; dRect.Bottom := 80;
  // Copiamos una zona entre canvas
  Image2.Picture.Bitmap.Canvas.CopyRect(dRect, Image1.Picture.Bitmap.Canvas, sRect);

Verás que se copia una poción de la imagen superior (Image1 - 40x40) en la imagen inferior (Image2) con un tamaño del doble (80x80), con lo que conseguimos un efecto de lupa.

[Neftali [Germán.Estévez]]

Probado y efectivamente no hay color:



Link a la segunda versión (CopyRect) en el FTP.