paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 18:53:28 +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 ...';
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';

8
ide/main.pp
View File

@ -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;