Insert image in some cell of the report ?

' enable sending events


wndReportControl.SetCustomDraw xtpCustomDrawItem + xtpCustomMeasureRow


 


 



' Set row size as picture height



Private Sub wndReportControl_MeasureRow(ByVal Row As XtremeReportControl.IReportRow, ByVal hDC As stdole.OLE_HANDLE, ByVal Width As Long, Height As Long)


    '567 twips to a centimeter


    Height = Image1.Picture.Height / 1000 * 567 / Screen.TwipsPerPixelX


End Sub



 


' Place inmage named Image1 to your form, select bitmap for it


Private Sub wndReportControl_DrawItem(ByVal Row As IReportRow, ByVal Column As IReportColumn, ByVal Item As IReportRecordItem, ByVal hDC As stdole.OLE_HANDLE, ByVal left As Long, ByVal top As Long, ByVal right As Long, ByVal bottom As Long, DoDefault As Boolean)


    If Column.ItemIndex = COLUMN_SIZE Then


        


        DoDefault = False


        


        Dim pPicture As IPicture


        Set pPicture = Image1.Picture


      


        ' Draw image to report cell


        pPicture.Render hDC, left, top, right - left, bottom - top, _


                              0, pPicture.Height, pPicture.Width, -pPicture.Height, _


                              Null


    End If


    


End Sub