package body MSHTML.IHTMLEventObj2_Object is

   procedure setAttribute
     (This             : IHTMLEventObj2_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      AttributeValue   : GNATCOM.Types.VARIANT;
      lFlags           : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free             : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLEventObj2_setAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => lFlags,
          2 => AttributeValue,
          3 => strAttributeName),
         Free);
   end setAttribute;

   function getAttribute
     (This             : IHTMLEventObj2_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      lFlags           : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLEventObj2_getAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => lFlags,
          2 => strAttributeName),
         Free);
   end getAttribute;

   function removeAttribute
     (This             : IHTMLEventObj2_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      lFlags           : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLEventObj2_removeAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => lFlags,
          2 => strAttributeName),
         Free);
   end removeAttribute;

   procedure Put_propertyName
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_propertyName,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_propertyName;

   function Get_propertyName
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_propertyName);
   end Get_propertyName;

   procedure PutRef_bookmarks
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         IHTMLEventObj2_PutRef_bookmarks,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_bookmarks;

   function Get_bookmarks
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_bookmarks);
   end Get_bookmarks;

   procedure PutRef_recordset
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         IHTMLEventObj2_PutRef_recordset,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_recordset;

   function Get_recordset
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_recordset);
   end Get_recordset;

   procedure Put_dataFld
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_dataFld,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_dataFld;

   function Get_dataFld
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_dataFld);
   end Get_dataFld;

   procedure PutRef_boundElements
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         IHTMLEventObj2_PutRef_boundElements,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_boundElements;

   function Get_boundElements
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_boundElements);
   end Get_boundElements;

   procedure Put_repeat
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_repeat,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_repeat;

   function Get_repeat
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_repeat);
   end Get_repeat;

   procedure Put_srcUrn
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_srcUrn,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_srcUrn;

   function Get_srcUrn
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_srcUrn);
   end Get_srcUrn;

   procedure PutRef_srcElement
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         IHTMLEventObj2_PutRef_srcElement,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_srcElement;

   function Get_srcElement
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_srcElement);
   end Get_srcElement;

   procedure Put_altKey
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_altKey,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_altKey;

   function Get_altKey
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_altKey);
   end Get_altKey;

   procedure Put_ctrlKey
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_ctrlKey,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ctrlKey;

   function Get_ctrlKey
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_ctrlKey);
   end Get_ctrlKey;

   procedure Put_shiftKey
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_shiftKey,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_shiftKey;

   function Get_shiftKey
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_shiftKey);
   end Get_shiftKey;

   procedure PutRef_fromElement
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         IHTMLEventObj2_PutRef_fromElement,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_fromElement;

   function Get_fromElement
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_fromElement);
   end Get_fromElement;

   procedure PutRef_toElement
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         IHTMLEventObj2_PutRef_toElement,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_toElement;

   function Get_toElement
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_toElement);
   end Get_toElement;

   procedure Put_button
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_button,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_button;

   function Get_button
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_button);
   end Get_button;

   procedure Put_type
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_type,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_type;

   function Get_type
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_type);
   end Get_type;

   procedure Put_qualifier
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_qualifier,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_qualifier;

   function Get_qualifier
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_qualifier);
   end Get_qualifier;

   procedure Put_reason
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_reason,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_reason;

   function Get_reason
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_reason);
   end Get_reason;

   procedure Put_x
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_x,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_x;

   function Get_x
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_x);
   end Get_x;

   procedure Put_y
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_y,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_y;

   function Get_y
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_y);
   end Get_y;

   procedure Put_clientX
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_clientX,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_clientX;

   function Get_clientX
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_clientX);
   end Get_clientX;

   procedure Put_clientY
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_clientY,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_clientY;

   function Get_clientY
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_clientY);
   end Get_clientY;

   procedure Put_offsetX
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_offsetX,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_offsetX;

   function Get_offsetX
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_offsetX);
   end Get_offsetX;

   procedure Put_offsetY
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_offsetY,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_offsetY;

   function Get_offsetY
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_offsetY);
   end Get_offsetY;

   procedure Put_screenX
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_screenX,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_screenX;

   function Get_screenX
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_screenX);
   end Get_screenX;

   procedure Put_screenY
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLEventObj2_Put_screenY,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_screenY;

   function Get_screenY
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_screenY);
   end Get_screenY;

   procedure PutRef_srcFilter
     (This : IHTMLEventObj2_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         IHTMLEventObj2_PutRef_srcFilter,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_srcFilter;

   function Get_srcFilter
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_srcFilter);
   end Get_srcFilter;

   function Get_dataTransfer
     (This : IHTMLEventObj2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj2_Get_dataTransfer);
   end Get_dataTransfer;

end MSHTML.IHTMLEventObj2_Object;

