paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-21 19:29:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ResizeObserver

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-12-04 22:58:09 +01:00
parent 28d68c938b
commit 7e9be798c2
1 changed files with 71 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -49,6 +49,7 @@ Type
TJSShowOpenFilePickerOptions = class; TJSShowOpenFilePickerOptions = class;
TJSShowSaveFilePickerOptions = class; TJSShowSaveFilePickerOptions = class;
TJSHTMLResizeObserver = class;
{$IFDEF FPC_DOTTEDUNITS} {$IFDEF FPC_DOTTEDUNITS}
TJSServiceWorker = BrowserApi.WebOrWorker.TJSServiceWorker; TJSServiceWorker = BrowserApi.WebOrWorker.TJSServiceWorker;
@ -348,6 +349,33 @@ Type
{$ENDIF} {$ENDIF}
end; end;
{ TJSDOMRectReadOnly }
TJSDOMRectReadOnly = class external name 'DOMRect' (TJSObject)
private
fbottom: double; external name 'bottom';
fHeight: double; external name 'height';
fleft: double; external name 'left';
fright: double; external name 'right';
ftop: double; external name 'top';
fwidth: double; external name 'width';
fx: double; external name 'x';
fy: double;external name 'y';
public
// left,top,right,bottom,x,y,width,height : double;
{$IFDEF FIREFOX}
constructor New;
{$ENDIF}
Property left : double read fleft;
Property top : double read ftop;
Property right : double read fright;
Property bottom : double read fbottom;
Property x : double read fx;
Property y : double read fy;
Property width : double read fwidth;
Property height : double read fHeight;
end;
TJSClientRect = record TJSClientRect = record
left,top,right,bottom : double; left,top,right,bottom : double;
{$IFDEF FIREFOX} {$IFDEF FIREFOX}
@ -3374,6 +3402,49 @@ Type
function serializeToString(aRoot: TJSNode): string; function serializeToString(aRoot: TJSNode): string;
end; end;
{ TJSSizeElement }
TJSSizeElement = class external name 'Object' (TJSObject)
private
Fblocksize: nativeint; external name 'blocksize';
Finlinesize: nativeint; external name 'inlinesize';
Public
property blocksize : nativeint read Fblocksize;
property inlinesize : nativeint read Finlinesize;
end;
TJSSizeElementArray = Array of TJSSizeElement;
{ TJSHTMLResizeObserverEntry }
TJSHTMLResizeObserverEntry = class external name 'Object' (TJSObject)
private
FborderBoxSize: TJSSizeElementArray; external name 'borderBoxSize';
FContentRect: TJSDOMRectReadOnly; external name 'contentRect';
FcontentBoxSize: TJSSizeElementArray; external name 'contentBoxSize';
FdevicePixelContentBoxSize: TJSSizeElementArray; external name 'devicePixelContentBoxSize';
FTarget: TJSElement; external name 'target';
Public
Property borderBoxSize: TJSSizeElementArray Read FborderBoxSize;
Property contentBoxSize: TJSSizeElementArray Read FcontentBoxSize;
property contentRect : TJSDOMRectReadOnly Read FContentRect;
Property devicePixelContentBoxSize: TJSSizeElementArray Read FdevicePixelContentBoxSize;
Property Target : TJSElement Read FTarget;
end;
TJSHTMLResizeObserverEntryArray = Array of TJSHTMLResizeObserverEntry;
TJSHTMLResizeObserverCallback = reference to procedure (Entries : TJSHTMLResizeObserverEntryArray; aObserver : TJSHTMLResizeObserver);
TJSHTMLResizeObserverOptions = class external name 'Object' (TJSObject)
box : string;
end;
TJSHTMLResizeObserver = class external name 'ResizeObserver' (TJSObject)
constructor new(aCallback : TJSHTMLResizeObserverCallback);
procedure disconnect;
procedure observe(aTarget : TJSElement);
procedure observe(aTarget : TJSElement; aOptions :TJSHTMLResizeObserverOptions);
procedure unobserve(aTarget : TJSElement);
end;
var var
document : TJSDocument; external name 'document'; document : TJSDocument; external name 'document';