package body MSHTML.IHTMLTableSection_Object is

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

   function Get_align
     (This : IHTMLTableSection_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLTableSection_Get_align);
   end Get_align;

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

   function Get_vAlign
     (This : IHTMLTableSection_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLTableSection_Get_vAlign);
   end Get_vAlign;

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

   function Get_bgColor
     (This : IHTMLTableSection_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLTableSection_Get_bgColor);
   end Get_bgColor;

   function Get_rows
     (This : IHTMLTableSection_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLTableSection_Get_rows);
   end Get_rows;

   function insertRow
     (This  : IHTMLTableSection_Type;
      index : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLTableSection_insertRow,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => index),
         Free);
   end insertRow;

   procedure deleteRow
     (This  : IHTMLTableSection_Type;
      index : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free  : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLTableSection_deleteRow,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => index),
         Free);
   end deleteRow;

end MSHTML.IHTMLTableSection_Object;

