From 9a0639a37fceefa9c809b029d4f15abe1b2baef8 Mon Sep 17 00:00:00 2001 From: michael Date: Wed, 24 Jun 2020 09:11:46 +0000 Subject: [PATCH] * Add overloads for postMessage with options object (bug ID 36727) --- packages/rtl/web.pas | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/packages/rtl/web.pas b/packages/rtl/web.pas index 7e683bb..c8af765 100644 --- a/packages/rtl/web.pas +++ b/packages/rtl/web.pas @@ -1945,6 +1945,11 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject) TJSDOMHighResTimeStamp = Double; TFrameRequestCallback = procedure (aTime: TJSDOMHighResTimeStamp); + TJSPostMessageOptions = class external name 'Object' (TJSObject) + targetOrigin : string; + transfer : TJSValueDynArray; + end; + TJSWindowArray = Array of TJSWindow; TJSWindow = class external name 'Window' (TJSObject) Private @@ -2073,6 +2078,7 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject) function open(Const aURL,aTarget : String) : TJSWindow; overload; function open(Const aURL,aTarget : String; AOptions : TJSObject) : TJSWindow; overload; procedure postMessage(aMessage : JSValue); + procedure postMessage(aMessage : JSValue; aOptions : TJSPostMessageOptions); procedure postMessage(aMessage : JSValue; aTransfer : TJSValueDynArray); procedure postMessage(aMessage : JSValue; aTarget : string); procedure postMessage(aMessage : JSValue; aTarget : string; aTransfer : TJSValueDynArray);