paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 17:33:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: TProject.TargetFilename now sets modified

Browse Source 
git-svn-id: trunk@16047 -
This commit is contained in:
mattias 2008-08-12 21:03:05 +00:00
parent 7a365a3838
commit 48d36bc7b2
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/compileroptions.pp
View File

@ -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;