Description
Adds a Circle to the Template object and returns a New Circle object.
Syntax
Public Function AddCircle( _
ByVal X As Single, _
ByVal Y As Single, _
ByVal Radius As Single _
) As Circle
Parameters
- X
- The X Coordinate of the Circle.
- Y
- The Y Coordinate of the Circle.
- Radius
- The radius of the Circle.
Return Type
A Circle object.
Example
[ASP - VBScript]
<!-- METADATA TYPE="typelib" UUID="{DF9225FE-94A4-490D-8CAD-E8366CE621D3}"-->
<%
Dim MyDocument
Set MyDocument = Server.CreateObject("DynamicPDF.Document")
' Create a Page and add it to the document
Dim MyPage
Set MyPage = MyDocument.AddPage()
' Create two circles
Dim MyCircle1
Set MyCircle1 = MyPage.AddCircle( 100, 100, 50 )
MyCircle1.BorderColor = "000000"
MyCircle1.FillColor = "FF4500"
MyCircle1.Apply = DPDF_ApplyColor_Both
MyCircle1.BorderWidth = 2
MyCircle1.BorderStyle = DPDF_LineStyle_Solid
Dim MyCircle2
Set MyCircle2 = MyPage.AddCircle( 150, 75, 50 )
MyCircle2.BorderColor = "000000"
MyCircle2.FillColor = "00FF00"
MyCircle2.Apply = DPDF_ApplyColor_Both
MyCircle2.BorderWidth = 2
MyCircle2.BorderStyle = DPDF_LineStyle_Solid
' Draw the PDF
MyDocument.DrawToWeb
Set MyPage = Nothing
Set MyDocument = Nothing
%> |
See Also
Template Object
