Como fazer a função Undo e Redo?

Queria saber como se faz essas duas funções, só que em todo o programa que estiver desenvolvendo.

Hum... Acho que teria que usar INI pra isso.

Salvar as ultimas teclas que você pressionou. E aí quando pressionar CTRL + Z ele lê a ultima linha do INI antes da atual.

Bem embora vc n tenha sido mto especifico na sua pergunta, poderia ser undo/redo em texto ou em objetos, posicionamento... tamanho... etc.

Então, no caso de texto basta usar Rich Edit Object e marca a opção de undo e setar o numero maximo de levels que será salvo.

Com está mesma extensão vc poderia adaptar para outros tipos... sabendo-se que ela possibilita fazer esta função de maneira pratica, pode criar um Rich Edit Object para armazenar todas as funções efetuadas de maneira descritiva, exemplo:

Código:

press "Enter":
                    Create New Objects: Create "objeto"
                    Objeto: Set Alterable Value A "001"
                    Objeto: Set Coord. X 10
                    Objeto: Set Coord. Y 20
                    Rich Edit Object: $Newline
                                            Set Text: Alterable value A("objeto")+","+X("objeto)+","+Y("objeto")

Dese jeito vc guardou a informação do objeto criado em uma nova linha do Rich Edit... Assim pode fazer...

Código:

press Ctrl:
press Z:
Alterable Value A ("objeto") = CurrentLine($Left(GetLine("Rich Edit Object"),3)):
                    Objeto: Destroy   
                    Rich Edit Object: Undo

///---ou seja, os 3 primeiros caracteres da linha atual ser igual ao Alterable Value A do objeto, espero ter ajudado, o modo que eu tentei explicar foi apenas pra dar uma ideia, como eu ainda n testei isso n posso dizer q é exatamente deste modo q faz, mas é bem possivel fazer se baseando nisso, nada q um pouco de logica n resolva.---///