* Complete pointerevent

packages/rtl/src/web.pas

@@ -2873,7 +2873,39 @@ Type
     Property deltaMode : NativeInt Read FDeltaMode;
   end;
 
-  TJSPointerEvent = Class external name 'PointerEvent' (TJSMouseEvent);
+  { TJSPointerEvent }
+
+  TJSPointerEvent = Class external name 'PointerEvent' (TJSMouseEvent)
+  private
+    faltitudeAngle : double; external name 'altitudeAngle';
+    fazimuthAngle : double; external name 'azimuthAngle';
+    fheight : integer; external name 'height';
+    fisPrimary : boolean; external name 'isPrimary';
+    fpersistentDeviceId : NativeInt; external name 'persistentDeviceId';
+    fPointerID : NativeInt; external name 'pointerId';
+    fPointerType : string; external name 'pointerType';
+    fpressure : double; external name 'pressure';
+    ftangentialpressure : double; external name 'tangentialPressure';
+    fTiltX : double; external name 'tiltX';
+    fTiltY : double; external name 'tiltY';
+    fTwist : nativeint; external name 'twist';
+    fWidth : nativeint; external name 'width';
+  public
+    property altitudeAngle : double read FaltitudeAngle;
+    property azimuthAngle : double read FazimuthAngle;
+    property height: integer read fheight;
+    property isPrimary : boolean read FisPrimary;
+    property persistentDeviceId : NativeInt read FpersistentDeviceId;
+    property pointerId : NativeInt read FPointerID;
+    property pointerType : string read FPointerType;
+    property pressure : double read fpressure;
+    property tangentialPressure : double read ftangentialpressure;
+    property tiltX : double read FTiltX;
+    property tiltY : double read FTiltY;
+    property twist : nativeint read FTwist;
+    property width : nativeint read FWidth;
+
+  end;
 
   TJSTouchEvent = Class external name 'TouchEvent'(TJSUIEvent)
   private