with GNATCOM.Dispinterface;

package MSHTML.IHTMLMarqueeElement_Object is

   type IHTMLMarqueeElement_Type is
     new GNATCOM.Dispinterface.Dispinterface_Type with null record;

   procedure Put_bgColor
     (This : IHTMLMarqueeElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_bgColor
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_scrollDelay
     (This : IHTMLMarqueeElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_scrollDelay
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_direction
     (This : IHTMLMarqueeElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_direction
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_behavior
     (This : IHTMLMarqueeElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_behavior
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_scrollAmount
     (This : IHTMLMarqueeElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_scrollAmount
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_loop
     (This : IHTMLMarqueeElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_loop
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_vspace
     (This : IHTMLMarqueeElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_vspace
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_hspace
     (This : IHTMLMarqueeElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_hspace
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onfinish
     (This : IHTMLMarqueeElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onfinish
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onstart
     (This : IHTMLMarqueeElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onstart
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onbounce
     (This : IHTMLMarqueeElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onbounce
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_width
     (This : IHTMLMarqueeElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_width
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_height
     (This : IHTMLMarqueeElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_height
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_trueSpeed
     (This : IHTMLMarqueeElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_trueSpeed
     (This : IHTMLMarqueeElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure start
     (This : IHTMLMarqueeElement_Type);

   procedure stop
     (This : IHTMLMarqueeElement_Type);

end MSHTML.IHTMLMarqueeElement_Object;

