From 8debfce05d9881fb1f7fbbf104a8e83d66f231b7 Mon Sep 17 00:00:00 2001
From: Maxim Ganetsky <maxim@lazarus-ide.org>
Date: Fri, 28 Apr 2023 17:44:55 +0300
Subject: [PATCH] AnchorDocking: also update header caption when pages are
 inserted and removed, issue #36008

---
 components/anchordocking/anchordocking.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/components/anchordocking/anchordocking.pas b/components/anchordocking/anchordocking.pas
index 0aa5dac330..38814571a0 100644
--- a/components/anchordocking/anchordocking.pas
+++ b/components/anchordocking/anchordocking.pas
@@ -324,6 +324,7 @@ type
     constructor Create(TheOwner: TComponent); override;
     procedure UpdateDockCaption(Exclude: TControl = nil); override;
     property DockPages[Index: integer]: TAnchorDockPage read GetDockPages;
+    procedure InsertControl(AControl: TControl; Index: Integer); override;
     procedure RemoveControl(AControl: TControl); override;
     function GetActiveSite: TAnchorDockHostSite;
   end;
@@ -8100,12 +8101,19 @@ begin
     TAnchorDockPage(Parent).UpdateDockCaption;
 end;
 
+procedure TAnchorDockPageControl.InsertControl(AControl: TControl; Index: Integer);
+begin
+  inherited InsertControl(AControl, Index);
+  UpdateDockCaption;
+end;
+
 procedure TAnchorDockPageControl.RemoveControl(AControl: TControl);
 begin
   inherited RemoveControl(AControl);
   if (not (csDestroying in ComponentState)) then begin
     if (PageCount<=1) and (Parent is TAnchorDockHostSite) then
       DockMaster.NeedSimplify(Parent);
+    UpdateDockCaption;
   end;
 end;