Cancel exit if Auto Save is ON and saving new file is canceled.

packages/ide/fpmfile.inc

@@ -200,7 +200,8 @@ function TIDEApp.SaveAll: boolean;
 
   procedure SendSave(P: PView);
   begin
-    Message(P,evCommand,cmSave,nil);
+    if not SaveCancelled then
+      Message(P,evCommand,cmSave,nil);
   end;
 
 begin

packages/ide/wcedit.pas

@@ -1928,7 +1928,8 @@ begin
       end;
     if IsClipboard then FileName := '';
     Message(Application,evBroadcast,cmFileNameChanged,@Self);
-  end;
+  end else
+    Message(Application,evBroadcast,cmSaveCancelled,@Self);
 end;
 
 function TFileEditor.SaveAsk(Command: Word; Force: boolean): boolean;