paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 00:39:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: mode matrix: redo

Browse Source 
git-svn-id: trunk@40942 -
This commit is contained in:
mattias 2013-04-29 22:33:05 +00:00
parent 60aeaa171d
commit 1b2f18ecea
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/frames/modematrixctrl.pas
View File

@ -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;