dibujar en un TImage una imagen

[Drake]

hola gente alguien sabria como dibujar imagenes cargadas en un TImage en otro como por capas una encima de otra pero sin k se borren las anteriores dibujadas creo que se hace con el metodo Canvas pero ¿como?.

[OSKR]

Img2->Canvas->Draw(0,0,Img1->Picture->Graphic);

Ahora lo de las capas, no he hecho esto antes, pero.... tal vez pudiera funcionar montando Images uno sobre otro, jugando con el transparent de cada uno, etc.

[Drake]

es justo lo k buscaba gracias OSKR lo de las capas solamente tenia k repetir el codigo:

Img2->Canvas->Draw(0,0,Img1->Picture->Graphic);
Img2->Canvas->Draw(0,0,Img3->Picture->Graphic);

y me salio a la perfeccion ahora lo malo es como deshago la accion es decir al dibujar sobre la imagen como se haria un deshacer de lo dibujado.

[[Lepe]]

Cuando es posible se guarda en un "objeto" la lista de instrucciones usadas. En este caso, guardaríamos una lista con todas las imágenes intermedias. Al deshacer, se coge de esa lista la imagen que proceda, y se asigna al TImage.

¿Y como? Yo partiría por ejemplo de un TObjectList, que básicamente permite añadir TObjects dentro, cada TObject será un TImage nuevo al que se le asigna con la imagen actual.

Consumirá mucha memoria... bueno, depende del tamaño de la imagen.

Saludos

[OSKR]

Lepe:

... bueno, depende del tamaño de la imagen.

y de la cantidad de imágenes soportadas (lenght)

[[Lepe]]

Originally Posted by OSKR

Lepe:

y de la cantidad de imágenes soportadas (lenght)

Eso siempre se deja a la elección del usuario, normalmente se asigna un valor fijo, y en las preferencias del programa se puede ampliar.

buen apunte OSKR

Saludos