package body MSHTML.ISVGTextContentElement_Object is

   procedure PutRef_textLength
     (This : ISVGTextContentElement_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         ISVGTextContentElement_PutRef_textLength,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_textLength;

   function Get_textLength
     (This : ISVGTextContentElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, ISVGTextContentElement_Get_textLength);
   end Get_textLength;

   procedure PutRef_lengthAdjust
     (This : ISVGTextContentElement_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         ISVGTextContentElement_PutRef_lengthAdjust,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_lengthAdjust;

   function Get_lengthAdjust
     (This : ISVGTextContentElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, ISVGTextContentElement_Get_lengthAdjust);
   end Get_lengthAdjust;

   function getNumberOfChars
     (This : ISVGTextContentElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, ISVGTextContentElement_getNumberOfChars);
   end getNumberOfChars;

   function getComputedTextLength
     (This : ISVGTextContentElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, ISVGTextContentElement_getComputedTextLength);
   end getComputedTextLength;

   function getSubStringLength
     (This    : ISVGTextContentElement_Type;
      charnum : GNATCOM.Types.VARIANT;
      nchars  : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         ISVGTextContentElement_getSubStringLength,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => nchars,
          2 => charnum),
         Free);
   end getSubStringLength;

   function getStartPositionOfChar
     (This    : ISVGTextContentElement_Type;
      charnum : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         ISVGTextContentElement_getStartPositionOfChar,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => charnum),
         Free);
   end getStartPositionOfChar;

   function getEndPositionOfChar
     (This    : ISVGTextContentElement_Type;
      charnum : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         ISVGTextContentElement_getEndPositionOfChar,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => charnum),
         Free);
   end getEndPositionOfChar;

   function getExtentOfChar
     (This    : ISVGTextContentElement_Type;
      charnum : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         ISVGTextContentElement_getExtentOfChar,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => charnum),
         Free);
   end getExtentOfChar;

   function getRotationOfChar
     (This    : ISVGTextContentElement_Type;
      charnum : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         ISVGTextContentElement_getRotationOfChar,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => charnum),
         Free);
   end getRotationOfChar;

   function getCharNumAtPosition
     (This  : ISVGTextContentElement_Type;
      point : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         ISVGTextContentElement_getCharNumAtPosition,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => point),
         Free);
   end getCharNumAtPosition;

   procedure selectSubString
     (This    : ISVGTextContentElement_Type;
      charnum : GNATCOM.Types.VARIANT;
      nchars  : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         ISVGTextContentElement_selectSubString,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => nchars,
          2 => charnum),
         Free);
   end selectSubString;

end MSHTML.ISVGTextContentElement_Object;

