nicer casing

src/fresnel.events.pas

@@ -1,11 +1,11 @@
-unit fresnel.events;
+unit Fresnel.Events;
 
 {$mode ObjFPC}{$H+}
 
 interface
 
 uses
-  Classes, SysUtils, fcl.events;
+  Classes, SysUtils, FCL.Events;
 
 {$ScopedEnums ON}
 
@@ -38,10 +38,6 @@ Const
   evtFocus = 25;
   evtBlur = 26;
 
-
-
-
-
   MaxFresnelEvents = evtBlur;
 
 
@@ -200,8 +196,8 @@ Type
    formatBackColor,formatFontColor,formatFontName
   );
   TFresnelInputEventInit = record
-    data : string;
-    inputtype : TFresnelInputType;
+    Data : string;
+    InputType : TFresnelInputType;
   end;
 
   { TFresnelInputEvent }
@@ -220,9 +216,9 @@ Type
 
   TDeltaMode = (pixel,line,page);
   TFresnelWheelInit = record
-    deltaMode : TDeltaMode;
-    deltaX : Integer;
-    deltaY : Integer;
+    DeltaMode : TDeltaMode;
+    DeltaX : Integer;
+    DeltaY : Integer;
     DeltaZ : Integer;
   end;
 

src/fresnel.lclevents.pp

@@ -1,11 +1,11 @@
-unit fresnel.lclevents;
+unit Fresnel.LCLEvents;
 
 {$mode objfpc}{$H+}
 
 interface
 
 uses
-  Classes, SysUtils, fresnel.events, controls;
+  Classes, SysUtils, Fresnel.Events, Controls;
 
 Function InitMouseEvent(aCtrl : TControl; Out aInit : TFresnelMouseEventInit) : Boolean;