paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 03:50:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

AnchorDocking: fix : allow docking next to tabbed area. (missing SiteType)

Browse Source
This commit is contained in:
Martin 2024-08-09 10:07:31 +02:00
parent 0b6075c083
commit c07a20ab7f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/anchordocking/anchordocking.pas
View File

@ -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