paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 10:19:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: remove a useless parameter from function SwitchBuildMode.

Browse Source 
git-svn-id: trunk@45770 -
This commit is contained in:
juha 2014-07-04 14:29:55 +00:00
parent 6aa3ccbfcb
commit e74514ad7b
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/buildmodesmanager.pas
View File

@ -99,7 +99,7 @@ var
OnSaveIDEOptionsHook: TOnSaveIDEOptions; OnSaveIDEOptionsHook: TOnSaveIDEOptions;
function ShowBuildModesDlg(aShowSession: Boolean): TModalResult; function ShowBuildModesDlg(aShowSession: Boolean): TModalResult;
procedure SwitchBuildMode(aBuildModeID: string; LoadSaveProjectOptions: boolean); procedure SwitchBuildMode(aBuildModeID: string);
procedure UpdateBuildModeCombo(aCombo: TComboBox); procedure UpdateBuildModeCombo(aCombo: TComboBox);
@ -143,14 +143,12 @@ begin
end; end;
end; end;
procedure SwitchBuildMode(aBuildModeID: string; LoadSaveProjectOptions: boolean); procedure SwitchBuildMode(aBuildModeID: string);
begin begin
if LoadSaveProjectOptions then OnSaveIDEOptionsHook(Nil, Project1.CompilerOptions); // Save changes
OnSaveIDEOptionsHook(Nil, Project1.CompilerOptions); // Save changes Project1.ActiveBuildModeID := aBuildModeID; // Switch
Project1.ActiveBuildModeID := aBuildModeID; // Switch
IncreaseBuildMacroChangeStamp; IncreaseBuildMacroChangeStamp;
if LoadSaveProjectOptions then OnLoadIDEOptionsHook(Nil, Project1.CompilerOptions); // Load options
OnLoadIDEOptionsHook(Nil, Project1.CompilerOptions); // Load options
end; end;
procedure UpdateBuildModeCombo(aCombo: TComboBox); procedure UpdateBuildModeCombo(aCombo: TComboBox);

3
ide/ideoptionsdlg.pas
View File

@ -226,7 +226,8 @@ begin
ShowMessage('This will allow changing all build modes at once. Not implemented yet.'); ShowMessage('This will allow changing all build modes at once. Not implemented yet.');
end end
else begin else begin
SwitchBuildMode(BuildModeComboBox.Text,BuildModeSelectPanel.Visible); Assert(BuildModeSelectPanel.Visible, 'BuildModeComboBoxSelect: BuildModeSelectPanel not Visible');
SwitchBuildMode(BuildModeComboBox.Text);
end; end;
end; end;