package body MSHTML.HTMLAnchorEvents2_Events is

   procedure Invoke
     (dispidMember : in Interfaces.C.long;
      wFlags       : in Interfaces.C.unsigned_short;
      pdispparams  : in GNATCOM.Types.Pointer_To_DISPPARAMS;
      Event_Object : in GNATCOM.Events.Event_Object.Event_Pointer)
   is
      use type Interfaces.C.long;
   begin
      case dispidMember is
         when HTMLAnchorEvents2_onhelp=>
            onhelp
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onclick=>
            onclick
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_ondblclick=>
            ondblclick
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onkeypress=>
            onkeypress
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onkeydown=>
            onkeydown
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onkeyup=>
            onkeyup
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onmouseout=>
            onmouseout
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onmouseover=>
            onmouseover
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onmousemove=>
            onmousemove
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onmousedown=>
            onmousedown
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onmouseup=>
            onmouseup
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onselectstart=>
            onselectstart
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onfilterchange=>
            onfilterchange
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_ondragstart=>
            ondragstart
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onbeforeupdate=>
            onbeforeupdate
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onafterupdate=>
            onafterupdate
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onerrorupdate=>
            onerrorupdate
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onrowexit=>
            onrowexit
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onrowenter=>
            onrowenter
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_ondatasetchanged=>
            ondatasetchanged
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_ondataavailable=>
            ondataavailable
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_ondatasetcomplete=>
            ondatasetcomplete
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onlosecapture=>
            onlosecapture
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onpropertychange=>
            onpropertychange
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onscroll=>
            onscroll
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onfocus=>
            onfocus
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onblur=>
            onblur
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onresize=>
            onresize
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_ondrag=>
            ondrag
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_ondragend=>
            ondragend
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_ondragenter=>
            ondragenter
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_ondragover=>
            ondragover
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_ondragleave=>
            ondragleave
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_ondrop=>
            ondrop
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onbeforecut=>
            onbeforecut
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_oncut=>
            oncut
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onbeforecopy=>
            onbeforecopy
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_oncopy=>
            oncopy
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onbeforepaste=>
            onbeforepaste
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onpaste=>
            onpaste
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_oncontextmenu=>
            oncontextmenu
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onrowsdelete=>
            onrowsdelete
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onrowsinserted=>
            onrowsinserted
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_oncellchange=>
            oncellchange
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onreadystatechange=>
            onreadystatechange
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onlayoutcomplete=>
            onlayoutcomplete
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onpage=>
            onpage
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onmouseenter=>
            onmouseenter
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onmouseleave=>
            onmouseleave
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onactivate=>
            onactivate
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_ondeactivate=>
            ondeactivate
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onbeforedeactivate=>
            onbeforedeactivate
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onbeforeactivate=>
            onbeforeactivate
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onfocusin=>
            onfocusin
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onfocusout=>
            onfocusout
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onmove=>
            onmove
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_oncontrolselect=>
            oncontrolselect
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onmovestart=>
            onmovestart
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onmoveend=>
            onmoveend
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onresizestart=>
            onresizestart
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onresizeend=>
            onresizeend
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when HTMLAnchorEvents2_onmousewheel=>
            onmousewheel
              (HTMLAnchorEvents2_Event'Class (Event_Object.all),
               pdispparams.rgvarg (0));
         when others =>
            null;
      end case;
   end Invoke;

   function Create (From : in GNATCOM.Events.Event_Object.Event_Pointer)
     return GNATCOM.Create.COM_Interface.Pointer_To_COM_Interface_Type
   is
   begin
      return GNATCOM.Events.Event_Object.Create
        (Invoke'Access,
         IID_HTMLAnchorEvents2,
         From);
   end Create;

   procedure Set_Events
     (This            : in out GNATCOM.Events.IConnectionPoint_Type;
      For_Object      : in     GNATCOM.IInterface.Interface_Type'Class;
      Event_Interface :
        access GNATCOM.Create.COM_Interface.COM_Interface_Type;
      Free            : Boolean := True)
   is
   begin
      GNATCOM.Events.Set_Events
        (This,
         For_Object,
         IID_HTMLAnchorEvents2,
         Event_Interface,
         Free);
   end Set_Events;

   procedure onhelp
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onhelp;

   procedure onclick
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onclick;

   procedure ondblclick
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end ondblclick;

   procedure onkeypress
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onkeypress;

   procedure onkeydown
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onkeydown;

   procedure onkeyup
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onkeyup;

   procedure onmouseout
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onmouseout;

   procedure onmouseover
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onmouseover;

   procedure onmousemove
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onmousemove;

   procedure onmousedown
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onmousedown;

   procedure onmouseup
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onmouseup;

   procedure onselectstart
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onselectstart;

   procedure onfilterchange
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onfilterchange;

   procedure ondragstart
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end ondragstart;

   procedure onbeforeupdate
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onbeforeupdate;

   procedure onafterupdate
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onafterupdate;

   procedure onerrorupdate
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onerrorupdate;

   procedure onrowexit
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onrowexit;

   procedure onrowenter
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onrowenter;

   procedure ondatasetchanged
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end ondatasetchanged;

   procedure ondataavailable
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end ondataavailable;

   procedure ondatasetcomplete
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end ondatasetcomplete;

   procedure onlosecapture
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onlosecapture;

   procedure onpropertychange
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onpropertychange;

   procedure onscroll
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onscroll;

   procedure onfocus
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onfocus;

   procedure onblur
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onblur;

   procedure onresize
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onresize;

   procedure ondrag
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end ondrag;

   procedure ondragend
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end ondragend;

   procedure ondragenter
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end ondragenter;

   procedure ondragover
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end ondragover;

   procedure ondragleave
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end ondragleave;

   procedure ondrop
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end ondrop;

   procedure onbeforecut
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onbeforecut;

   procedure oncut
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end oncut;

   procedure onbeforecopy
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onbeforecopy;

   procedure oncopy
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end oncopy;

   procedure onbeforepaste
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onbeforepaste;

   procedure onpaste
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onpaste;

   procedure oncontextmenu
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end oncontextmenu;

   procedure onrowsdelete
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onrowsdelete;

   procedure onrowsinserted
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onrowsinserted;

   procedure oncellchange
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end oncellchange;

   procedure onreadystatechange
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onreadystatechange;

   procedure onlayoutcomplete
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onlayoutcomplete;

   procedure onpage
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onpage;

   procedure onmouseenter
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onmouseenter;

   procedure onmouseleave
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onmouseleave;

   procedure onactivate
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onactivate;

   procedure ondeactivate
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end ondeactivate;

   procedure onbeforedeactivate
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onbeforedeactivate;

   procedure onbeforeactivate
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onbeforeactivate;

   procedure onfocusin
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onfocusin;

   procedure onfocusout
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onfocusout;

   procedure onmove
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onmove;

   procedure oncontrolselect
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end oncontrolselect;

   procedure onmovestart
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onmovestart;

   procedure onmoveend
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onmoveend;

   procedure onresizestart
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onresizestart;

   procedure onresizeend
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onresizeend;

   procedure onmousewheel
     (This    : HTMLAnchorEvents2_Event;
      pEvtObj : GNATCOM.Types.VARIANT)
   is
   begin
      null;
   end onmousewheel;

end MSHTML.HTMLAnchorEvents2_Events;

