Browse Source

designer: fixed resize designer form

mattias 1 year ago
parent
commit
fea698a56a
1 changed files with 2 additions and 2 deletions
  1. 2 2
      design/fresnel.register.pas

+ 2 - 2
design/fresnel.register.pas

@@ -1,5 +1,5 @@
 {
- Copyright (C) 2022 Mattias Gaertner [email protected]
+ Copyright (C) 2024 Mattias Gaertner [email protected]
 
 *****************************************************************************
  This file is part of the Fresnel project.
@@ -212,7 +212,7 @@ begin
   //debugln(['TFresnelFormMediator.SetBounds ',DbgSName(AComponent),' ',dbgs(NewBounds)]);
   if AComponent=FDsgnForm then
   begin
-    FDsgnForm.FormBounds:=TFresnelRect.Create(NewBounds);
+    FDsgnForm.WSResize(TFresnelRect.Create(NewBounds),NewBounds.Width,NewBounds.Height);
   end else if AComponent is TFresnelElement then
   begin
     // bounds are controlled by CSS