paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 19:52:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: formatting

Browse Source 
git-svn-id: trunk@42049 -
This commit is contained in:
juha 2013-07-10 09:38:21 +00:00
parent f6e7e7d452
commit f94fc13b1d
2 changed files with 9 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ide/frames/compiler_compilation_options.pas
View File

@ -195,8 +195,7 @@ begin
end; end;
end; end;
procedure TCompilerCompilationOptionsFrame.WriteSettings( procedure TCompilerCompilationOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
AOptions: TAbstractIDEOptions);
function MakeCompileReasons(const ACompile, ABuild, ARun: TCheckBox): TCompileReasons; function MakeCompileReasons(const ACompile, ABuild, ARun: TCheckBox): TCompileReasons;
begin begin
@ -212,41 +211,32 @@ begin
Options.CreateMakefileOnBuild := chkCreateMakefile.Checked; Options.CreateMakefileOnBuild := chkCreateMakefile.Checked;
Options.ExecuteBefore.Command := ExecuteBeforeCommandEdit.Text; Options.ExecuteBefore.Command := ExecuteBeforeCommandEdit.Text;
Options.ExecuteBefore.ScanForFPCMessages := Options.ExecuteBefore.ScanForFPCMessages := ExecuteBeforeScanFPCCheckBox.Checked;
ExecuteBeforeScanFPCCheckBox.Checked; Options.ExecuteBefore.ScanForMakeMessages :=ExecuteBeforeScanMakeCheckBox.Checked;
Options.ExecuteBefore.ScanForMakeMessages :=
ExecuteBeforeScanMakeCheckBox.Checked;
Options.ExecuteBefore.ShowAllMessages := ExecuteBeforeShowAllCheckBox.Checked; Options.ExecuteBefore.ShowAllMessages := ExecuteBeforeShowAllCheckBox.Checked;
if Options.ExecuteBefore is TProjectCompilationToolOptions then if Options.ExecuteBefore is TProjectCompilationToolOptions then
begin begin
TProjectCompilationToolOptions(Options.ExecuteBefore).CompileReasons := TProjectCompilationToolOptions(Options.ExecuteBefore).CompileReasons :=
MakeCompileReasons(chkExecBeforeCompile, MakeCompileReasons(chkExecBeforeCompile, chkExecBeforeBuild, chkExecBeforeRun);
chkExecBeforeBuild, chkExecBeforeRun);
end; end;
Options.CompilerPath := edtCompiler.Text; Options.CompilerPath := edtCompiler.Text;
if Options is TProjectCompilerOptions then if Options is TProjectCompilerOptions then
begin begin
TProjectCompilerOptions(Options).CompileReasons := TProjectCompilerOptions(Options).CompileReasons :=
MakeCompileReasons(chkCompilerCompile, chkCompilerBuild, MakeCompileReasons(chkCompilerCompile, chkCompilerBuild, chkCompilerRun);
chkCompilerRun);
end end
else if Options is TPkgCompilerOptions then else if Options is TPkgCompilerOptions then
begin
TPkgCompilerOptions(Options).SkipCompiler := chkCompilerCompile.Checked; TPkgCompilerOptions(Options).SkipCompiler := chkCompilerCompile.Checked;
end;
Options.ExecuteAfter.Command := ExecuteAfterCommandEdit.Text; Options.ExecuteAfter.Command := ExecuteAfterCommandEdit.Text;
Options.ExecuteAfter.ScanForFPCMessages := Options.ExecuteAfter.ScanForFPCMessages := ExecuteAfterScanFPCCheckBox.Checked;
ExecuteAfterScanFPCCheckBox.Checked; Options.ExecuteAfter.ScanForMakeMessages :=ExecuteAfterScanMakeCheckBox.Checked;
Options.ExecuteAfter.ScanForMakeMessages :=
ExecuteAfterScanMakeCheckBox.Checked;
Options.ExecuteAfter.ShowAllMessages := ExecuteAfterShowAllCheckBox.Checked; Options.ExecuteAfter.ShowAllMessages := ExecuteAfterShowAllCheckBox.Checked;
if Options.ExecuteAfter is TProjectCompilationToolOptions then if Options.ExecuteAfter is TProjectCompilationToolOptions then
begin begin
TProjectCompilationToolOptions(Options.ExecuteAfter).CompileReasons := TProjectCompilationToolOptions(Options.ExecuteAfter).CompileReasons :=
MakeCompileReasons(chkExecAfterCompile, MakeCompileReasons(chkExecAfterCompile, chkExecAfterBuild, chkExecAfterRun);
chkExecAfterBuild, chkExecAfterRun);
end; end;
end; end;

4
ide/main.pp
View File

@ -121,9 +121,7 @@ uses
debugger_general_options, debugger_eventlog_options, debugger_general_options, debugger_eventlog_options,
debugger_language_exceptions_options, debugger_signals_options, debugger_language_exceptions_options, debugger_signals_options,
codeexplorer_update_options, codeexplorer_categories_options, codeexplorer_update_options, codeexplorer_categories_options,
codeobserver_options, codeobserver_options, help_general_options, env_file_filters,
help_general_options,
env_file_filters,
// project option frames // project option frames
project_application_options, project_forms_options, project_lazdoc_options, project_application_options, project_forms_options, project_lazdoc_options,
project_save_options, project_versioninfo_options, project_i18n_options, project_save_options, project_versioninfo_options, project_i18n_options,