* Register double click event

src/base/fresnel.events.pas

@@ -176,6 +176,11 @@ Type
   end;
   TFLMouseClickEvent = TFresnelMouseClickEvent;
 
+  TFresnelMouseDoubleClickEvent = class(TFresnelMouseEvent)
+    class function FresnelEventID : TEventID; override;
+  end;
+  TFLMouseDoubleClickEvent = TFresnelMouseDoubleClickEvent;
+
   { TFresnelMouseDownEvent }
 
   TFresnelMouseDownEvent = class(TFresnelMouseEvent)
@@ -531,6 +536,13 @@ begin
   Result:=evtClick;
 end;
 
+{ TFresnelMouseDoubleClickEvent }
+
+class function TFresnelMouseDoubleClickEvent.FresnelEventID: TEventID;
+begin
+  Result:=evtDblClick;
+end;
+
 { TFresnelMouseDownEvent }
 
 class function TFresnelMouseDownEvent.FresnelEventID: TEventID;
@@ -643,6 +655,7 @@ class procedure TFresnelEventDispatcher.RegisterFresnelEvents;
 begin
   R(TFresnelChangeEvent);
   R(TFresnelMouseClickEvent);
+  R(TFresnelMouseDoubleClickEvent);
   R(TFresnelMouseDownEvent);
   R(TFresnelMouseMoveEvent);
   R(TFresnelMouseLeaveEvent);