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

Designer: Alternative fix of closing a LAMW form in designer. Related to revision 61223 #298236df33 and 64283

Browse Source 
git-svn-id: trunk@64284 -
This commit is contained in:
michl 2020-12-26 22:44:03 +00:00
parent d0d67fe1b4
commit 24567c321c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/noncontroldesigner.pas
View File

@ -103,7 +103,7 @@ procedure TNonControlDesignerForm.SetBounds(aLeft, aTop, aWidth,
aHeight: integer); aHeight: integer);
begin begin
inherited SetBounds(ALeft, ATop, AWidth, AHeight); inherited SetBounds(ALeft, ATop, AWidth, AHeight);
if Mediator<>nil then if (Mediator<>nil) and (LookupRoot<>nil) then
Mediator.SetFormBounds(LookupRoot,NonFormProxyDesignerForm.BoundsRect,NonFormProxyDesignerForm.ClientRect); Mediator.SetFormBounds(LookupRoot,NonFormProxyDesignerForm.BoundsRect,NonFormProxyDesignerForm.ClientRect);
end; end;