paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:39:31 +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

9
ide/main.pp
View File

@ -87,7 +87,7 @@ uses
ApplicationBundle,
ExtTools,
// projects
ProjectResources, Project, ProjectDefs, NewProjectDlg,
ProjectResources, Project, ProjectDefs, NewProjectDlg,
PublishProjectDlg, ProjectInspector, PackageDefs,
// help manager
IDEContextHelpEdit, IDEHelpIntf, IDEHelpManager, CodeHelp, HelpOptions,
@ -1135,7 +1135,7 @@ begin
AddHelp(['']);
AddHelp([GetCmdLineParamDescForInterface]);
AddHelp(['']);
WriteHelp(AHelp.Text);
AHelp.Free;
exit;
@ -1878,7 +1878,7 @@ begin
end;
procedure TMainIDE.PropHookGetMethods(TypeData: PTypeData; Proc: TGetStrProc);
var
var
ActiveSrcEdit: TSourceEditor;
ActiveUnitInfo: TUnitInfo;
begin
@ -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