From 1b2f18ecea024e5d72a36109f88a473121b97ddd Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 29 Apr 2013 22:33:05 +0000
Subject: [PATCH] IDE: mode matrix: redo

git-svn-id: trunk@40942 -
---
 ide/frames/modematrixctrl.pas | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/ide/frames/modematrixctrl.pas b/ide/frames/modematrixctrl.pas
index ad2cdbb387..1f672e23ca 100644
--- a/ide/frames/modematrixctrl.pas
+++ b/ide/frames/modematrixctrl.pas
@@ -1501,8 +1501,12 @@ begin
   if not CanUndo then exit;
   MatrixChanging;
   try
-    DoMatrix:=TGroupedMatrix(fUndoItems[fUndoItems.Count-1]);
+    DoMatrix:=TGroupedMatrix.Create(nil);
+    DoMatrix.Assign(Matrix);
     fRedoItems.Add(DoMatrix);
+    if MaxUndo<fRedoItems.Count then
+      fRedoItems.Delete(0);
+    DoMatrix:=TGroupedMatrix(fUndoItems[fUndoItems.Count-1]);
     fUndoItems.OwnsObjects:=false;
     fUndoItems.Delete(fUndoItems.Count-1);
     fUndoItems.OwnsObjects:=true;
@@ -1519,8 +1523,12 @@ begin
   if not CanRedo then exit;
   MatrixChanging;
   try
-    DoMatrix:=TGroupedMatrix(fRedoItems[fRedoItems.Count-1]);
+    DoMatrix:=TGroupedMatrix.Create(nil);
+    DoMatrix.Assign(Matrix);
     fUndoItems.Add(DoMatrix);
+    if MaxUndo<fUndoItems.Count then
+      fUndoItems.Delete(0);
+    DoMatrix:=TGroupedMatrix(fRedoItems[fRedoItems.Count-1]);
     fRedoItems.OwnsObjects:=false;
     fRedoItems.Delete(fRedoItems.Count-1);
     fRedoItems.OwnsObjects:=true;