FormattedTextAreaStyle Object

Description

Represents an FormattedTextAreaStyle.

For a list of all members defined in this module, see FormattedTextAreaStyle members.

Object Model

Remarks

This class can be used to define a certain style of text to be used with a FormattedTextArea object.

Interfaces

Implemented Interface	Description
Object

Example

[ASP - VBScript]

<!-- METADATA TYPE="typelib" UUID="{DF9225FE-94A4-490D-8CAD-E8366CE621D3}"--> 
 <% 
    ' The METADATA tag above was added to import the constants (i.e. DPDF_Font_Helvetica). 
    Dim MyDocument  
    Set MyDocument = Server.CreateObject( "DynamicPDF.Document" )  
    ' Create a Page and add it to the document 
    Dim MyPage  
    Set MyPage = MyDocument.AddPage()  
    Dim MyAreaGroup 
    Set MyAreaGroup = MyPage.AddAreaGroup( 400, 300 ) 
    ' Create the text and the Formatted text area 
    Dim MyFormattedText  
    MyFormattedText= "<p>Formatted text area provide rich formatting support for " + _ 
        "text that appears in the document. You have complete control over 8 paragraph " + _ 
        "properties: spacing before, spacing after, first line indentation, left indentation," + _ 
        " right indentation, alignment, allowing orphan lines, and white space preservation; " + _ 
        "6 font properties: <font face='Times'>font face, </font><font " + _ 
        "pointSize='6'>font size, </font><font color='FF0000'>color, " + _ 
        "</font><b>bold, </b><i>italic and </i><u>" + _ 
        "underline</u>; and 2 line properties: leading, and leading type. Text can " + _ 
        "also be rotated.</p>" 
    Dim MyFormattedTextArea  
    Set MyFormattedTextArea = MyAreaGroup.AddFormattedTextArea( MyFormattedText, 0, 0, 256, 400, DPDF_FontFamily_Helvetica, 12, False ) 
    MyFormattedTextArea.Style.Font.Face = DPDF_FontFamily_TimesRoman 
    MyFormattedTextArea.Style.Font.Color = "4169E1" 'Royal Blue 
    MyFormattedTextArea.Style.Font.Size = 15 
    MyFormattedTextArea.Style.Line.Leading = 12 
    MyFormattedTextArea.Style.Line.LeadingType = DPDF_LineLeadingType_Exactly 
    MyFormattedTextArea.Style.Paragraph.Align = DPDF_Align_FullJustify 
    MyFormattedTextArea.Style.Paragraph.Indent = 32 
    ' Draw the PDF 
    MyDocument.DrawToWeb 
    Set MyPage = Nothing 
    Set MyDocument = Nothing 
%>