Fixed a small save bug

2005-09-12 16:08:45 +00:00
parent 0d65bb64f9
commit 12bf140931
5 changed files with 7 additions and 3 deletions
--- a/editor/studio/UnitMainTools.pas
+++ b/editor/studio/UnitMainTools.pas
@ -808,6 +808,7 @@ begin
  end;

  Result := True;
+  Cancel := False;

  ShowProgress(True);
  try
@ -1080,6 +1081,7 @@ begin
  end;

  Screen.Cursor := crHourGlass;
+  Cancel := False;
  ShowProgress(True);

  AssignFile(F, AFilename);