2
0
Эх сурвалжийг харах

* Correctly define TJSInputEvent

Michaël Van Canneyt 4 сар өмнө
parent
commit
15d5b68de7

+ 15 - 0
packages/rtl/src/web.pas

@@ -3073,6 +3073,21 @@ Type
     property shiftKey : Boolean read FShiftKey;
     property shiftKey : Boolean read FShiftKey;
   end;
   end;
 
 
+  { TJSInputEvent }
+
+  TJSInputEvent = class external name 'InputEvent' (TJSUIEvent)
+  private
+    FData: string; external name 'data';
+    FDataTransfer: TJSDataTransfer; external name 'dataTransfer';
+    FInput: string; external name 'input';
+    FIsComposing: boolean; external name 'isComposing';
+  public
+    property Data : string read FData;
+    property DataTransfer : TJSDataTransfer read FDataTransfer;
+    property InputType : string read FInput;
+    property isComposing : boolean read FIsComposing;
+  end;
+
   { MutationObserver }
   { MutationObserver }
 
 
   TJSMutationObserver = Class;
   TJSMutationObserver = Class;