paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 23:35:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: compiler options: fixed setting modified flag when changing create makefile

Browse Source 
git-svn-id: trunk@36219 -
This commit is contained in:
mattias 2012-03-22 14:19:35 +00:00
parent cc38536b22
commit 092067fc90
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/compileroptions.pp
View File

@ -445,6 +445,7 @@ type
fCompilerMessages: TCompilerMessagesList;
procedure OnItemChanged(Sender: TObject);
procedure SetCreateMakefileOnBuild(AValue: boolean);
protected
function GetCompilerPath: String;
function GetBaseDirectory: string;
@ -582,7 +583,7 @@ type
property ExecuteBefore: TCompilationToolOptions read fExecuteBefore;
property ExecuteAfter: TCompilationToolOptions read fExecuteAfter;
property CreateMakefileOnBuild: boolean read FCreateMakefileOnBuild
write FCreateMakefileOnBuild;
write SetCreateMakefileOnBuild;
// compiler messages
property CompilerMessages: TCompilerMessagesList read fCompilerMessages;
@ -1177,6 +1178,13 @@ begin
IncreaseChangeStamp;
end;
procedure TBaseCompilerOptions.SetCreateMakefileOnBuild(AValue: boolean);
begin
if FCreateMakefileOnBuild=AValue then Exit;
FCreateMakefileOnBuild:=AValue;
IncreaseChangeStamp;
end;
function TBaseCompilerOptions.GetCompilerPath: String;
begin
Result:=ParsedOpts.Values[pcosCompilerPath].UnparsedValue;

1
ide/frames/compiler_compilation_options.pas
View File

@ -45,7 +45,6 @@ type
lblRunIfExecAfter: TLabel;
lblRunIfExecBefore: TLabel;
private
{ private declarations }
public
function GetTitle: string; override;
procedure Setup(ADialog: TAbstractOptionsEditorDialog); override;