^{TTChartOnGetSeriesPointerStyle}

<sup>type TTChartOnGetSeriesPointerStyle = procedure(ASender: TObject; SeriesIndex, ValueIndex: Integer; Var AStyle: EPointerStyle) of object;

Type Library
TeeChartx

Description
This event notifies the user that a EPointerStyle must be supplied. The AStyle variant contains the default EPointerStyle representation. You can alter AStyle for the SeriesIndex and ValueIndex to paint a customized EPointerStyle.</sup>

^{Example [Visual Basic]:}

^{Private Sub Form_Load()}

^{With TChart1}

^{.AddSeries scBubble}

^{.Series(0).FillSampleValues 10}

^{End With}

^{End Sub}

^{Private Sub TChart1_OnGetSeriesPointerStyle(ByVal SeriesIndex As Long, ByVal ValueIndex As Long, AStyle As TeeChart.EPointerStyle)}

^{If Series = 0 Then}

^{With TChart1}

^{If ValueIndex = 2 Then}

^{AStyle = psStar}

^Else

^{AStyle = psCircle}

^{End If}

^{End With}

^{End If}

^{End Sub}