From c07a20ab7fa4e41bd449d06628d991ecec788822 Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Fri, 9 Aug 2024 10:07:31 +0200
Subject: [PATCH] AnchorDocking: fix : allow docking next to tabbed area.
 (missing SiteType)

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

diff --git a/components/anchordocking/anchordocking.pas b/components/anchordocking/anchordocking.pas
index 11f8ab9028..61b196c29c 100644
--- a/components/anchordocking/anchordocking.pas
+++ b/components/anchordocking/anchordocking.pas
@@ -4575,6 +4575,7 @@ function TAnchorDockHostSite.DockSecondControl(NewControl: TControl;
 var
   OldSite: TAnchorDockHostSite;
   OldControl: TControl;
+  OldSiteType: TAnchorDockHostSiteType;
 begin
   Result:=true;
   {$IFDEF VerboseAnchorDocking}
@@ -4585,6 +4586,7 @@ begin
   if not (DockAlign in [alLeft,alTop,alRight,alBottom]) then
     RaiseGDBException('TAnchorDockHostSite.DockSecondControl inconsistency: DockAlign='+dbgs(DockAlign));
 
+  OldSiteType := FSiteType;
   FSiteType:=adhstLayout;
 
   // remove header (keep it for later use)
@@ -4594,6 +4596,7 @@ begin
   OldControl:=GetOneControl;
   OldSite:=MakeSite(OldControl);
   OldSite.FPages := FPages;
+  OldSite.FSiteType := OldSiteType;
   AddCleanControl(OldSite);
   FPages := nil;
   if not(OldControl is TAnchorDockHostSite) then