Zoom tipo lupa

[[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.

[oregon]

Gracias seoane,

me descargo el ejemplo y me dedico a probar. Ya te cuento si me fue bien. Muchas gracias!

[oregon]

He probado el ejemplo, y le he modificado un par de cosillas para ver si me servía, y me he encontrado con que sólo sirve para imágenes BMP.

He quitado el código de onformcreate, y he incluido una imagen jpeg en el cuadro de la izquierda. El problema es que no se ejecuta bien debido a que no es un bmp. Seguiré con ello aq ver que puedo hacer.

Gracias!!

[[seoane]]

Efectivamente, solo se pueden manipular imágenes bmp dentro de un TImage. Tenemos 2 opciones, convertir la imagen de jpg a bmp en el momento de cargarla en el TImage, operación sencilla y que no supone ningún problema, o volver a usar el DC de la pantalla como al principio pero ahora dentro del evento OnMouseMove y no dentro de un Timer. Yo casi prefiero la primera opción, pero eso depende de como realices la carga de la imagen, si en tiempo de diseño o durante el funcionamiento del programa, en ambos casos la forma de hacerlo es diferente pero igual de sencilla.