Codejock Developer Community : SOLVED: Changing highlight colour

SOLVED: Changing highlight colour : Hi,Add "ReportControl.SetCustomDraw...

Mon, 23 Jan 2012 03:04:18 +0000

Author: Xander75
Subject: 19425
Posted: 23 January 2012 at 3:04am

Hi,

Add "ReportControl.SetCustomDraw xtpCustomBeforeDrawRow" to the ReportControl setup then using the BeforeDrawRow event:

Private Sub ReportControl_BeforeDrawRow(ByVal Row As XtremeReportControl.IReportRow, ByVal Item As XtremeReportControl.IReportRecordItem, ByVal Metrics As XtremeReportControl.IReportRecordItemMetrics)
    If Item.Record(7).Value = "Auth" Then
        ReportControl.PaintManager.HighlightBackColor = vbGreen
    Else
        ReportControl.PaintManager.HighlightBackColor = vbRed
    End If
End Sub

SOLVED: Changing highlight colour : HiI do the same with tasks,...

Sat, 21 Jan 2012 07:54:22 +0000

Author: markmark
Subject: 19425
Posted: 21 January 2012 at 7:54am

Hi

I do the same with tasks, that are overdue, etc.

This is the idea of the code I use.

rRecord will be the record row you want to change.

Dim iItems As ReportRecordItem
Dim rRecord As ReportRecord

Dim CColor As Long

CColor = &H998AFD ' RED

For Each iItems In rRecord

    iItems.BackColor = CColor

Next

SOLVED: Changing highlight colour : Here's a quick example (add...

Sat, 21 Jan 2012 00:21:27 +0000

Author: jpbro
Subject: 19425
Posted: 21 January 2012 at 12:21am

Here's a quick example (add a ReportControl called ReportControl1 to a form then paste the following code):


Option Explicit

Private Sub Form_Load()
   Dim i As Long
   
   With Me.ReportControl1
   
      .Columns.Add 0, "Test", 100, False
      
      For i = 1 To 25
         With .Records.Add
            If i Mod 2 = 0 Then
               .AddItem i
            Else
               .AddItem Chr$(65 + i)
            End If
         End With
      Next i
      
      .Populate
   End With
   
   SetHighlightColor Me.ReportControl1.FocusedRow
End Sub

Private Sub ReportControl1_FocusChanging(ByVal NewRow As XtremeReportControl.IReportRow, ByVal NewColumn As XtremeReportControl.IReportColumn, ByVal NewItem As XtremeReportControl.IReportRecordItem, Cancel As Boolean)
   SetHighlightColor NewRow
End Sub

Private Sub SetHighlightColor(po_Row As XtremeReportControl.IReportRow)
   If po_Row Is Nothing Then Exit Sub
   
   If IsNumeric(po_Row.Record.Item(0).Value) Then
      Me.ReportControl1.PaintManager.HighlightBackColor = vbRed
   Else
      Me.ReportControl1.PaintManager.HighlightBackColor = vbBlue
   End If
End Sub