From 31711304747a41ea8845761568c7715c165b3975 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Thu, 28 Oct 2010 11:37:51 +0000
Subject: [PATCH] IDE: Show the current build profile name in Tools -> Lazarus
 Build menu caption.

git-svn-id: trunk@27923 -
---
 ide/buildlazdialog.pas | 4 +++-
 ide/main.pp            | 3 +++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ide/buildlazdialog.pas b/ide/buildlazdialog.pas
index 2e8985a163..64eddc3069 100644
--- a/ide/buildlazdialog.pas
+++ b/ide/buildlazdialog.pas
@@ -49,7 +49,7 @@ uses
   InterfaceBase, Themes, ComCtrls,
   DefineTemplates, Laz_XMLCfg,
   LazarusIDEStrConsts, TransferMacros, LazConf, IDEProcs, DialogProcs,
-  IDEMsgIntf, IDEContextHelpEdit, IDEImagesIntf,
+  IDEMsgIntf, IDEContextHelpEdit, IDEImagesIntf, MainBar,
   InputHistory, ExtToolDialog, ExtToolEditDlg, EnvironmentOpts,
   {$IFDEF win32}
   CodeToolManager, // added for windres workaround
@@ -1065,12 +1065,14 @@ end;
 procedure TConfigureBuildLazarusDlg.CompileButtonClick(Sender: TObject);
 begin
   CopyUIToProfile(Profiles.Current);
+  MainIDEBar.itmToolBuildLazarus.Caption:=lisMenuBuildLazarus+' ('+Profiles.Current.Name+')';
   ModalResult:=mrYes;
 end;
 
 procedure TConfigureBuildLazarusDlg.SaveSettingsButtonClick(Sender: TObject);
 begin
   CopyUIToProfile(Profiles.Current);
+  MainIDEBar.itmToolBuildLazarus.Caption:=lisMenuBuildLazarus+' ('+Profiles.Current.Name+')';
   ModalResult:=mrOk;
 end;
 
diff --git a/ide/main.pp b/ide/main.pp
index e41709e1f1..36b603422d 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -2500,6 +2500,9 @@ begin
     itmToolConvertEncoding.OnClick := @mnuToolConvertEncodingClicked;
     itmToolBuildLazarus.OnClick := @mnuToolBuildLazarusClicked;
     itmToolConfigureBuildLazarus.OnClick := @mnuToolConfigBuildLazClicked;
+    // Set initial caption for Build Lazarus item. Will be changed in BuildLazDialog.
+    if Assigned(MiscellaneousOptions) then
+      itmToolBuildLazarus.Caption:=lisMenuBuildLazarus+' ('+MiscellaneousOptions.BuildLazOpts.Name+')';
   end;
   UpdateCustomToolsInMenu;
 end;