clean up

src/base/fcl-css/fpcssparser.pp

@@ -17,7 +17,9 @@ unit fpCSSParser;
 {$ENDIF FPC_DOTTEDUNITS}
 
 {$mode ObjFPC}{$H+}
+{$IF FPC_FULLVERSION>30300}
 {$WARN 6060 off} // Case statement does not handle all possible cases
+{$ENDIF}
 
 interface
 

src/base/fresnel.asynccalls.pp

@@ -5,7 +5,7 @@ unit Fresnel.AsyncCalls;
 interface
 
 uses
-  Classes, SysUtils, SyncObjs, Contnrs;
+  Classes, SysUtils, Contnrs;
 
 Type
   EAsyncCall = Class(Exception);

src/base/fresnel.events.pas

@@ -6,7 +6,11 @@ unit Fresnel.Events;
 interface
 
 uses
-  Classes, SysUtils, system.UITypes, FCL.Events, Fresnel.Classes;
+  Classes, SysUtils,
+  {$IF FPC_FULLVERSION>30300}
+  system.UITypes,
+  {$ENDIF}
+  FCL.Events, Fresnel.Classes;
 
 Const
   evtUnknown = 0;

src/base/fresnel.layouter.pas

@@ -11,7 +11,9 @@ unit Fresnel.Layouter;
 
 {$mode ObjFPC}{$H+}
 {$Interfaces CORBA}
+{$IF FPC_FULLVERSION>30300}
 {$WARN 6060 off} // Case statement does not handle all possible cases
+{$ENDIF}
 
 interface
 

src/base/fresnel.widgetset.pas

@@ -36,6 +36,7 @@ type
   TFresnelWSFormClass = class of TFresnelWSForm;
 
   { TFresnelWidgetSet }
+
   TWidgetSetOption = (
     wsClick,      // Widgetset sends click event.
     wsDoubleClick // Widgetset sends doubleclick event.

src/lcl/fresnel.lcl.pas

@@ -107,6 +107,7 @@ type
     {$IFDEF FresnelSkia}
     FIntfImg: TLazIntfImage;
     {$ENDIF}
+    procedure LCLChangeBounds(Sender: TObject);
     procedure LCLMouseDown(Sender: TObject; Button: Controls.TMouseButton;
       Shift: TShiftState; X, Y: Integer);
     procedure LCLMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
@@ -305,6 +306,11 @@ begin
   FresnelForm.WSMouseXY(EvtInit,evtMouseDown);
 end;
 
+procedure TLCLWSForm.LCLChangeBounds(Sender: TObject);
+begin
+  FresnelForm.WSResize(GetFormBounds,LCLForm.ClientWidth,LCLForm.ClientHandle);
+end;
+
 procedure TLCLWSForm.LCLMouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer);
 var
@@ -485,14 +491,15 @@ begin
   TFresnelLCLFontEngine(aFontEngine).Canvas:=LCLForm.Canvas;
   {$ENDIF}
 
+  // resize lcl form
+  FLCLForm.BoundsRect:=FresnelForm.FormBounds.GetRect;
+
   // events
   FLCLForm.OnMouseDown:=@LCLMouseDown;
   FLCLForm.OnMouseMove:=@LCLMouseMove;
   FLCLForm.OnMouseUp:=@LCLMouseUp;
   FLCLForm.OnPaint:=@LCLPaint;
-
-  // resize lcl form
-  FLCLForm.BoundsRect:=FresnelForm.FormBounds.GetRect;
+  FLCLForm.OnChangeBounds:=@LCLChangeBounds;
 end;
 
 { TFresnelLCLWidgetSet }