diff --git a/ide/frames/compiler_compilation_options.pas b/ide/frames/compiler_compilation_options.pas index db70dd76e6..6d133595b3 100644 --- a/ide/frames/compiler_compilation_options.pas +++ b/ide/frames/compiler_compilation_options.pas @@ -195,8 +195,7 @@ begin end; end; -procedure TCompilerCompilationOptionsFrame.WriteSettings( - AOptions: TAbstractIDEOptions); +procedure TCompilerCompilationOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions); function MakeCompileReasons(const ACompile, ABuild, ARun: TCheckBox): TCompileReasons; begin @@ -212,41 +211,32 @@ begin Options.CreateMakefileOnBuild := chkCreateMakefile.Checked; Options.ExecuteBefore.Command := ExecuteBeforeCommandEdit.Text; - Options.ExecuteBefore.ScanForFPCMessages := - ExecuteBeforeScanFPCCheckBox.Checked; - Options.ExecuteBefore.ScanForMakeMessages := - ExecuteBeforeScanMakeCheckBox.Checked; + Options.ExecuteBefore.ScanForFPCMessages := ExecuteBeforeScanFPCCheckBox.Checked; + Options.ExecuteBefore.ScanForMakeMessages :=ExecuteBeforeScanMakeCheckBox.Checked; Options.ExecuteBefore.ShowAllMessages := ExecuteBeforeShowAllCheckBox.Checked; if Options.ExecuteBefore is TProjectCompilationToolOptions then begin TProjectCompilationToolOptions(Options.ExecuteBefore).CompileReasons := - MakeCompileReasons(chkExecBeforeCompile, - chkExecBeforeBuild, chkExecBeforeRun); + MakeCompileReasons(chkExecBeforeCompile, chkExecBeforeBuild, chkExecBeforeRun); end; Options.CompilerPath := edtCompiler.Text; if Options is TProjectCompilerOptions then begin TProjectCompilerOptions(Options).CompileReasons := - MakeCompileReasons(chkCompilerCompile, chkCompilerBuild, - chkCompilerRun); + MakeCompileReasons(chkCompilerCompile, chkCompilerBuild, chkCompilerRun); end else if Options is TPkgCompilerOptions then - begin TPkgCompilerOptions(Options).SkipCompiler := chkCompilerCompile.Checked; - end; Options.ExecuteAfter.Command := ExecuteAfterCommandEdit.Text; - Options.ExecuteAfter.ScanForFPCMessages := - ExecuteAfterScanFPCCheckBox.Checked; - Options.ExecuteAfter.ScanForMakeMessages := - ExecuteAfterScanMakeCheckBox.Checked; + Options.ExecuteAfter.ScanForFPCMessages := ExecuteAfterScanFPCCheckBox.Checked; + Options.ExecuteAfter.ScanForMakeMessages :=ExecuteAfterScanMakeCheckBox.Checked; Options.ExecuteAfter.ShowAllMessages := ExecuteAfterShowAllCheckBox.Checked; if Options.ExecuteAfter is TProjectCompilationToolOptions then begin TProjectCompilationToolOptions(Options.ExecuteAfter).CompileReasons := - MakeCompileReasons(chkExecAfterCompile, - chkExecAfterBuild, chkExecAfterRun); + MakeCompileReasons(chkExecAfterCompile, chkExecAfterBuild, chkExecAfterRun); end; end; diff --git a/ide/main.pp b/ide/main.pp index 4adf188638..9317616a23 100644 --- a/ide/main.pp +++ b/ide/main.pp @@ -121,9 +121,7 @@ uses debugger_general_options, debugger_eventlog_options, debugger_language_exceptions_options, debugger_signals_options, codeexplorer_update_options, codeexplorer_categories_options, - codeobserver_options, - help_general_options, - env_file_filters, + codeobserver_options, help_general_options, env_file_filters, // project option frames project_application_options, project_forms_options, project_lazdoc_options, project_save_options, project_versioninfo_options, project_i18n_options,