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

ide: project inspector: show build mode in caption

Browse Source 
git-svn-id: trunk@55291 -
This commit is contained in:
ondrej 2017-06-09 16:02:02 +00:00
parent 2407514a1e
commit 13110f6bd9
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/main.pp
View File

@ -3858,7 +3858,10 @@ begin
ACmd.Hint := ABuildHint;
if ProjInspector<>nil then
begin
ProjInspector.OptionsBitBtn.Hint := ABuildHint;
ProjInspector.UpdateTitle;
end;
end;
procedure TMainIDE.UpdatePackageCommands(Sender: TObject);

5
ide/projectinspector.pas
View File

@ -1397,7 +1397,10 @@ begin
NewCaption:=LazProject.GetTitle;
if NewCaption='' then
NewCaption:=ExtractFilenameOnly(LazProject.ProjectInfoFile);
Caption:=Format(lisProjInspProjectInspector, [NewCaption]);
NewCaption:=Format(lisProjInspProjectInspector, [NewCaption]);
if (LazProject.ActiveBuildMode.GetCaption<>'') then
NewCaption := NewCaption + ' ['+LazProject.ActiveBuildMode.GetCaption+']';
Caption := NewCaption;
if not LazProject.ProjResources.ProjectIcon.IsEmpty then
begin