De Imagen a bitmap
 

Hola amigo/as de Delphi.

LLevo unos día intentando hacer algo que ni siquiera sé si es posible.

Tengo 4 TImages en mi formulario.

En las 3 primeras cargo sendas imágenes del disco.

Y deseo visualizar en la cuarta TImage 3 miniaturas de las primeras.

Para hacer esto he intentado todo lo que se me ha ocurrido, pero no consigo ni que se vea una miniatura.

Básicamente, si los 4 TImages son del mismo tamaño (300x300) lo que intento es coger el bitmap de la primer TImage y con StreshDraw incorporarlo al 4 TImage con un tamaña de 100x100 y así sucesivamente, pero no se por donde continuar.

Espero que me podáis ayudar, seguro que conoceréis la sensación de no saber por donde continuar.

Gracias.

Pues creo que utilizando CopyRect para copiar porciones de unas imágenes hacia la nueva puedes conseguir lo que necesitas.
Revisa este hilo. Habra sobre el tema de "Dividir imágenes" y sobre "juntarlas de nuevo".

Incluso tienes un par de ejemplos al respecto.

Muchas gracias. Perdona pero no veo el hilo que me indicas.

HE probado con CopyRect y lo que sucede es que la imagen que he cargado del disco con Imag1.Picture.LoadFromFile('Filename'), creo que se aloja en el bitmap del la TImage: "Image1.Picture.Bitmap"

Si tocas el canvas del TImage, se pierde la imagen guardada en el bitmap, es como si sólo funcionara uno o el otro y como CopyRect , creo, sólo funciona con canvas no tienes manera de tratar la imagen.

Saludos.

Debe ser porque no lo he puesto. :o:o
Perdona, ya está corregido (link).