From 48d36bc7b206246d3d367b02cb0590951b67f5a2 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 12 Aug 2008 21:03:05 +0000
Subject: [PATCH] IDE: TProject.TargetFilename now sets modified

git-svn-id: trunk@16047 -
---
 ide/compileroptions.pp | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/ide/compileroptions.pp b/ide/compileroptions.pp
index 6851edd831..b74362285d 100644
--- a/ide/compileroptions.pp
+++ b/ide/compileroptions.pp
@@ -278,6 +278,7 @@ type
     fExecuteBefore: TCompilationToolOptions;
     fExecuteAfter: TCompilationToolOptions;
     FCreateMakefileOnBuild: boolean;
+    procedure SetTargetFilename(const AValue: String);
   protected
     procedure SetBaseDirectory(const AValue: string); override;
     procedure SetCompilerPath(const AValue: String); override;
@@ -374,7 +375,7 @@ type
     // Properties
     property ParsedOpts: TParsedCompilerOptions read FParsedOpts;
     property BaseDirectory: string read FBaseDirectory write SetBaseDirectory;
-    property TargetFilename: String read fTargetFilename write fTargetFilename;
+    property TargetFilename: String read fTargetFilename write SetTargetFilename;
     property DefaultMakeOptionsFlags: TCompilerCmdLineOptions
                  read FDefaultMakeOptionsFlags write SetDefaultMakeOptionsFlags;
 
@@ -938,6 +939,13 @@ begin
   IncreaseCompilerParseStamp;
 end;
 
+procedure TBaseCompilerOptions.SetTargetFilename(const AValue: String);
+begin
+  if fTargetFilename=AValue then exit;
+  fTargetFilename:=AValue;
+  Modified:=true;
+end;
+
 procedure TBaseCompilerOptions.SetBaseDirectory(const AValue: string);
 begin
   if FBaseDirectory=AValue then exit;