package body MSHTML.DispHTMLCSSStyleDeclaration_Object is

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   function Get_msScrollChaining
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msScrollChaining);
   end Get_msScrollChaining;

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

   function Get_msContentZooming
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msContentZooming);
   end Get_msContentZooming;

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

   function Get_msContentZoomSnapType
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msContentZoomSnapType);
   end Get_msContentZoomSnapType;

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

   function Get_msScrollRails
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msScrollRails);
   end Get_msScrollRails;

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

   function Get_msContentZoomChaining
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msContentZoomChaining);
   end Get_msContentZoomChaining;

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

   function Get_msScrollSnapType
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msScrollSnapType);
   end Get_msScrollSnapType;

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

   function Get_msContentZoomLimit
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msContentZoomLimit);
   end Get_msContentZoomLimit;

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

   function Get_msContentZoomSnap
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msContentZoomSnap);
   end Get_msContentZoomSnap;

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

   function Get_msContentZoomSnapPoints
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msContentZoomSnapPoints);
   end Get_msContentZoomSnapPoints;

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

   function Get_msContentZoomLimitMin
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msContentZoomLimitMin);
   end Get_msContentZoomLimitMin;

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

   function Get_msContentZoomLimitMax
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msContentZoomLimitMax);
   end Get_msContentZoomLimitMax;

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

   function Get_msScrollSnapX
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msScrollSnapX);
   end Get_msScrollSnapX;

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

   function Get_msScrollSnapY
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msScrollSnapY);
   end Get_msScrollSnapY;

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

   function Get_msScrollSnapPointsX
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msScrollSnapPointsX);
   end Get_msScrollSnapPointsX;

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

   function Get_msScrollSnapPointsY
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msScrollSnapPointsY);
   end Get_msScrollSnapPointsY;

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

   function Get_msGridColumn
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msGridColumn);
   end Get_msGridColumn;

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

   function Get_msGridColumnAlign
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msGridColumnAlign);
   end Get_msGridColumnAlign;

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

   function Get_msGridColumns
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msGridColumns);
   end Get_msGridColumns;

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

   function Get_msGridColumnSpan
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msGridColumnSpan);
   end Get_msGridColumnSpan;

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

   function Get_msGridRow
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msGridRow);
   end Get_msGridRow;

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

   function Get_msGridRowAlign
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msGridRowAlign);
   end Get_msGridRowAlign;

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

   function Get_msGridRows
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msGridRows);
   end Get_msGridRows;

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

   function Get_msGridRowSpan
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msGridRowSpan);
   end Get_msGridRowSpan;

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

   function Get_msWrapThrough
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msWrapThrough);
   end Get_msWrapThrough;

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

   function Get_msWrapMargin
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msWrapMargin);
   end Get_msWrapMargin;

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

   function Get_msWrapFlow
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msWrapFlow);
   end Get_msWrapFlow;

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

   function Get_msAnimationName
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msAnimationName);
   end Get_msAnimationName;

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

   function Get_msAnimationDuration
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msAnimationDuration);
   end Get_msAnimationDuration;

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

   function Get_msAnimationTimingFunction
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msAnimationTimingFunction);
   end Get_msAnimationTimingFunction;

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

   function Get_msAnimationDelay
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msAnimationDelay);
   end Get_msAnimationDelay;

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

   function Get_msAnimationDirection
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msAnimationDirection);
   end Get_msAnimationDirection;

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

   function Get_msAnimationPlayState
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msAnimationPlayState);
   end Get_msAnimationPlayState;

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

   function Get_msAnimationIterationCount
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msAnimationIterationCount);
   end Get_msAnimationIterationCount;

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

   function Get_msAnimation
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msAnimation);
   end Get_msAnimation;

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

   function Get_msAnimationFillMode
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msAnimationFillMode);
   end Get_msAnimationFillMode;

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

   function Get_colorInterpolationFilters
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_colorInterpolationFilters);
   end Get_colorInterpolationFilters;

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

   function Get_columnCount
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_columnCount);
   end Get_columnCount;

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

   function Get_columnWidth
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_columnWidth);
   end Get_columnWidth;

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

   function Get_columnGap
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_columnGap);
   end Get_columnGap;

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

   function Get_columnFill
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_columnFill);
   end Get_columnFill;

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

   function Get_columnSpan
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_columnSpan);
   end Get_columnSpan;

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

   function Get_columns
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_columns);
   end Get_columns;

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

   function Get_columnRule
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_columnRule);
   end Get_columnRule;

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

   function Get_columnRuleColor
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_columnRuleColor);
   end Get_columnRuleColor;

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

   function Get_columnRuleStyle
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_columnRuleStyle);
   end Get_columnRuleStyle;

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

   function Get_columnRuleWidth
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_columnRuleWidth);
   end Get_columnRuleWidth;

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

   function Get_breakBefore
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_breakBefore);
   end Get_breakBefore;

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

   function Get_breakAfter
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_breakAfter);
   end Get_breakAfter;

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

   function Get_breakInside
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_breakInside);
   end Get_breakInside;

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

   function Get_floodColor
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_floodColor);
   end Get_floodColor;

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

   function Get_floodOpacity
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_floodOpacity);
   end Get_floodOpacity;

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

   function Get_lightingColor
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_lightingColor);
   end Get_lightingColor;

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

   function Get_msScrollLimitXMin
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msScrollLimitXMin);
   end Get_msScrollLimitXMin;

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

   function Get_msScrollLimitYMin
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msScrollLimitYMin);
   end Get_msScrollLimitYMin;

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

   function Get_msScrollLimitXMax
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msScrollLimitXMax);
   end Get_msScrollLimitXMax;

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

   function Get_msScrollLimitYMax
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msScrollLimitYMax);
   end Get_msScrollLimitYMax;

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

   function Get_msScrollLimit
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msScrollLimit);
   end Get_msScrollLimit;

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

   function Get_textShadow
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_textShadow);
   end Get_textShadow;

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

   function Get_msFlowFrom
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msFlowFrom);
   end Get_msFlowFrom;

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

   function Get_msFlowInto
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msFlowInto);
   end Get_msFlowInto;

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

   function Get_msHyphens
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msHyphens);
   end Get_msHyphens;

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

   function Get_msHyphenateLimitZone
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msHyphenateLimitZone);
   end Get_msHyphenateLimitZone;

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

   function Get_msHyphenateLimitChars
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msHyphenateLimitChars);
   end Get_msHyphenateLimitChars;

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

   function Get_msHyphenateLimitLines
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msHyphenateLimitLines);
   end Get_msHyphenateLimitLines;

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

   function Get_msHighContrastAdjust
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msHighContrastAdjust);
   end Get_msHighContrastAdjust;

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

   function Get_enableBackground
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_enableBackground);
   end Get_enableBackground;

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

   function Get_msFontFeatureSettings
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msFontFeatureSettings);
   end Get_msFontFeatureSettings;

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

   function Get_msUserSelect
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msUserSelect);
   end Get_msUserSelect;

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

   function Get_msOverflowStyle
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msOverflowStyle);
   end Get_msOverflowStyle;

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

   function Get_msTransformStyle
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msTransformStyle);
   end Get_msTransformStyle;

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

   function Get_msBackfaceVisibility
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msBackfaceVisibility);
   end Get_msBackfaceVisibility;

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

   function Get_msPerspective
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msPerspective);
   end Get_msPerspective;

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

   function Get_msPerspectiveOrigin
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msPerspectiveOrigin);
   end Get_msPerspectiveOrigin;

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

   function Get_msTransitionProperty
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msTransitionProperty);
   end Get_msTransitionProperty;

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

   function Get_msTransitionDuration
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msTransitionDuration);
   end Get_msTransitionDuration;

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

   function Get_msTransitionTimingFunction
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msTransitionTimingFunction);
   end Get_msTransitionTimingFunction;

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

   function Get_msTransitionDelay
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msTransitionDelay);
   end Get_msTransitionDelay;

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

   function Get_msTransition
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msTransition);
   end Get_msTransition;

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

   function Get_msTouchAction
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msTouchAction);
   end Get_msTouchAction;

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

   function Get_msScrollTranslation
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msScrollTranslation);
   end Get_msScrollTranslation;

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

   function Get_msFlex
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msFlex);
   end Get_msFlex;

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

   function Get_msFlexPositive
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msFlexPositive);
   end Get_msFlexPositive;

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

   function Get_msFlexNegative
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msFlexNegative);
   end Get_msFlexNegative;

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

   function Get_msFlexPreferredSize
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msFlexPreferredSize);
   end Get_msFlexPreferredSize;

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

   function Get_msFlexFlow
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msFlexFlow);
   end Get_msFlexFlow;

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

   function Get_msFlexDirection
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msFlexDirection);
   end Get_msFlexDirection;

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

   function Get_msFlexWrap
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msFlexWrap);
   end Get_msFlexWrap;

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

   function Get_msFlexAlign
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msFlexAlign);
   end Get_msFlexAlign;

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

   function Get_msFlexItemAlign
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msFlexItemAlign);
   end Get_msFlexItemAlign;

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

   function Get_msFlexPack
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msFlexPack);
   end Get_msFlexPack;

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

   function Get_msFlexLinePack
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msFlexLinePack);
   end Get_msFlexLinePack;

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

   function Get_msFlexOrder
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msFlexOrder);
   end Get_msFlexOrder;

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

   function Get_msTouchSelect
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msTouchSelect);
   end Get_msTouchSelect;

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

   function Get_transform
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_transform);
   end Get_transform;

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

   function Get_transformOrigin
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_transformOrigin);
   end Get_transformOrigin;

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

   function Get_transformStyle
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_transformStyle);
   end Get_transformStyle;

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

   function Get_backfaceVisibility
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_backfaceVisibility);
   end Get_backfaceVisibility;

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

   function Get_perspective
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_perspective);
   end Get_perspective;

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

   function Get_perspectiveOrigin
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_perspectiveOrigin);
   end Get_perspectiveOrigin;

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

   function Get_transitionProperty
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_transitionProperty);
   end Get_transitionProperty;

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

   function Get_transitionDuration
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_transitionDuration);
   end Get_transitionDuration;

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

   function Get_transitionTimingFunction
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_transitionTimingFunction);
   end Get_transitionTimingFunction;

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

   function Get_transitionDelay
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_transitionDelay);
   end Get_transitionDelay;

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

   function Get_transition
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_transition);
   end Get_transition;

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

   function Get_fontFeatureSettings
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_fontFeatureSettings);
   end Get_fontFeatureSettings;

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

   function Get_animationName
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_animationName);
   end Get_animationName;

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

   function Get_animationDuration
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_animationDuration);
   end Get_animationDuration;

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

   function Get_animationTimingFunction
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_animationTimingFunction);
   end Get_animationTimingFunction;

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

   function Get_animationDelay
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_animationDelay);
   end Get_animationDelay;

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

   function Get_animationDirection
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_animationDirection);
   end Get_animationDirection;

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

   function Get_animationPlayState
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_animationPlayState);
   end Get_animationPlayState;

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

   function Get_animationIterationCount
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_animationIterationCount);
   end Get_animationIterationCount;

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

   function Get_animation
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_animation);
   end Get_animation;

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

   function Get_animationFillMode
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_animationFillMode);
   end Get_animationFillMode;

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

   function Get_flex
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_flex);
   end Get_flex;

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

   function Get_flexDirection
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_flexDirection);
   end Get_flexDirection;

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

   function Get_flexWrap
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_flexWrap);
   end Get_flexWrap;

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

   function Get_flexFlow
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_flexFlow);
   end Get_flexFlow;

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

   function Get_flexGrow
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_flexGrow);
   end Get_flexGrow;

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

   function Get_flexShrink
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_flexShrink);
   end Get_flexShrink;

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

   function Get_flexBasis
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_flexBasis);
   end Get_flexBasis;

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

   function Get_justifyContent
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_justifyContent);
   end Get_justifyContent;

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

   function Get_alignItems
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_alignItems);
   end Get_alignItems;

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

   function Get_alignSelf
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_alignSelf);
   end Get_alignSelf;

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

   function Get_alignContent
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_alignContent);
   end Get_alignContent;

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

   function Get_borderImage
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_borderImage);
   end Get_borderImage;

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

   function Get_borderImageSource
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_borderImageSource);
   end Get_borderImageSource;

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

   function Get_borderImageSlice
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_borderImageSlice);
   end Get_borderImageSlice;

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

   function Get_borderImageWidth
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_borderImageWidth);
   end Get_borderImageWidth;

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

   function Get_borderImageOutset
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_borderImageOutset);
   end Get_borderImageOutset;

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

   function Get_borderImageRepeat
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_borderImageRepeat);
   end Get_borderImageRepeat;

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

   function Get_msImeAlign
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msImeAlign);
   end Get_msImeAlign;

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

   function Get_msTextCombineHorizontal
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msTextCombineHorizontal);
   end Get_msTextCombineHorizontal;

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

   function Get_touchAction
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_touchAction);
   end Get_touchAction;

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

   function Get_webkitAppearance
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitAppearance);
   end Get_webkitAppearance;

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

   function Get_webkitUserSelect
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitUserSelect);
   end Get_webkitUserSelect;

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

   function Get_webkitBoxAlign
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBoxAlign);
   end Get_webkitBoxAlign;

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

   function Get_webkitBoxOrdinalGroup
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBoxOrdinalGroup);
   end Get_webkitBoxOrdinalGroup;

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

   function Get_webkitBoxPack
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBoxPack);
   end Get_webkitBoxPack;

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

   function Get_webkitBoxFlex
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBoxFlex);
   end Get_webkitBoxFlex;

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

   function Get_webkitBoxOrient
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBoxOrient);
   end Get_webkitBoxOrient;

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

   function Get_webkitBoxDirection
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBoxDirection);
   end Get_webkitBoxDirection;

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

   function Get_webkitTransform
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitTransform);
   end Get_webkitTransform;

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

   function Get_webkitBackgroundSize
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBackgroundSize);
   end Get_webkitBackgroundSize;

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

   function Get_webkitBackfaceVisibility
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBackfaceVisibility);
   end Get_webkitBackfaceVisibility;

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

   function Get_webkitAnimation
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitAnimation);
   end Get_webkitAnimation;

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

   function Get_webkitTransition
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitTransition);
   end Get_webkitTransition;

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

   function Get_webkitAnimationName
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitAnimationName);
   end Get_webkitAnimationName;

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

   function Get_webkitAnimationDuration
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitAnimationDuration);
   end Get_webkitAnimationDuration;

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

   function Get_webkitAnimationTimingFunction
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitAnimationTimingFunction);
   end Get_webkitAnimationTimingFunction;

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

   function Get_webkitAnimationDelay
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitAnimationDelay);
   end Get_webkitAnimationDelay;

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

   function Get_webkitAnimationIterationCount
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitAnimationIterationCount);
   end Get_webkitAnimationIterationCount;

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

   function Get_webkitAnimationDirection
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitAnimationDirection);
   end Get_webkitAnimationDirection;

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

   function Get_webkitAnimationPlayState
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitAnimationPlayState);
   end Get_webkitAnimationPlayState;

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

   function Get_webkitTransitionProperty
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitTransitionProperty);
   end Get_webkitTransitionProperty;

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

   function Get_webkitTransitionDuration
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitTransitionDuration);
   end Get_webkitTransitionDuration;

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

   function Get_webkitTransitionTimingFunction
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitTransitionTimingFunction);
   end Get_webkitTransitionTimingFunction;

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

   function Get_webkitTransitionDelay
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitTransitionDelay);
   end Get_webkitTransitionDelay;

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

   function Get_webkitBackgroundAttachment
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBackgroundAttachment);
   end Get_webkitBackgroundAttachment;

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

   function Get_webkitBackgroundColor
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBackgroundColor);
   end Get_webkitBackgroundColor;

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

   function Get_webkitBackgroundClip
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBackgroundClip);
   end Get_webkitBackgroundClip;

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

   function Get_webkitBackgroundImage
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBackgroundImage);
   end Get_webkitBackgroundImage;

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

   function Get_webkitBackgroundRepeat
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBackgroundRepeat);
   end Get_webkitBackgroundRepeat;

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

   function Get_webkitBackgroundOrigin
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBackgroundOrigin);
   end Get_webkitBackgroundOrigin;

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

   function Get_webkitBackgroundPosition
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBackgroundPosition);
   end Get_webkitBackgroundPosition;

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

   function Get_webkitBackgroundPositionX
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBackgroundPositionX);
   end Get_webkitBackgroundPositionX;

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

   function Get_webkitBackgroundPositionY
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBackgroundPositionY);
   end Get_webkitBackgroundPositionY;

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

   function Get_webkitBackground
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBackground);
   end Get_webkitBackground;

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

   function Get_webkitTransformOrigin
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitTransformOrigin);
   end Get_webkitTransformOrigin;

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

   function Get_msTextSizeAdjust
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_msTextSizeAdjust);
   end Get_msTextSizeAdjust;

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

   function Get_webkitTextSizeAdjust
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitTextSizeAdjust);
   end Get_webkitTextSizeAdjust;

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

   function Get_webkitBorderImage
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBorderImage);
   end Get_webkitBorderImage;

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

   function Get_webkitBorderImageSource
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBorderImageSource);
   end Get_webkitBorderImageSource;

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

   function Get_webkitBorderImageSlice
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBorderImageSlice);
   end Get_webkitBorderImageSlice;

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

   function Get_webkitBorderImageWidth
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBorderImageWidth);
   end Get_webkitBorderImageWidth;

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

   function Get_webkitBorderImageOutset
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBorderImageOutset);
   end Get_webkitBorderImageOutset;

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

   function Get_webkitBorderImageRepeat
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBorderImageRepeat);
   end Get_webkitBorderImageRepeat;

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

   function Get_webkitBoxSizing
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitBoxSizing);
   end Get_webkitBoxSizing;

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

   function Get_webkitAnimationFillMode
     (This : DispHTMLCSSStyleDeclaration_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLCSSStyleDeclaration_Get_webkitAnimationFillMode);
   end Get_webkitAnimationFillMode;

   function msGetPropertyEnabled
     (This : DispHTMLCSSStyleDeclaration_Type;
      name : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLCSSStyleDeclaration_msGetPropertyEnabled,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => name),
         Free);
   end msGetPropertyEnabled;

   procedure msPutPropertyEnabled
     (This : DispHTMLCSSStyleDeclaration_Type;
      name : GNATCOM.Types.VARIANT;
      b    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLCSSStyleDeclaration_msPutPropertyEnabled,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => b,
          2 => name),
         Free);
   end msPutPropertyEnabled;

end MSHTML.DispHTMLCSSStyleDeclaration_Object;

