package body MSHTML.IHTMLWindow7_Object is

   function getSelection
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IHTMLWindow7_getSelection);
   end getSelection;

   function getComputedStyle
     (This          : IHTMLWindow7_Type;
      varArgIn      : GNATCOM.Types.VARIANT;
      bstrPseudoElt : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free          : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLWindow7_getComputedStyle,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrPseudoElt,
          2 => varArgIn),
         Free);
   end getComputedStyle;

   function Get_styleMedia
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_styleMedia);
   end Get_styleMedia;

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

   function Get_performance
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_performance);
   end Get_performance;

   function Get_innerWidth
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_innerWidth);
   end Get_innerWidth;

   function Get_innerHeight
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_innerHeight);
   end Get_innerHeight;

   function Get_pageXOffset
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_pageXOffset);
   end Get_pageXOffset;

   function Get_pageYOffset
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_pageYOffset);
   end Get_pageYOffset;

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

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

   function Get_outerWidth
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_outerWidth);
   end Get_outerWidth;

   function Get_outerHeight
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_outerHeight);
   end Get_outerHeight;

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

   function Get_onabort
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onabort);
   end Get_onabort;

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

   function Get_oncanplay
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_oncanplay);
   end Get_oncanplay;

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

   function Get_oncanplaythrough
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_oncanplaythrough);
   end Get_oncanplaythrough;

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

   function Get_onchange
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onchange);
   end Get_onchange;

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

   function Get_onclick
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onclick);
   end Get_onclick;

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

   function Get_oncontextmenu
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_oncontextmenu);
   end Get_oncontextmenu;

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

   function Get_ondblclick
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_ondblclick);
   end Get_ondblclick;

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

   function Get_ondrag
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_ondrag);
   end Get_ondrag;

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

   function Get_ondragend
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_ondragend);
   end Get_ondragend;

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

   function Get_ondragenter
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_ondragenter);
   end Get_ondragenter;

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

   function Get_ondragleave
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_ondragleave);
   end Get_ondragleave;

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

   function Get_ondragover
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_ondragover);
   end Get_ondragover;

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

   function Get_ondragstart
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_ondragstart);
   end Get_ondragstart;

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

   function Get_ondrop
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_ondrop);
   end Get_ondrop;

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

   function Get_ondurationchange
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_ondurationchange);
   end Get_ondurationchange;

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

   function Get_onfocusin
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onfocusin);
   end Get_onfocusin;

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

   function Get_onfocusout
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onfocusout);
   end Get_onfocusout;

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

   function Get_oninput
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_oninput);
   end Get_oninput;

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

   function Get_onemptied
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onemptied);
   end Get_onemptied;

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

   function Get_onended
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onended);
   end Get_onended;

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

   function Get_onkeydown
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onkeydown);
   end Get_onkeydown;

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

   function Get_onkeypress
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onkeypress);
   end Get_onkeypress;

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

   function Get_onkeyup
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onkeyup);
   end Get_onkeyup;

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

   function Get_onloadeddata
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onloadeddata);
   end Get_onloadeddata;

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

   function Get_onloadedmetadata
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onloadedmetadata);
   end Get_onloadedmetadata;

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

   function Get_onloadstart
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onloadstart);
   end Get_onloadstart;

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

   function Get_onmousedown
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onmousedown);
   end Get_onmousedown;

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

   function Get_onmouseenter
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onmouseenter);
   end Get_onmouseenter;

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

   function Get_onmouseleave
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onmouseleave);
   end Get_onmouseleave;

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

   function Get_onmousemove
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onmousemove);
   end Get_onmousemove;

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

   function Get_onmouseout
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onmouseout);
   end Get_onmouseout;

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

   function Get_onmouseover
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onmouseover);
   end Get_onmouseover;

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

   function Get_onmouseup
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onmouseup);
   end Get_onmouseup;

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

   function Get_onmousewheel
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onmousewheel);
   end Get_onmousewheel;

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

   function Get_onoffline
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onoffline);
   end Get_onoffline;

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

   function Get_ononline
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_ononline);
   end Get_ononline;

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

   function Get_onprogress
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onprogress);
   end Get_onprogress;

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

   function Get_onratechange
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onratechange);
   end Get_onratechange;

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

   function Get_onreadystatechange
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onreadystatechange);
   end Get_onreadystatechange;

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

   function Get_onreset
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onreset);
   end Get_onreset;

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

   function Get_onseeked
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onseeked);
   end Get_onseeked;

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

   function Get_onseeking
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onseeking);
   end Get_onseeking;

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

   function Get_onselect
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onselect);
   end Get_onselect;

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

   function Get_onstalled
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onstalled);
   end Get_onstalled;

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

   function Get_onstorage
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onstorage);
   end Get_onstorage;

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

   function Get_onsubmit
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onsubmit);
   end Get_onsubmit;

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

   function Get_onsuspend
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onsuspend);
   end Get_onsuspend;

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

   function Get_ontimeupdate
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_ontimeupdate);
   end Get_ontimeupdate;

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

   function Get_onpause
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onpause);
   end Get_onpause;

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

   function Get_onplay
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onplay);
   end Get_onplay;

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

   function Get_onplaying
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onplaying);
   end Get_onplaying;

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

   function Get_onvolumechange
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onvolumechange);
   end Get_onvolumechange;

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

   function Get_onwaiting
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow7_Get_onwaiting);
   end Get_onwaiting;

end MSHTML.IHTMLWindow7_Object;

