From fd1ff1055bd7753ea2cdc1d805c0261113b05b81 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sat, 5 Sep 2015 22:29:56 +0000
Subject: [PATCH] IDE: Mark project as modified after changing resources. Issue
 #28625, patch from Anton.

git-svn-id: trunk@49767 -
---
 ide/frames/project_resources_options.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/ide/frames/project_resources_options.pas b/ide/frames/project_resources_options.pas
index c0aa2c8222..fac3476d6d 100644
--- a/ide/frames/project_resources_options.pas
+++ b/ide/frames/project_resources_options.pas
@@ -37,6 +37,7 @@ type
     procedure lbResourcesSelectItem(Sender: TObject; {%H-}Item: TListItem; {%H-}Selected: Boolean);
   private
     FProject: TProject;
+    FModified: Boolean;
   private
     FAddResourceItemDuplicates: integer;
     FResourceNameList: TStringList; // to keep resource names unique
@@ -102,6 +103,7 @@ begin
     lbResources.Items.Clear;
     FResourceNameList.Clear;
     FResourceFileNameList.Clear;
+    FModified := True;
   end;
   btnClear.Enabled := lbResources.Items.Count > 0;
 end;
@@ -119,6 +121,7 @@ begin
     FResourceFileNameList.Delete(FResourceFileNameList.IndexOf(resFileName));
 
     lbResources.Items.Delete(lbResources.Selected.Index);
+    FModified := True;
   end;
   btnClear.Enabled := lbResources.Items.Count > 0;
 end;
@@ -265,6 +268,7 @@ begin
 
   FResourceFileNameList.Add(ResFile);
   FResourceNameList.Add(ResName);
+  FModified := True;
   exit(true);
 end;
 
@@ -339,6 +343,7 @@ begin
     AddResourceEnd;
   end;
   btnClear.Enabled := lbResources.Items.Count > 0;
+  FModified := False;
 end;
 
 procedure TResourcesOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
@@ -346,11 +351,13 @@ var
   Project: TProject;
   I: Integer;
 begin
+  if not FModified then Exit;
   Project := (AOptions as TProjectIDEOptions).Project;
   Project.ProjResources.UserResources.List.Clear;
   for I := 0 to lbResources.Items.Count - 1 do
     Project.ProjResources.UserResources.List.AddResource(lbResources.Items[I].Caption,
       StrToResourceType(lbResources.Items[I].SubItems[LVSUBITEM_TYPE]), lbResources.Items[I].SubItems[LVSUBITEM_NAME]);
+  Project.ProjResources.Modified := True;
 end;
 
 class function TResourcesOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;