diff --git a/packages/rtl/src/web.pas b/packages/rtl/src/web.pas index c888c1c..ad67c75 100644 --- a/packages/rtl/src/web.pas +++ b/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