^{IBrush.AssignImage
IBrush}

<sup>procedure AssignImage(ImageHandle: Integer);

Type Library
TeeChartx

Description
The AssignImage method assigns a bitmap image to an IBrush element.</sup>

^{Example [Visual Basic]:}

^{Dim PicIndex}

^{Private Sub Form_Load()}

^{Dim i As Integer}

^{Dim X As ListImage}

^{'Load images into the ImageList.}

^{For i = 1 To 11}

^{Set X = ImageList1.ListImages. _}

^{Add(, , LoadPicture("C:\TestFiles\BrushStyles\TeeBrush" & i & ".bmp"))}

^{Picture1(i - 1).Picture = ImageList1.ListImages.Item(i).Picture}

^{Next i}

^{TChart1.AddSeries scBar}

^{TChart1.Series(0).FillSampleValues 7}

^{Picture1_Click (0)}

^{End Sub}

^{Private Sub Picture1_Click(Index As Integer)}

^{PicIndex = Index}

^{TChart1.Series(0).asBar.BarBrush.AssignImage ImageList1.ListImages.Item(PicIndex + 1).Picture}

^{TChart1.Repaint}

^{End Sub}

^{Private Sub TChart1_OnAfterDraw()}

^{With TChart1}

^{.Canvas.Brush.AssignImage ImageList1.ListImages.Item(PicIndex + 1).Picture}

^{.Canvas.Rectangle .Axis.Right.Position - 120, 40, .Axis.Right.Position - 10, 100}

^{.Canvas.TextOut .Axis.Right.Position - 115, 45, "Canvas rectangle"}

^{End With}

^{End Sub}

^{Private Sub Text1_DblClick()}

^{TChart1.ShowEditor}

^{End Sub}