WebAPI.Elements.pas

unit WebAPI.Elements;

interface

type

   JDOMTokenList = class external 'DOMTokenList'

      procedure Add(token : String); external 'add';
      procedure Remove(token : String); external 'remove';
      procedure Toggle(token : String); external 'toggle';
      function Contains(token : String) : Boolean; external 'contains';

   end;

   JDOMRect = class external 'DOMRect'

      X : Float; external 'x';
      Y : Float; external 'y';
      Width : Float; external 'width';
      Height : Float; external 'height';
      Top : Float; external 'top';
      Right : Float; external 'right';
      Bottom : Float; external 'bottom';
      Left : Float; external 'left';
      
   end;

   JElement = class;
   JElements = array of JElement;

   JElement = class external 'Element'

      procedure Append(element : JElement); overload; external 'append';
      procedure Append(element : array of JElement); overload; external 'append';

      function Closest(selectors : String) : JElement; external 'closest';

      procedure InsertAdjacentHTML(position, html : String); external 'insertAdjacentHTML';

      function GetAttribute(name : String) : String; external 'getAttribute';
      procedure SetAttribute(name, value : String); external 'setAttribute';
      property Attr[name : String] : String read GetAttribute write SetAttribute;

      function QuerySelector(filter : String) : JElement; external 'querySelector';
      function QuerySelectorAll(filter : String) : JElements; external 'querySelectorAll';

      procedure Remove(); external 'remove';

      ClassList : JDOMTokenList; external 'classList';
      ClassName : String; external 'className';
      InnerHTML : String; external 'innerHTML';
      InnerText : String; external 'innerText';
      PreviousElementSibling  : JElement; external 'previousElementSibling';
      NextElementSibling : JElement; external 'nextElementSibling';
      ParentElement : JElement; external 'parentElement';
      Style : Variant; external 'style';
      TextContent : String; external 'textContent';
      Value : String; external 'value';
      Checked : Variant; external 'checked';

      procedure AddEventListener(eventType : String; callback : procedure; useCapture : Boolean); overload; external 'addEventListener';
      procedure AddEventListener(eventType : String; callback : procedure (event : Variant); useCapture : Boolean); overload; external 'addEventListener';
      procedure Focus; external 'focus';

      function GetBoundingClientRect : JDOMRect; external 'getBoundingClientRect';

   end;