paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 05:56:05 +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; fExecuteBefore: TCompilationToolOptions;
fExecuteAfter: TCompilationToolOptions; fExecuteAfter: TCompilationToolOptions;
FCreateMakefileOnBuild: boolean; FCreateMakefileOnBuild: boolean;
procedure SetTargetFilename(const AValue: String);
protected protected
procedure SetBaseDirectory(const AValue: string); override; procedure SetBaseDirectory(const AValue: string); override;
procedure SetCompilerPath(const AValue: String); override; procedure SetCompilerPath(const AValue: String); override;
@ -374,7 +375,7 @@ type
// Properties // Properties
property ParsedOpts: TParsedCompilerOptions read FParsedOpts; property ParsedOpts: TParsedCompilerOptions read FParsedOpts;
property BaseDirectory: string read FBaseDirectory write SetBaseDirectory; property BaseDirectory: string read FBaseDirectory write SetBaseDirectory;
property TargetFilename: String read fTargetFilename write fTargetFilename; property TargetFilename: String read fTargetFilename write SetTargetFilename;
property DefaultMakeOptionsFlags: TCompilerCmdLineOptions property DefaultMakeOptionsFlags: TCompilerCmdLineOptions
read FDefaultMakeOptionsFlags write SetDefaultMakeOptionsFlags; read FDefaultMakeOptionsFlags write SetDefaultMakeOptionsFlags;
@ -938,6 +939,13 @@ begin
IncreaseCompilerParseStamp; IncreaseCompilerParseStamp;
end; end;
procedure TBaseCompilerOptions.SetTargetFilename(const AValue: String);
begin
if fTargetFilename=AValue then exit;
fTargetFilename:=AValue;
Modified:=true;
end;
procedure TBaseCompilerOptions.SetBaseDirectory(const AValue: string); procedure TBaseCompilerOptions.SetBaseDirectory(const AValue: string);
begin begin
if FBaseDirectory=AValue then exit; if FBaseDirectory=AValue then exit;