IDE: auto update of save speedbuttons and menu items

git-svn-id: trunk@12122 -

ide/compileroptions.pp

@@ -1317,6 +1317,7 @@ begin
   // write
   InvalidateFileStateCache;
   XMLConfigFile.Flush;
+  FModified := False;
 end;
 
 procedure TBaseCompilerOptions.SetModified(const AValue: boolean);

ide/main.pp

@@ -761,6 +761,7 @@ type
       IgnorePageIndex: integer): string;
     function GetAncestorUnit(AnUnitInfo: TUnitInfo): TUnitInfo;
     function GetAncestorLookupRoot(AnUnitInfo: TUnitInfo): TComponent;
+    procedure UpdateSaveMenuItemsAndButtons(UpdateSaveAll: boolean);
 
     // useful file methods
     function FindUnitFile(const AFilename: string): string; override;
@@ -5560,6 +5561,26 @@ begin
     Result:=nil;
 end;
 
+procedure TMainIDE.UpdateSaveMenuItemsAndButtons(UpdateSaveAll: boolean);
+var
+  SrcEdit: TSourceEditor;
+  AnUnitInfo: TUnitInfo;
+begin
+  GetCurrentUnit(SrcEdit,AnUnitInfo);
+  // menu items
+  if UpdateSaveAll then
+    MainIDEBar.itmProjectSave.Enabled := SomethingOfProjectIsModified;
+  MainIDEBar.itmFileSave.Enabled := (SrcEdit<>nil)
+                                     and SourceNotebook.GetActiveSe.Modified;
+  if UpdateSaveAll then
+    MainIDEBar.itmFileSaveAll.Enabled := (SrcEdit<>nil)
+                                        and SourceNotebook.SomethingModified;
+  // toolbar buttons
+  MainIDEBar.SaveSpeedBtn.Enabled := MainIDEBar.itmFileSave.Enabled;
+  if UpdateSaveAll then
+    MainIDEBar.SaveAllSpeedBtn.Enabled := MainIDEBar.itmFileSaveAll.Enabled;
+end;
+
 function TMainIDE.CreateProjectObject(ProjectDesc,
   FallbackProjectDesc: TProjectDescriptor): TProject;
 begin
@@ -6328,7 +6349,7 @@ begin
   if not (sfSaveToTestDir in Flags) then begin
     ActiveUnitInfo.ClearModifieds;
     ActiveSrcEdit.Modified:=false;
-    MainIDEBar.SaveSpeedBtn.Enabled := SourceNotebook.GetActiveSe.Modified;
+    UpdateSaveMenuItemsAndButtons(not (sfProjectSaving in Flags));
   end;
   SourceNoteBook.UpdateStatusBar;
 
@@ -7359,6 +7380,9 @@ begin
   // everything went well => clear all modified flags
   Project1.ClearModifieds(true);
 
+  // update menu and buttons state
+  UpdateSaveMenuItemsAndButtons(true);
+
   DebugLn('TMainIDE.DoSaveProject End');
   Result:=mrOk;
 end;
@@ -8364,6 +8388,7 @@ begin
   CurResult:=DoCallModalFunctionHandler(lihtOnSavedAll);
   if CurResult=mrAbort then exit(mrAbort);
   if CurResult<>mrOk then Result:=mrCancel;
+  UpdateSaveMenuItemsAndButtons(true);
 end;
 
 procedure TMainIDE.DoRestart;
@@ -11704,7 +11729,7 @@ begin
     Project1.UnitWithEditorIndex(SourceNotebook.Notebook.PageIndex);
   if ActiveUnitInfo = nil then Exit;
 
-  MainIDEBar.SaveSpeedBtn.Enabled := SourceNotebook.GetActiveSe.Modified;
+  UpdateSaveMenuItemsAndButtons(false);
   MainIDEBar.ToggleFormSpeedBtn.Enabled := Assigned(ActiveUnitInfo.Component)
                                           or (ActiveUnitInfo.ComponentName<>'');
 end;
@@ -11713,7 +11738,7 @@ end;
 Procedure TMainIDE.OnSrcNotebookEditorChanged(Sender: TObject);
 begin
   if SourceNotebook.Notebook = nil then Exit;
-  MainIDEBar.SaveSpeedBtn.Enabled := SourceNotebook.GetActiveSE.Modified;
+  UpdateSaveMenuItemsAndButtons(false);
 end;
 
 procedure TMainIDE.OnSrcNotebookCurCodeBufferChanged(Sender: TObject);
@@ -12371,8 +12396,7 @@ begin
   FormEditor1.CheckDesignerPositions;
   FormEditor1.PaintAllDesignerItems;
   GetCurrentUnit(SrcEdit,AnUnitInfo);
-  MainIDEBar.SaveSpeedBtn.Enabled := (SrcEdit<>nil)
+  UpdateSaveMenuItemsAndButtons(true);
-                                        and SourceNotebook.GetActiveSe.Modified;
   if Screen.ActiveForm<>nil then begin
     AnIDesigner:=Screen.ActiveForm.Designer;
     if AnIDesigner is TDesigner then begin

ide/project.pp

@@ -3527,27 +3527,34 @@ begin
   Result:=true;
   if CheckData then begin
     if Modified then begin
-      DebugLn('TProject.SomethingModified Modified');
+      //DebugLn('TProject.SomethingModified Modified');
+      exit;
+    end;
+    if CompilerOptions.Modified then begin
+      Modified:=true;
+      DebugLn(['TProject.SomethingModified CompilerOptions']);
       exit;
     end;
-    if CompilerOptions.Modified then exit;
     for i:=0 to UnitCount-1 do
       if (Units[i].IsPartOfProject) and Units[i].Modified then begin
+        Modified:=true;
         DebugLn('TProject.SomethingModified PartOfProject ',Units[i].Filename);
         exit;
       end;
   end;
   if CheckSession then begin
     if SessionModified then begin
-      DebugLn('TProject.SomethingModified SessionModified');
+      //DebugLn('TProject.SomethingModified SessionModified');
       exit;
     end;
     for i:=0 to UnitCount-1 do begin
       if Units[i].SessionModified then begin
+        SessionModified:=true;
         DebugLn('TProject.SomethingModified Session ',Units[i].Filename);
         exit;
       end;
       if (not Units[i].IsPartOfProject) and Units[i].Modified then begin
+        SessionModified:=true;
         DebugLn('TProject.SomethingModified Not PartOfProject ',Units[i].Filename);
         exit;
       end;