package body MSHTML.IHTMLRuleStyle2_Object is

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

   function Get_tableLayout
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_tableLayout);
   end Get_tableLayout;

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

   function Get_borderCollapse
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_borderCollapse);
   end Get_borderCollapse;

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

   function Get_direction
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_direction);
   end Get_direction;

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

   function Get_behavior
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_behavior);
   end Get_behavior;

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

   function Get_position
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_position);
   end Get_position;

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

   function Get_unicodeBidi
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_unicodeBidi);
   end Get_unicodeBidi;

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

   function Get_bottom
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_bottom);
   end Get_bottom;

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

   function Get_right
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_right);
   end Get_right;

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

   function Get_pixelBottom
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_pixelBottom);
   end Get_pixelBottom;

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

   function Get_pixelRight
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_pixelRight);
   end Get_pixelRight;

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

   function Get_posBottom
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_posBottom);
   end Get_posBottom;

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

   function Get_posRight
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_posRight);
   end Get_posRight;

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

   function Get_imeMode
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_imeMode);
   end Get_imeMode;

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

   function Get_rubyAlign
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_rubyAlign);
   end Get_rubyAlign;

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

   function Get_rubyPosition
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_rubyPosition);
   end Get_rubyPosition;

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

   function Get_rubyOverhang
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_rubyOverhang);
   end Get_rubyOverhang;

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

   function Get_layoutGridChar
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_layoutGridChar);
   end Get_layoutGridChar;

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

   function Get_layoutGridLine
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_layoutGridLine);
   end Get_layoutGridLine;

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

   function Get_layoutGridMode
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_layoutGridMode);
   end Get_layoutGridMode;

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

   function Get_layoutGridType
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_layoutGridType);
   end Get_layoutGridType;

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

   function Get_layoutGrid
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_layoutGrid);
   end Get_layoutGrid;

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

   function Get_textAutospace
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_textAutospace);
   end Get_textAutospace;

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

   function Get_wordBreak
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_wordBreak);
   end Get_wordBreak;

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

   function Get_lineBreak
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_lineBreak);
   end Get_lineBreak;

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

   function Get_textJustify
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_textJustify);
   end Get_textJustify;

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

   function Get_textJustifyTrim
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_textJustifyTrim);
   end Get_textJustifyTrim;

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

   function Get_textKashida
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_textKashida);
   end Get_textKashida;

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

   function Get_overflowX
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_overflowX);
   end Get_overflowX;

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

   function Get_overflowY
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_overflowY);
   end Get_overflowY;

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

   function Get_accelerator
     (This : IHTMLRuleStyle2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLRuleStyle2_Get_accelerator);
   end Get_accelerator;

end MSHTML.IHTMLRuleStyle2_Object;

