package body MSHTML.HTMLObjectElementEvents2_Object is

   function onbeforeupdate
     (This    : HTMLObjectElementEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLObjectElementEvents2_onbeforeupdate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onbeforeupdate;

   procedure onafterupdate
     (This    : HTMLObjectElementEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLObjectElementEvents2_onafterupdate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onafterupdate;

   function onerrorupdate
     (This    : HTMLObjectElementEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLObjectElementEvents2_onerrorupdate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onerrorupdate;

   function onrowexit
     (This    : HTMLObjectElementEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLObjectElementEvents2_onrowexit,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onrowexit;

   procedure onrowenter
     (This    : HTMLObjectElementEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLObjectElementEvents2_onrowenter,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onrowenter;

   procedure ondatasetchanged
     (This    : HTMLObjectElementEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLObjectElementEvents2_ondatasetchanged,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end ondatasetchanged;

   procedure ondataavailable
     (This    : HTMLObjectElementEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLObjectElementEvents2_ondataavailable,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end ondataavailable;

   procedure ondatasetcomplete
     (This    : HTMLObjectElementEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLObjectElementEvents2_ondatasetcomplete,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end ondatasetcomplete;

   function onerror
     (This    : HTMLObjectElementEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLObjectElementEvents2_onerror,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onerror;

   procedure onrowsdelete
     (This    : HTMLObjectElementEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLObjectElementEvents2_onrowsdelete,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onrowsdelete;

   procedure onrowsinserted
     (This    : HTMLObjectElementEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLObjectElementEvents2_onrowsinserted,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onrowsinserted;

   procedure oncellchange
     (This    : HTMLObjectElementEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLObjectElementEvents2_oncellchange,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end oncellchange;

   procedure onreadystatechange
     (This    : HTMLObjectElementEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLObjectElementEvents2_onreadystatechange,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onreadystatechange;

end MSHTML.HTMLObjectElementEvents2_Object;

