FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
agrandar Imagen en delphi7
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. |
#2
|
||||
|
||||
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).
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
||||
|
||||
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.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. Última edición por Neftali [Germán.Estévez] fecha: 03-12-2014 a las 11:27:17. |
#4
|
|||
|
|||
Muchas gracias.
Lo he probado y puede valer aunque es un poco lento, pero es una manera de empezar. Reitero las gracias. |
#5
|
||||
|
||||
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:
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.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#6
|
||||
|
||||
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Problema al agrandar este nuevo componente | José Luis Garcí | OOP | 6 | 01-06-2013 14:55:04 |
Agrandar botones al pasar el cursor | LuisAlf:: | HTML, Javascript y otros | 4 | 07-10-2010 03:06:22 |
Como cargo una imagen desde Mysql hacia aplicacion Delphi7.0? | gozi | Conexión con bases de datos | 1 | 06-02-2006 19:41:11 |
Fuentes para negrillas y agrandar las letras | Jorge Taveras | Impresión | 2 | 16-04-2005 22:47:31 |
agrandar fuente en ticket | perico | Impresión | 8 | 04-02-2005 02:55:29 |
|