浏览代码

* Some small changes to TJSMediaQueryList

Michael Van Canneyt 1 月之前
父节点
当前提交
fc7d37e6fb
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      packages/rtl/src/web.pas

+ 2 - 1
packages/rtl/src/web.pas

@@ -1648,11 +1648,12 @@ Type
 
   { TJSMediaQueryList }
 
-  TJSMediaQueryList = class external name 'MediaQueryList' (TJSObject)
+  TJSMediaQueryList = class external name 'MediaQueryList' (TJSEventTarget)
   private
     FMatches: Boolean; external name 'matches';
     FMedia: String; external name 'media';
   Public
+    onchange : TJSRawEventHandler;
     Property matches : Boolean Read FMatches;
     Property media : String Read FMedia;
   end;