[SOLVED] Using BeforeDrawRow with a TreeColum

Hi,

I am using the ReportControl to display data in a TreeColumn style, as many of the columns display negative numbers I have added the "BeforeDrawRow" event which is as follows:

Private Sub rpcGrid_BeforeDrawRow(Index As Integer, ByVal Row As XtremeReportControl.IReportRow, ByVal Item As XtremeReportControl.IReportRecordItem, ByVal Metrics As XtremeReportControl.IReportRecordItemMetrics)
    If Item.Index > 0 Then
        If IsNumeric(Item.Value) Then Item.ForeColor = IIf(CDbl(Item.Value) < 0, vbRed, vbBlack)
    End If
  
    rpcGrid(Index).Redraw
End Sub

This works for the Rows being displayed by default, but once you expand the Tree column by clicking on the plus icon the grid does not update the colours. I did notice however that the grid updates once the row has been expanded and I click on the grid, this seems to update the colours or by moving the mouse over the grid column headers. But I need this to display the colours when the rows are expanded by default.

Is there a better method for forcing a refresh of the ReportControl after using the "BeforeDrawRow" event.

Hi Aaron,

Thanks for the quick response, I did try the .Caption but this didn't help.

I had seen that the BeforeDrawRow fires before the row is made visible, therefore I changed the code to use the following DrawItem event as this fires after the rows are made visible:

Private Sub rpcGrid_DrawItem(Index As Integer, ByVal Row As XtremeReportControl.IReportRow, ByVal Column As XtremeReportControl.IReportColumn, ByVal Item As XtremeReportControl.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 Item.Index > 0 Then
        If IsNumeric(Item.Value) Then Item.ForeColor = IIf(CDbl(Item.Value) < 0, vbRed, vbBlack)
    End If
End Sub

Private Sub rpcGrid_RowExpanded(Index As Integer, ByVal Row As XtremeReportControl.IReportRow)
    rpcGrid(Index).Redraw
End Sub

This still doesn't cause the ReportControl to update the colours.

I did however try the following, which is a bit messy but works...

Private Sub rpcGrid_RowExpanded(Index As Integer, ByVal Row As XtremeReportControl.IReportRow)
    LockWindowUpdate Me.hWnd
    rpcGrid(Index).ShowHeader = False
    DoEvents
    rpcGrid(Index).ShowHeader = True
    LockWindowUpdate 0&
End Sub

The above code made the ReportControl update correctly, however it is like I said... a bit messy!

Cheers Aaron...

I must admit that I never understood what you had meant about using the Metrics.

The addition of Metrics has enabled the colour to change immediately, however I have removed the redraw as this was causing the grid to slow down its response time immensely and is no longer required. 

Private Sub rpcGrid_BeforeDrawRow(Index As Integer, ByVal Row As XtremeReportControl.IReportRow, ByVal Item As XtremeReportControl.IReportRecordItem, ByVal Metrics As XtremeReportControl.IReportRecordItemMetrics)
    If Item.Index > 0 Then
        If IsNumeric(Item.Value) Then Metrics.ForeColor = IIf(CDbl(Item.Value) < 0, vbRed, vbBlack)
    End If
  
    rpcGrid(Index).Redraw
End Sub

Thanks, this issue is now resolved!

Yeah finding out about the use of the Metrics object has been a definite help as I had always wondered how to change an individual column colour also.

As for the messy code, this was only there in the interim as I would not have been happy to let that stay!!! lol

Thanks again.