Como hacer una funcion DESHACER

[newbery]

Estoy haciendo Paint, trabajo sobre un TImage, necesitaria como hacer la funcion DESHACER y la de RELLENO.
Saludos.:)

[Neftali [Germán.Estévez]]

Dos formas (dependiendo de cómo estés "pintando" en tu "Paint" deberás hacer una u otra.):
(1) Te guardas el estado actual justo antes de cada cosa que quieras deshacer. Es sencilla de implementar, pero costosa, en cuanto que guardas muchas más cosas de las necesarias. Si está pintando sobre un Canvas (directamente) es la que vas a tener que hacer, porque no tendrás otra forma de restaurar lo anterior (puedes borrar una línea, pero es difícil que puedas recuperar lo que había debajo).

(2) La segunda es posible si no pintas directamente (si trabajas con objetos, para las líneas, rectángulos,...); En ese caso debes guardarte una relación de las ultimas operaciones que has hecho con cada objeto y ese objeto en particular en su estado anterior.
De todas formas en alguna operación (como el Rellenado) tal vez si tengas que guardar todo el estado.

Para el relleno mira los procedimientos de FloodFill y FillRect de TCanvas.

[MAXIUM]

Neftali, acabo de pintar una circunferencia sobre el canvas de un TImage y necesito deshacerla, podrías manifestarte con algún código :p

[roman]

ExitWindowsEx(EWX_REBOOT, 0);


// Saludos

[Neftali [Germán.Estévez]]

Código Delphi [-]ExitWindowsEx(EWX_REBOOT, 0);


La función de Román seguro que deshace el pintado de la circunferencia, aunque tal vez es un poco drástica.:D:D
Prueba a Repintar el TImage.

[MAXIUM]

jojojo, ya se cuanto me quieren, vez que pregunto algo en foro me dicen que la solución esta en apretar Alt+F4.

Me imagino que primero capturo la región en la que dibujare, por ejemplo si hago una circunferencia, la porción a de tener las mismas dimensiones.

Si quiero "deshacer" el dibujo, vuelvo a colocar esa porción de la imagen capturad en la posición original. Ahora que lo pienzo, eso no es exactamente un deshacer pero creo que resultara.

P.D.: ¿por que cuando no me dan soluciones termino respondiendome a mi mismo...?

[cHackAll]

Ahh no se MAXIUM pero si recuerdo que [coso] aportó un codigo que hace lo que el hilo busca.

[MAXIUM]

Gracias cHackAll, ya lo encontre http://www.clubdelphi.com/foros/showthread.php?t=61845&highlight=deshacer

Lo adapte a mis necesidades y siiiiii funciona!!!:p

[MAXIUM]

Borrar por doble post