Fórum Undo e Redo nos gráficos #255869

TComando = (cmMoveu, cmAdicionou, cmRemoveu);

  PUndo = ^TUndo;
  TUndo = record;
  case Comando: TComando of
    cmMoveu: (PosicaoAntiga: TPoint);
    cmAdicionou, cmRemoveu: (Referencia: {Uma refrência a oque removeu ou adicionou aqui);
end;

UndoList: TStack;

var
  Undo: PUndo;
begin
  New(Undo)
  //se moveu:
  Undo.Comando := cmMoveu;
  Undo.PosicaoAntiga := Point(AntigoX, AntigoY);
  //se adicionou
  Undo.Comando := cmAdicionou;
  Undo.Referencia := ;
  //se removeu
  Undo.Comando := cmRemoveu
  Undo.Referencia := {O Que Foi Removido};
  UndoList.Push(Undo);  
end;

var
  Undo: PUndo;
begin
  Undo := UndoList.Pop;
  //ai verifica qual foi a alteração feita e faz a operação reversa
  case Undo.Comando of
    cmMoveu: Posicao := PosicaoAntiga;
    cmAdicionou: //Remove o que adiciou
    cmRemoveu: //Readiciona
  end;
  Dispose(Undo);
end;

var
  Undo: PUndo;
while UndoList.Count > 0 then
begin
  Undo := UndoList.Pop;
  case Undo.Comando of
    cmMoveu: //verifica se há alguma coisa que foi criada quado chmou Push e libera aqui, faz isso p/ todas as opções que requerem algo alocado
  end;
  Dispose(Undo);
end;