package body MSHTML.IHTMLTableCell_Object is

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

   function Get_rowSpan
     (This : IHTMLTableCell_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLTableCell_Get_rowSpan);
   end Get_rowSpan;

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

   function Get_colSpan
     (This : IHTMLTableCell_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLTableCell_Get_colSpan);
   end Get_colSpan;

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

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

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

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

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

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

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

   function Get_noWrap
     (This : IHTMLTableCell_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLTableCell_Get_noWrap);
   end Get_noWrap;

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

   function Get_background
     (This : IHTMLTableCell_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLTableCell_Get_background);
   end Get_background;

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

   function Get_borderColor
     (This : IHTMLTableCell_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLTableCell_Get_borderColor);
   end Get_borderColor;

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

   function Get_borderColorLight
     (This : IHTMLTableCell_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLTableCell_Get_borderColorLight);
   end Get_borderColorLight;

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

   function Get_borderColorDark
     (This : IHTMLTableCell_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLTableCell_Get_borderColorDark);
   end Get_borderColorDark;

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

   function Get_width
     (This : IHTMLTableCell_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLTableCell_Get_width);
   end Get_width;

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

   function Get_height
     (This : IHTMLTableCell_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLTableCell_Get_height);
   end Get_height;

   function Get_cellIndex
     (This : IHTMLTableCell_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLTableCell_Get_cellIndex);
   end Get_cellIndex;

end MSHTML.IHTMLTableCell_Object;

