base: evtViewportDomChanged

src/base/fresnel.events.pas

@@ -65,13 +65,15 @@ Const
   evtAllMouse = [evtMouseMove,evtMouseDown,evtMouseUp];
   evtAllFocus = [evtFocusIn,evtFocusOut,evtFocus];
 
+  evtViewportCSSApplied = evtLastControlEvent + 1;
+
   // Form only
-  evtFormEvents = evtLastControlEvent;
+  evtFormEvents = evtViewportCSSApplied + 1;
 
-  evtFormCreate         = evtFormEvents + 1;
-  evtFormDestroy        = evtFormEvents + 2;
-  evtFormActivate       = evtFormEvents + 3;
-  evtFormDeactivate     = evtFormEvents + 4;
+  evtFormCreate         = evtFormEvents;
+  evtFormDestroy        = evtFormEvents + 1;
+  evtFormActivate       = evtFormEvents + 2;
+  evtFormDeactivate     = evtFormEvents + 3;
 
   evtLastFormEvent = evtFormDeactivate;
 
@@ -454,6 +456,12 @@ Type
     property PixelRatio : Single Read FInit.PixelRatio;
   end;
 
+  { TFresnelViewportCSSAppliedEvent }
+
+  TFresnelViewportCSSAppliedEvent = class(TFresnelEvent)
+    Class Function FresnelEventID : TEventID; override;
+  end;
+
   TFresnelFormEvent = class(TFresnelEvent);
 
   { TFresnelFormCreateEvent }
@@ -544,7 +552,6 @@ Type
   end;
 
 
-
   { TFresnelEventDispatcher }
 
   TFresnelEventDispatcher = Class(TEventDispatcher)
@@ -594,6 +601,7 @@ Const
     'Focus',
     'Blur',
     'Resize',
+    'ViewportDomChanged',
     'Create',
     'Destroy',
     'FormActivate',
@@ -629,6 +637,13 @@ begin
   Result:=evtResize;
 end;
 
+{ TFresnelViewportCSSAppliedEvent }
+
+class function TFresnelViewportCSSAppliedEvent.FresnelEventID: TEventID;
+begin
+  Result:=evtViewportCSSApplied;
+end;
+
 { TFresnelInputEvent }
 
 function TFresnelInputEvent.GetInputType: string;
@@ -970,7 +985,7 @@ begin
   R(TFresnelInputEvent);
   R(TFresnelResizeEvent);
   R(TFresnelAfterProcessMessagesEvent);
-  R(TFresnelApplicationRestoreEvent);
+  R(TFresnelViewportCSSAppliedEvent);
   R(TFresnelFormCreateEvent);
   R(TFresnelFormDestroyEvent);
   R(TFresnelFormActivateEvent);
@@ -981,7 +996,7 @@ begin
   R(TFresnelApplicationDeActivateEvent);
   R(TFresnelApplicationMinimizeEvent);
   R(TFresnelApplicationMaximizeEvent);
-
+  R(TFresnelApplicationRestoreEvent);
 end;
 
 class destructor TFresnelEventDispatcher.Done;

src/base/fresnel.forms.pas

@@ -662,7 +662,6 @@ begin
   end;
 end;
 
-
 { TFresnelFormManager }
 
 procedure TFresnelFormManager.SetMainForm(AValue: TFresnelCustomForm);
@@ -806,9 +805,9 @@ end;
 
 class procedure TFresnelBaseApplication.RegisterApplicationEvents;
 
-  Procedure R(aClass : TFresnelEventClass);
+  procedure R(aClass : TFresnelEventClass);
   begin
-     TFresnelEventDispatcher.FresnelRegistry.RegisterEventWithID(aClass.FresnelEventID,aClass);
+    TFresnelEventDispatcher.FresnelRegistry.RegisterEventWithID(aClass.FresnelEventID,aClass);
   end;
 
 begin
@@ -822,7 +821,7 @@ end;
 
 procedure TFresnelBaseApplication.ShowMainForm;
 begin
-  FLLog(etDebug,'ShowMainForm');
+  //FLLog(etDebug,'ShowMainForm');
   If FormManager.MainForm=nil then
     raise Exception.Create('No main form available');
   FormManager.MainForm.Show;

src/fresnel.app.pas

@@ -48,7 +48,6 @@ type
     FOldExceptProc: TExceptProc;
     procedure Activate(Data: Pointer);
     procedure Deactivate(Data: Pointer);
-  protected
   protected
     FFlags: TApplicationFlags;
     procedure DoBeforeFinalization; virtual;
@@ -111,10 +110,9 @@ Begin
 
   HandlingException:=true;
   if Sender<>nil then
-  begin
-    FLLog(etDebug,'  Sender='+Sender.Tostring);
-  end else
-      FLLog(etDebug,'  Sender=nil');
+    FLLog(etDebug,'  Sender='+Sender.ToString)
+  else
+    FLLog(etDebug,'  Sender=nil');
   if FresnelApplication<>nil then
     FresnelApplication.HandleException(Sender);
   HandlingException:=false;