diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas index 0ea07d9a57..898c125c1a 100644 --- a/ide/lazarusidestrconsts.pas +++ b/ide/lazarusidestrconsts.pas @@ -400,7 +400,7 @@ resourcestring lisMenuConvertDelphiPackage = 'Convert Delphi package to Lazarus package ...'; lisMenuConvertEncoding = 'Convert encoding of projects/packages ...'; lisMenuBuildLazarus = 'Build Lazarus'; - lisMenuBuildLazarusProf = 'Build Lazarus with profile %s'; + lisMenuBuildLazarusProf = 'Build Lazarus with profile: %s'; lisMenuBuildLazarusAll = 'Build Lazarus with selected profiles'; lisMenuConfigureBuildLazarus = 'Configure "Build Lazarus" ...'; @@ -2749,7 +2749,7 @@ resourcestring lisDocumentationEditor = 'Documentation Editor'; // Build lazarus dialog - lisConfirmLazarusRebuild = 'Do you want to rebuild Lazarus?'; + lisConfirmLazarusRebuild = 'Do you want to rebuild Lazarus with profile: %s ?'; lisConfirmBuildAllProfiles = 'Lazarus will be rebuilt with the following profiles:%sContinue?'; lisNoBuildProfilesSelected = 'No profiles are selected to be built.'; lisCleanLazarusSource = 'Clean Lazarus Source'; diff --git a/ide/main.pp b/ide/main.pp index c907350049..101dd87083 100644 --- a/ide/main.pp +++ b/ide/main.pp @@ -4232,9 +4232,11 @@ end; procedure TMainIDE.mnuToolBuildLazarusClicked(Sender: TObject); begin - if MiscellaneousOptions.BuildLazProfiles.Current.ConfirmBuild then - if MessageDlg(lisConfirmLazarusRebuild, mtConfirmation, mbYesNo, 0)<>mrYes then - exit; + with MiscellaneousOptions do + if BuildLazProfiles.Current.ConfirmBuild then + if MessageDlg(Format(lisConfirmLazarusRebuild, [BuildLazProfiles.Current.Name]), + mtConfirmation, mbYesNo, 0)<>mrYes then + exit; DoBuildLazarus([]); end;