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

IDE: Show the current build profile name in Tools -> Lazarus Build menu caption.

Browse Source 
git-svn-id: trunk@27923 -
This commit is contained in:
juha 2010-10-28 11:37:51 +00:00
parent 982fc9372e
commit 3171130474
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/buildlazdialog.pas
View File

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

3
ide/main.pp
View File

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