package body MSHTML.IHTMLCSSStyleDeclaration_Object is

   function Get_length
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_length);
   end Get_length;

   function Get_parentRule
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_parentRule);
   end Get_parentRule;

   function getPropertyValue
     (This             : IHTMLCSSStyleDeclaration_Type;
      bstrPropertyName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLCSSStyleDeclaration_getPropertyValue,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrPropertyName),
         Free);
   end getPropertyValue;

   function getPropertyPriority
     (This             : IHTMLCSSStyleDeclaration_Type;
      bstrPropertyName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLCSSStyleDeclaration_getPropertyPriority,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrPropertyName),
         Free);
   end getPropertyPriority;

   function removeProperty
     (This             : IHTMLCSSStyleDeclaration_Type;
      bstrPropertyName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLCSSStyleDeclaration_removeProperty,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrPropertyName),
         Free);
   end removeProperty;

   procedure setProperty
     (This                 : IHTMLCSSStyleDeclaration_Type;
      bstrPropertyName     : GNATCOM.Types.VARIANT;
      pvarPropertyValue    : GNATCOM.Types.VARIANT;
      pvarPropertyPriority : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free                 : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLCSSStyleDeclaration_setProperty,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvarPropertyPriority,
          2 => pvarPropertyValue,
          3 => bstrPropertyName),
         Free);
   end setProperty;

   function item
     (This  : IHTMLCSSStyleDeclaration_Type;
      index : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLCSSStyleDeclaration_item,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => index),
         Free);
   end item;

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

   function Get_fontFamily
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_fontFamily);
   end Get_fontFamily;

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

   function Get_fontStyle
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_fontStyle);
   end Get_fontStyle;

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

   function Get_fontVariant
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_fontVariant);
   end Get_fontVariant;

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

   function Get_fontWeight
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_fontWeight);
   end Get_fontWeight;

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

   function Get_fontSize
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_fontSize);
   end Get_fontSize;

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

   function Get_font
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_font);
   end Get_font;

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

   function Get_color
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_color);
   end Get_color;

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

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

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

   function Get_backgroundColor
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_backgroundColor);
   end Get_backgroundColor;

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

   function Get_backgroundImage
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_backgroundImage);
   end Get_backgroundImage;

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

   function Get_backgroundRepeat
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_backgroundRepeat);
   end Get_backgroundRepeat;

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

   function Get_backgroundAttachment
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_backgroundAttachment);
   end Get_backgroundAttachment;

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

   function Get_backgroundPosition
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_backgroundPosition);
   end Get_backgroundPosition;

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

   function Get_backgroundPositionX
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_backgroundPositionX);
   end Get_backgroundPositionX;

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

   function Get_backgroundPositionY
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_backgroundPositionY);
   end Get_backgroundPositionY;

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

   function Get_wordSpacing
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_wordSpacing);
   end Get_wordSpacing;

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

   function Get_letterSpacing
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_letterSpacing);
   end Get_letterSpacing;

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

   function Get_textDecoration
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_textDecoration);
   end Get_textDecoration;

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

   function Get_verticalAlign
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_verticalAlign);
   end Get_verticalAlign;

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

   function Get_textTransform
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_textTransform);
   end Get_textTransform;

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

   function Get_textAlign
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_textAlign);
   end Get_textAlign;

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

   function Get_textIndent
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_textIndent);
   end Get_textIndent;

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

   function Get_lineHeight
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_lineHeight);
   end Get_lineHeight;

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

   function Get_marginTop
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_marginTop);
   end Get_marginTop;

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

   function Get_marginRight
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_marginRight);
   end Get_marginRight;

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

   function Get_marginBottom
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_marginBottom);
   end Get_marginBottom;

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

   function Get_marginLeft
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_marginLeft);
   end Get_marginLeft;

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

   function Get_margin
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_margin);
   end Get_margin;

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

   function Get_paddingTop
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_paddingTop);
   end Get_paddingTop;

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

   function Get_paddingRight
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_paddingRight);
   end Get_paddingRight;

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

   function Get_paddingBottom
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_paddingBottom);
   end Get_paddingBottom;

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

   function Get_paddingLeft
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_paddingLeft);
   end Get_paddingLeft;

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

   function Get_padding
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_padding);
   end Get_padding;

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

   function Get_border
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_border);
   end Get_border;

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

   function Get_borderTop
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderTop);
   end Get_borderTop;

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

   function Get_borderRight
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderRight);
   end Get_borderRight;

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

   function Get_borderBottom
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderBottom);
   end Get_borderBottom;

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

   function Get_borderLeft
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderLeft);
   end Get_borderLeft;

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

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

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

   function Get_borderTopColor
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderTopColor);
   end Get_borderTopColor;

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

   function Get_borderRightColor
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderRightColor);
   end Get_borderRightColor;

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

   function Get_borderBottomColor
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderBottomColor);
   end Get_borderBottomColor;

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

   function Get_borderLeftColor
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderLeftColor);
   end Get_borderLeftColor;

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

   function Get_borderWidth
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderWidth);
   end Get_borderWidth;

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

   function Get_borderTopWidth
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderTopWidth);
   end Get_borderTopWidth;

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

   function Get_borderRightWidth
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderRightWidth);
   end Get_borderRightWidth;

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

   function Get_borderBottomWidth
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderBottomWidth);
   end Get_borderBottomWidth;

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

   function Get_borderLeftWidth
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderLeftWidth);
   end Get_borderLeftWidth;

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

   function Get_borderStyle
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderStyle);
   end Get_borderStyle;

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

   function Get_borderTopStyle
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderTopStyle);
   end Get_borderTopStyle;

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

   function Get_borderRightStyle
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderRightStyle);
   end Get_borderRightStyle;

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

   function Get_borderBottomStyle
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderBottomStyle);
   end Get_borderBottomStyle;

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

   function Get_borderLeftStyle
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderLeftStyle);
   end Get_borderLeftStyle;

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

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

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

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

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

   function Get_styleFloat
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_styleFloat);
   end Get_styleFloat;

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

   function Get_clear
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_clear);
   end Get_clear;

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

   function Get_display
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_display);
   end Get_display;

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

   function Get_visibility
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_visibility);
   end Get_visibility;

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

   function Get_listStyleType
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_listStyleType);
   end Get_listStyleType;

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

   function Get_listStylePosition
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_listStylePosition);
   end Get_listStylePosition;

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

   function Get_listStyleImage
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_listStyleImage);
   end Get_listStyleImage;

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

   function Get_listStyle
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_listStyle);
   end Get_listStyle;

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

   function Get_whiteSpace
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_whiteSpace);
   end Get_whiteSpace;

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

   function Get_top
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_top);
   end Get_top;

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

   function Get_left
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_left);
   end Get_left;

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

   function Get_zIndex
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_zIndex);
   end Get_zIndex;

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

   function Get_overflow
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_overflow);
   end Get_overflow;

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

   function Get_pageBreakBefore
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_pageBreakBefore);
   end Get_pageBreakBefore;

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

   function Get_pageBreakAfter
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_pageBreakAfter);
   end Get_pageBreakAfter;

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

   function Get_cssText
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_cssText);
   end Get_cssText;

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

   function Get_cursor
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_cursor);
   end Get_cursor;

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

   function Get_clip
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_clip);
   end Get_clip;

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

   function Get_filter
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_filter);
   end Get_filter;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   function Get_layoutFlow
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_layoutFlow);
   end Get_layoutFlow;

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

   function Get_zoom
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_zoom);
   end Get_zoom;

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

   function Get_wordWrap
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_wordWrap);
   end Get_wordWrap;

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

   function Get_textUnderlinePosition
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_textUnderlinePosition);
   end Get_textUnderlinePosition;

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

   function Get_scrollbarBaseColor
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_scrollbarBaseColor);
   end Get_scrollbarBaseColor;

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

   function Get_scrollbarFaceColor
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_scrollbarFaceColor);
   end Get_scrollbarFaceColor;

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

   function Get_scrollbar3dLightColor
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_scrollbar3dLightColor);
   end Get_scrollbar3dLightColor;

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

   function Get_scrollbarShadowColor
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_scrollbarShadowColor);
   end Get_scrollbarShadowColor;

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

   function Get_scrollbarHighlightColor
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_scrollbarHighlightColor);
   end Get_scrollbarHighlightColor;

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

   function Get_scrollbarDarkShadowColor
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_scrollbarDarkShadowColor);
   end Get_scrollbarDarkShadowColor;

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

   function Get_scrollbarArrowColor
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_scrollbarArrowColor);
   end Get_scrollbarArrowColor;

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

   function Get_scrollbarTrackColor
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_scrollbarTrackColor);
   end Get_scrollbarTrackColor;

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

   function Get_writingMode
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_writingMode);
   end Get_writingMode;

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

   function Get_textAlignLast
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_textAlignLast);
   end Get_textAlignLast;

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

   function Get_textKashidaSpace
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_textKashidaSpace);
   end Get_textKashidaSpace;

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

   function Get_textOverflow
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_textOverflow);
   end Get_textOverflow;

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

   function Get_minHeight
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_minHeight);
   end Get_minHeight;

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

   function Get_msInterpolationMode
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_msInterpolationMode);
   end Get_msInterpolationMode;

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

   function Get_maxHeight
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_maxHeight);
   end Get_maxHeight;

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

   function Get_minWidth
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_minWidth);
   end Get_minWidth;

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

   function Get_maxWidth
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_maxWidth);
   end Get_maxWidth;

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

   function Get_content
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_content);
   end Get_content;

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

   function Get_captionSide
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_captionSide);
   end Get_captionSide;

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

   function Get_counterIncrement
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_counterIncrement);
   end Get_counterIncrement;

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

   function Get_counterReset
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_counterReset);
   end Get_counterReset;

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

   function Get_outline
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_outline);
   end Get_outline;

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

   function Get_outlineWidth
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_outlineWidth);
   end Get_outlineWidth;

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

   function Get_outlineStyle
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_outlineStyle);
   end Get_outlineStyle;

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

   function Get_outlineColor
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_outlineColor);
   end Get_outlineColor;

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

   function Get_boxSizing
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_boxSizing);
   end Get_boxSizing;

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

   function Get_borderSpacing
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderSpacing);
   end Get_borderSpacing;

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

   function Get_orphans
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_orphans);
   end Get_orphans;

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

   function Get_widows
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_widows);
   end Get_widows;

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

   function Get_pageBreakInside
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_pageBreakInside);
   end Get_pageBreakInside;

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

   function Get_emptyCells
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_emptyCells);
   end Get_emptyCells;

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

   function Get_msBlockProgression
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_msBlockProgression);
   end Get_msBlockProgression;

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

   function Get_quotes
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_quotes);
   end Get_quotes;

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

   function Get_alignmentBaseline
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_alignmentBaseline);
   end Get_alignmentBaseline;

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

   function Get_baselineShift
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_baselineShift);
   end Get_baselineShift;

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

   function Get_dominantBaseline
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_dominantBaseline);
   end Get_dominantBaseline;

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

   function Get_fontSizeAdjust
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_fontSizeAdjust);
   end Get_fontSizeAdjust;

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

   function Get_fontStretch
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_fontStretch);
   end Get_fontStretch;

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

   function Get_opacity
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_opacity);
   end Get_opacity;

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

   function Get_clipPath
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_clipPath);
   end Get_clipPath;

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

   function Get_clipRule
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_clipRule);
   end Get_clipRule;

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

   function Get_fill
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_fill);
   end Get_fill;

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

   function Get_fillOpacity
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_fillOpacity);
   end Get_fillOpacity;

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

   function Get_fillRule
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_fillRule);
   end Get_fillRule;

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

   function Get_kerning
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_kerning);
   end Get_kerning;

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

   function Get_marker
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_marker);
   end Get_marker;

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

   function Get_markerEnd
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_markerEnd);
   end Get_markerEnd;

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

   function Get_markerMid
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_markerMid);
   end Get_markerMid;

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

   function Get_markerStart
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_markerStart);
   end Get_markerStart;

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

   function Get_mask
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_mask);
   end Get_mask;

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

   function Get_pointerEvents
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_pointerEvents);
   end Get_pointerEvents;

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

   function Get_stopColor
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_stopColor);
   end Get_stopColor;

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

   function Get_stopOpacity
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_stopOpacity);
   end Get_stopOpacity;

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

   function Get_stroke
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_stroke);
   end Get_stroke;

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

   function Get_strokeDasharray
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_strokeDasharray);
   end Get_strokeDasharray;

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

   function Get_strokeDashoffset
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_strokeDashoffset);
   end Get_strokeDashoffset;

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

   function Get_strokeLinecap
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_strokeLinecap);
   end Get_strokeLinecap;

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

   function Get_strokeLinejoin
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_strokeLinejoin);
   end Get_strokeLinejoin;

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

   function Get_strokeMiterlimit
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_strokeMiterlimit);
   end Get_strokeMiterlimit;

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

   function Get_strokeOpacity
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_strokeOpacity);
   end Get_strokeOpacity;

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

   function Get_strokeWidth
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_strokeWidth);
   end Get_strokeWidth;

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

   function Get_textAnchor
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_textAnchor);
   end Get_textAnchor;

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

   function Get_glyphOrientationHorizontal
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_glyphOrientationHorizontal);
   end Get_glyphOrientationHorizontal;

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

   function Get_glyphOrientationVertical
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_glyphOrientationVertical);
   end Get_glyphOrientationVertical;

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

   function Get_borderRadius
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderRadius);
   end Get_borderRadius;

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

   function Get_borderTopLeftRadius
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderTopLeftRadius);
   end Get_borderTopLeftRadius;

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

   function Get_borderTopRightRadius
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderTopRightRadius);
   end Get_borderTopRightRadius;

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

   function Get_borderBottomRightRadius
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderBottomRightRadius);
   end Get_borderBottomRightRadius;

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

   function Get_borderBottomLeftRadius
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_borderBottomLeftRadius);
   end Get_borderBottomLeftRadius;

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

   function Get_clipTop
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_clipTop);
   end Get_clipTop;

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

   function Get_clipRight
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_clipRight);
   end Get_clipRight;

   function Get_clipBottom
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_clipBottom);
   end Get_clipBottom;

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

   function Get_clipLeft
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_clipLeft);
   end Get_clipLeft;

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

   function Get_cssFloat
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_cssFloat);
   end Get_cssFloat;

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

   function Get_backgroundClip
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_backgroundClip);
   end Get_backgroundClip;

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

   function Get_backgroundOrigin
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_backgroundOrigin);
   end Get_backgroundOrigin;

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

   function Get_backgroundSize
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_backgroundSize);
   end Get_backgroundSize;

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

   function Get_boxShadow
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_boxShadow);
   end Get_boxShadow;

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

   function Get_msTransform
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_msTransform);
   end Get_msTransform;

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

   function Get_msTransformOrigin
     (This : IHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLCSSStyleDeclaration_Get_msTransformOrigin);
   end Get_msTransformOrigin;

end MSHTML.IHTMLCSSStyleDeclaration_Object;

