^{ICanvas.PolygonWithZ
ICanvas}

<sup>procedure PolygonWithZ(ArraySize: Integer; XArray, YArray: OleVariant; Z: Integer);

Type Library
TeeChartx

Description
Draws a 2D polygon onto the Chart Canvas at ZValue Z.</sup>

^{Example [Visual Basic]}

^{Private Sub Form_Load()}

^{TeeCommander1.Chart = TChart1}

^{With TChart1}

^{.Aspect.Chart3DPercent = 50}

^{.Aspect.Zoom = 50}

^{.Aspect.Orthogonal = False}

^{.AddSeries scPoint3D}

^{.Series(0).FillSampleValues 20}

^{.Axis.Depth.Visible = True}

^{End With}

^{End Sub}

^{Private Sub TChart1_OnAfterDraw()}

^{Dim XArray(4), YArray(4) As Variant}

^{Dim Count As Integer}

^{With TChart1}

^{XArray(0) = .Series(0).CalcXPos(5)}

^{YArray(0) = .Axis.Bottom.Position}

^{For i = 1 To 3}

^{XArray(i) = .Series(0).CalcXPos(i + 4)}

^{YArray(i) = .Series(0).CalcYPos(i + 4)}

^{Next i}

^{XArray(4) = .Series(0).CalcXPos(8)}

^{YArray(4) = .Axis.Bottom.Position}

^{.Canvas.PolygonWithZ 5, XArray, YArray, 40}

^{End With}

^{End Sub}