paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 10:33:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

Build message text improved.

Browse Source 
git-svn-id: trunk@28005 -
This commit is contained in:
juha 2010-10-31 10:41:31 +00:00
parent 95aa8bb613
commit 8e39312987
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/lazarusidestrconsts.pas
View File

@ -400,7 +400,7 @@ resourcestring
lisMenuConvertDelphiPackage = 'Convert Delphi package to Lazarus package ...'; lisMenuConvertDelphiPackage = 'Convert Delphi package to Lazarus package ...';
lisMenuConvertEncoding = 'Convert encoding of projects/packages ...'; lisMenuConvertEncoding = 'Convert encoding of projects/packages ...';
lisMenuBuildLazarus = 'Build Lazarus'; lisMenuBuildLazarus = 'Build Lazarus';
lisMenuBuildLazarusProf = 'Build Lazarus with profile %s'; lisMenuBuildLazarusProf = 'Build Lazarus with profile: %s';
lisMenuBuildLazarusAll = 'Build Lazarus with selected profiles'; lisMenuBuildLazarusAll = 'Build Lazarus with selected profiles';
lisMenuConfigureBuildLazarus = 'Configure "Build Lazarus" ...'; lisMenuConfigureBuildLazarus = 'Configure "Build Lazarus" ...';
@ -2749,7 +2749,7 @@ resourcestring
lisDocumentationEditor = 'Documentation Editor'; lisDocumentationEditor = 'Documentation Editor';
// Build lazarus dialog // 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?'; lisConfirmBuildAllProfiles = 'Lazarus will be rebuilt with the following profiles:%sContinue?';
lisNoBuildProfilesSelected = 'No profiles are selected to be built.'; lisNoBuildProfilesSelected = 'No profiles are selected to be built.';
lisCleanLazarusSource = 'Clean Lazarus Source'; lisCleanLazarusSource = 'Clean Lazarus Source';

6
ide/main.pp
View File

@ -4232,8 +4232,10 @@ end;
procedure TMainIDE.mnuToolBuildLazarusClicked(Sender: TObject); procedure TMainIDE.mnuToolBuildLazarusClicked(Sender: TObject);
begin begin
if MiscellaneousOptions.BuildLazProfiles.Current.ConfirmBuild then with MiscellaneousOptions do
if MessageDlg(lisConfirmLazarusRebuild, mtConfirmation, mbYesNo, 0)<>mrYes then if BuildLazProfiles.Current.ConfirmBuild then
if MessageDlg(Format(lisConfirmLazarusRebuild, [BuildLazProfiles.Current.Name]),
mtConfirmation, mbYesNo, 0)<>mrYes then
exit; exit;
DoBuildLazarus([]); DoBuildLazarus([]);
end; end;