paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 00:47:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Complete pointerevent

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-04-01 09:10:49 +02:00
parent 74fbb1f24f
commit a45c779bfc
1 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
packages/rtl/src/web.pas
View File

@ -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