Deshacer/hacer ilimitado

[owl]

Hola!

Soy nuevo escribiendo en el foro, pero hace tiempo que me acerco por aqui
A partir de ahora, que he conseguido registrarme(me mete la activacion en el spam ) podre entrar como usuario y realizar mis aportaciones

Les remito mi caso a ver si alguien sabe un poco del tema.

Estoy intentando en una aplicacion, conseguir ese efecto de deshacer/rehacer ilimitado, no restringido a solo texto. Para ello he investigado y se habla mucho de los command design patterns, es decir, guardar un par de pilas con comandos para deshacerlos y no cadenas de string o cosas similares.
Mi pregunta es, cómo creo objetos que sean acciones? utilizo delphi4 y no se muy bien como hacer eso. Si fuese posible echar un vistazo a un código que implementase algo similar seria genial poder verlo para saber por donde van los tiros. No pretendo que se me de el codigo de mi aplicacion, cualquiera me serviria o una simple explicación, lo que me gusta es aprender y me he atascado aqui

Muchas gracias a todos los que dedicaron un par de minutitos a leerme

Un saludo!

[rafita]

Hola Owl, bienvenido al foro.

Poco te puedo ayudar con tu problema, porque mis conocimientos no dan para ello, pero te mando un hilo de este foro donde se explica cómo simular pulsaciones mediante código:
http://www.clubdelphi.com/foros/show...lsacion+codigo

Así puedes centrar un poco tu problema:
* Recoger todos los eventos que se producen en tu programa e ir guardándolos en una pila.
* Si el usuario quiere Deshacer o Rehacer, muevete por la pila, simulando las pulsaciones anteriores.

Sigue informándo/preguntando en este foro, y los compañeros que sí saben, te ayudarán.

Saludos.

[[Lepe]]

conseguir ese efecto de deshacer/rehacer ilimitado, no restringido a solo texto

El hecho de ser "ilimitado" es simplemente una lista de Objetos que crea/destruye los elementos dinámicamente, no quiere decir nada más.

Deberías concretar más sobre qué quieres aplicar el Deshacer/Rehacer.

Si un objeto tiene un método para pintar una linea:

Linea( origenX, OrigenY, DestinoX, destinoY:integer)

Puedes guardar los parámetros perfectamente y crear un método UndoLinea que elimine la linea.

Cuando se use el método Linea para pintar, guardas en una variable de tipo puntero el método UndoLinea, y eso es lo que añades a las pilas.

Aqui tienes 2 funciones, suma y resta; en un momento determinado cogemos una de las funciones, la guardamos en una variable "sel", y despues la mandamos a ejecutar.

Código Delphi [-]
type
  Tseleccion = function (a,b:Integer):Integer;

function Suma(a,b:integer):integer ;
begin
  Result := a+b;
end;

function Resta(a,b:integer):integer ;
begin
  Result := a-b;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var sel:Tseleccion;
begin
   sel := Suma;
   ShowMessage(IntToStr(sel(3,5))); // Ejecutamos la función
end;

Espero sea lo que pidas o al menos te dé alguna idea

Saludos

[[Lepe]]

Lo que deseo hacer notar es la variable "sel", que puedes asignar la funcion Suma, Resta, Multiplica, etc. y realmente en ejecución, poco nos importa si suma o resta.... estamos guardando la operación en sí misma

Si las funciones tienen distintos números de parámetros, hacemos 2 "listas" en una guardamos el tipo de operación, y en la otra lista los parámetros que lleva.

Saludos