Browse Source

* Correctly define TJSInputEvent

Michaël Van Canneyt 4 tháng trước cách đây
mục cha
commit
15d5b68de7
1 tập tin đã thay đổi với 15 bổ sung0 xóa
  1. 15 0
      packages/rtl/src/web.pas

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

@@ -3073,6 +3073,21 @@ Type
     property shiftKey : Boolean read FShiftKey;
   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 }
 
   TJSMutationObserver = Class;