lclcontrol: fixed resize

src/lcl/fresnel.lclcontrols.pas

@@ -34,6 +34,7 @@ type
     procedure OnQueuedLayout({%H-}Data: PtrInt);
     procedure SetLayoutQueued(const AValue: boolean);
   Protected
+    procedure DoSetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
     procedure Notification(AComponent: TComponent; Operation: TOperation);
       override;
     procedure Paint; override;
@@ -71,6 +72,13 @@ begin
     Forms.Application.QueueAsyncCall(@OnQueuedLayout,0);
 end;
 
+procedure TFresnelLCLControl.DoSetBounds(ALeft, ATop, AWidth, AHeight: Integer);
+begin
+  inherited DoSetBounds(ALeft, ATop, AWidth, AHeight);
+  Viewport.Width:=AWidth;
+  Viewport.Height:=AHeight;
+end;
+
 procedure TFresnelLCLControl.OnDomChanged(Sender: TObject);
 begin
   LayoutQueued:=true;