DrawCallout

Syntax

DrawCallout

Remarks

Inserts a callout drawing object in front of the current text layer at the upper-left corner of the document. A callout consists of a text box and a line segment within a bounding rectangle. When you first insert a callout, the text box is the same size as the bounding rectangle, so the line segment does not appear. You change the size of the text box with the DrawSetCalloutTextbox statement.

To change the size and position of the rectangle bounding the callout, as well as the fill color and line style, use FormatDrawingObject. You can change other options for the callout with FormatCallout.

Example

This example inserts and formats a callout that points to the left. The DrawCallout instruction inserts a default callout whose type is set by the FormatCallout instruction. The FormatDrawingObject instruction then positions and sizes the callout and adds a fill color. Coordinates for the text box within the callout are defined in the two-dimensional array calloutpts$() and then applied using DrawSetCalloutTextbox. Finally, text is inserted into the callout.

DrawCallout
FormatCallout .Type = 1, .Gap = "10 pt", .Angle = 4, \
    .Drop = "Center", .Length = "100 pt", .Border = 1, \
    .AutoAttach = 0, .Accent = 0
FormatDrawingObject .FillColor = 0, .FillPatternColor = 7, \
    .FillPattern = 5, .ArrowStyle = 2, \
    .HorizontalPos = "173 pt", .HorizontalFrom = 1, \
    .VerticalPos = "100 pt", .VerticalFrom = 1, \
    .Height = "42 pt", .Width = "161 pt"
Dim calloutpts$(2, 2)
calloutpts$(1, 1) = "63 pt"
calloutpts$(1, 2) = "0 pt"
calloutpts$(2, 1) = "97 pt"
calloutpts$(2, 2) = "42 pt"
DrawSetCalloutTextbox calloutpts$()
Insert "This callout points to the left."

See Also

DrawGetCalloutTextbox, DrawSetCalloutTextbox, DrawTextBox, FormatCallout, FormatDrawingObject