paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 21:29:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

AnchorDocking: Cocoa: Fix the issue that the embedded form is not activated in TAnchorDockPage

Browse Source
This commit is contained in:
rich2014 2023-05-28 15:00:20 +08:00
parent 8a50d9bf15
commit 1d7346c7e9
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/anchordocking/anchordocking.pas
View File

@ -2465,6 +2465,19 @@ function TAnchorDockMaster.RestoreLayout(Tree: TAnchorDockLayoutTree;
AControl.Align:=alClient;
for Side:=Low(TAnchorKind) to high(TAnchorKind) do
AControl.AnchorSide[Side].Control:=nil;
{$IFDEF LCLCOCOA}
// trigger page to be ready, mainly for embedded Forms.
// eg. BreakPoints, Search Results, will be empty without trigger.
// for the embedding Form in TPageControl, the embedding Form cannot
// be self activated in Cocoa Interface.
// after long research, here is the least invasive.
// see also: https://gitlab.com/freepascal.org/lazarus/lazarus/-/issues/39763#note_1408260128
if AControl is TWinControl then
begin
TWinControl(AControl).HandleNeeded;
Site.Pages.PageIndex:= i;
end;
{$ENDIF}
end;
Site.Pages.PageIndex:=ANode.PageIndex;
finally