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

lcl: clean hostdocksite

Browse Source
This commit is contained in:
mattias 2023-07-12 11:34:38 +02:00
parent 161312c68d
commit 6df9d7970b
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/control.inc
View File

@ -3555,9 +3555,10 @@ begin
begin
if AComponent = PopupMenu then
PopupMenu := nil
else
if AComponent = Action then
Action := nil;
else if AComponent = Action then
Action := nil
else if AComponent = FHostDockSite then
FHostDockSite := nil;
//debugln('TControl.Notification A ',DbgSName(Self),' ',DbgSName(AComponent));
for Kind := Low(TAnchorKind) to High(TAnchorKind) do
begin
@ -3573,7 +3574,7 @@ var
FloatHost: TWinControl;
R: TRect;
begin
DebugLn(['TControl.DoFloatMsg ',DbgSName(Self),' Floating=',Floating]);
//DebugLn(['TControl.DoFloatMsg ',DbgSName(Self),' Floating=',Floating]);
if Floating and (Parent <> nil) then
begin
P := Parent.ClientToScreen(Point(Left, Top));