Zoom tipo lupa

[oregon]

Saludos,

Este hilo no es para realizar una consulta, sino para aportar algo, aunque no es mio.
Buscando soluciones a algunos de mis problemas de programación de zooms, he encontrado una página donde describe como crear un zoom de tipo lupa.

http://delphi.about.com/od/graphics/l/aa120198.htm

Creo que puede serle de utilidad a alguien, por eso lo he puesto acá. Espero no haberme saltado ninguna de las reglas del foro.

Ciao!

[[Bicho]]

Pues hombre muchísimas gracias por tu aportación!

Ahora lo que sería la repera es que cogieras ese link lo pasases a un ejemplo en Delphi y lo pusieras en la sección de trucos. Tú o cualquiera que se anime a hacerlo (sino lo hago yo ), no hay problema, no quiero ofender.

Te apuntas un gran tanto con ello.

Nuevamente muchas gracias.

Un saludos

[oregon]

El tanto ya se lo ha apuntado el propio autor de la explicación.
Al final de la explicación de cómo hacerlo, hay un par de enlaces. Uno de ellos para bajarse el código fuente, y el otro para bajar un ejecutable.
La verdad es que lo he probado y el ejemplo es la repera.
Yo lo voy a usar seguro!

No he abierto el código, pero supongo que si trae comentarios están en inglés. Pero creo que no abrá muchas dudas. Si es así solo teneis que decirlo y las traduzco.

ciao!

[[seoane]]

No veo mucha diferencia con este otro código que publique aquí, y que explica como hacerlo usando hasta 3 métodos diferentes.
[Fin de la auto promoción]

[oregon]

Perdona Sease,

me debí de saltar ese ejemplo. Ahora le hecho un vistazo.
La verdad es que para qué buscar fuera del foro lo que se puede encontrar dentro, verdad?

Gracias!

[oregon]

Saludos de nuevo,

Pues tras pegarme un buen rato con esto, no consigo aplicarlo a mi aplicación. En realidad, no me interesa que se haga un zoom sobre todo el screen , sino sólo sobre la imagen contenda en un Timagen dentro del form principal.

Alguna idea?

Muchas gracias!!

[[seoane]]

No es tan complicado, basta con utilizar el canvas de la imagen en vez de DC de la pantalla. He modificado un poco el ejemplo anterior, aunque quizá en vez de usar StretchBlt quizá seria mejor usar CopyRect, pero se utilizaría de una forma similar.