diff --git a/ide/compileroptions.pp b/ide/compileroptions.pp index af45c98a8b..9c01ea35c0 100644 --- a/ide/compileroptions.pp +++ b/ide/compileroptions.pp @@ -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; diff --git a/ide/frames/compiler_compilation_options.pas b/ide/frames/compiler_compilation_options.pas index 5897a56920..0a593a0a8c 100644 --- a/ide/frames/compiler_compilation_options.pas +++ b/ide/frames/compiler_compilation_options.pas @@ -45,7 +45,6 @@ type lblRunIfExecAfter: TLabel; lblRunIfExecBefore: TLabel; private - { private declarations } public function GetTitle: string; override; procedure Setup(ADialog: TAbstractOptionsEditorDialog); override;