package body MSHTML.IHTMLMarqueeElement_Object is

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

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

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

   function Get_scrollDelay
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMarqueeElement_Get_scrollDelay);
   end Get_scrollDelay;

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

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

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

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

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

   function Get_scrollAmount
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMarqueeElement_Get_scrollAmount);
   end Get_scrollAmount;

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

   function Get_loop
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMarqueeElement_Get_loop);
   end Get_loop;

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

   function Get_vspace
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMarqueeElement_Get_vspace);
   end Get_vspace;

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

   function Get_hspace
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMarqueeElement_Get_hspace);
   end Get_hspace;

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

   function Get_onfinish
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMarqueeElement_Get_onfinish);
   end Get_onfinish;

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

   function Get_onstart
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMarqueeElement_Get_onstart);
   end Get_onstart;

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

   function Get_onbounce
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMarqueeElement_Get_onbounce);
   end Get_onbounce;

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

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

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

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

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

   function Get_trueSpeed
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMarqueeElement_Get_trueSpeed);
   end Get_trueSpeed;

   procedure start
     (This : IHTMLMarqueeElement_Type)
   is
   begin
      Invoke (This, IHTMLMarqueeElement_start);
   end start;

   procedure stop
     (This : IHTMLMarqueeElement_Type)
   is
   begin
      Invoke (This, IHTMLMarqueeElement_stop);
   end stop;

end MSHTML.IHTMLMarqueeElement_Object;

