paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 14:18:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix issue #39924 (AnchorDocking Header position resets)

Browse Source
This commit is contained in:
zamtmn 2022-09-23 18:11:13 +05:00 committed by Maxim Ganetsky
parent 989070fa91
commit c87cedb97f
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

@ -4461,6 +4461,8 @@ begin
OldControl:=GetOneControl;
OldSite:=MakeSite(OldControl);
AddCleanControl(OldSite);
if not(OldControl is TAnchorDockHostSite) then
OldSite.Header.FHeaderPosition:=Header.FHeaderPosition;
OldSite.AnchorClient(0);
// the LCL will compute the bounds later after EnableAutoSizing
// but the bounds are needed now => set them manually
@ -5185,6 +5187,7 @@ begin
// header
Header.Align:=Site.Header.Align;
Header.HeaderPosition:=Site.Header.HeaderPosition;
Header.Caption:=Site.Header.Caption;
UpdateHeaderShowing;
Caption:=Site.Caption;