From 553af58124b3dcefbb4a18fe708bfde123aa404e Mon Sep 17 00:00:00 2001
From: n7800 <14154601-n7800@users.noreply.gitlab.com>
Date: Wed, 25 Dec 2024 09:33:24 +0500
Subject: [PATCH] IDE/ProjectInspector: Hide project name and build mode in
 window title when docking. Issue #39418

---
 ide/projectinspector.lfm |  1 +
 ide/projectinspector.pas | 10 +++++++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/ide/projectinspector.lfm b/ide/projectinspector.lfm
index e19de3ce5c..37a347797f 100644
--- a/ide/projectinspector.lfm
+++ b/ide/projectinspector.lfm
@@ -16,6 +16,7 @@ object ProjectInspectorForm: TProjectInspectorForm
   OnDestroy = FormDestroy
   OnDropFiles = FormDropFiles
   OnResize = FormResize
+  OnShow = FormShow
   object ItemsTreeView: TTreeView
     Left = 0
     Height = 261
diff --git a/ide/projectinspector.pas b/ide/projectinspector.pas
index 392fea2dae..5151d72a3a 100644
--- a/ide/projectinspector.pas
+++ b/ide/projectinspector.pas
@@ -149,6 +149,7 @@ type
     procedure FormDestroy(Sender: TObject);
     procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
     procedure FormResize(Sender: TObject);
+    procedure FormShow(Sender: TObject);
     procedure ItemsPopupMenuPopup(Sender: TObject);
     procedure ItemsTreeViewAdvancedCustomDrawItem(Sender: TCustomTreeView;
       Node: TTreeNode; {%H-}State: TCustomDrawState; Stage: TCustomDrawStage;
@@ -909,6 +910,11 @@ begin
   PropsGroupBox.Constraints.MaxHeight := self.Height - FilterPanel.Height - ToolBar.Height - 20;
 end;
 
+procedure TProjectInspectorForm.FormShow(Sender: TObject);
+begin
+  UpdateTitle; // update title on dock/undock
+end;
+
 procedure TProjectInspectorForm.ItemsPopupMenuPopup(Sender: TObject);
 
   procedure SetItem(Item: TIDEMenuCommand; AnOnClick: TNotifyEvent;
@@ -1802,7 +1808,9 @@ var
 begin
   if not CanUpdate(pefNeedUpdateTitle,Immediately) then exit;
   Icon.Clear;
-  if LazProject=nil then
+  if (LazProject = nil) or
+     (assigned(HostDockSite) and assigned(HostDockSite.Parent)) // is docked
+  then
     Caption:=lisMenuProjectInspector
   else begin
     NewCaption:=LazProject.GetTitle;