mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed the dreadful "Undo list index out of range" bug

Browse Source
This commit is contained in:
zueuk 2005-10-25 10:57:41 +00:00
parent f95eef2378
commit bbfdaac633
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
2.10/Source/Main.pas
View File

@ -912,7 +912,7 @@ procedure TMainForm.UpdateUndo;
begin
SaveFlame(MainCp, Format('%.4d-', [UndoIndex]) + MainCp.name, AppPath + 'apophysis.undo');
Inc(UndoIndex);
inc(UndoMax);
UndoMax := UndoIndex; //Inc(UndoMax);
mnuSaveUndo.Enabled := true;
mnuUndo.Enabled := True;
mnuPopUndo.Enabled := True;
@ -1294,8 +1294,8 @@ begin
if EntryExists(title, filename) then DeleteEntry(title, fileName);
Append(IFile);
end
else
ReWrite(IFile);
else ReWrite(IFile);
sl := TStringList.Create;
try
cp1.SaveToStringList(sl);
@ -3250,7 +3250,7 @@ begin
StopThread;
Inc(UndoIndex);
assert(UndoIndex < UndoMax, 'Undo list index out of range!');
assert(UndoIndex <= UndoMax, 'Undo list index out of range!');
LoadUndoFlame(UndoIndex, AppPath + 'apophysis.undo');
mnuUndo.Enabled := True;