'
' Excerpts from class module used to manage iGrid
'
Option Compare Database
Option Explicit

Dim clrHover As Long = &HF5F5F5 'White Smoke
Dim lngCurrentHoverRow As Long
Dim clrNonHover As OLE_COLOR

Private Sub igObj_MouseEnter(ByVal lRow As Long, ByVal lCol As Long)
   Call hoverOn(lRow)
End Sub

Private Sub igObj_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single, ByVal lRowIfAny As Long, ByVal lColIfAny As Long)
   If (lRowIfAny = 0) Or (lColIfAny = 0) Then
      If lngCurrentHoverRow <> 0 Then
         Call hoverOff(lngCurrentHoverRow)
            lngCurrentHoverRow = 0
         End If
   End If
End Sub

Private Sub hoverOn(lRow As Long)
Dim i As Integer

   If lRow = lngCurrentHoverRow Then Exit Sub
    
   If lngCurrentHoverRow <> 0 Then
      Call hoverOff(lngCurrentHoverRow)
   End If
    
   With igObj
      'save the current colour
      clrNonHover = .CellBackColor(lRow, 1)
        
      'set to hover colour
      For i = 1 To .ColCount
         .CellBackColor(lRow, i) = clrHover
      Next i
   End With
   lngCurrentHoverRow = lRow

End Sub

Private Sub hoverOff(lRow As Long)
Dim i As Integer

   With igObj
      For i = 1 To .ColCount
         .CellBackColor(lRow, i) = clrNonHover
      Next i
   End With
    
End Sub

Public Sub EndHover()
'
' Procedure called from MouseMove event of form containing the iGrid
'
   If lngCurrentHoverRow <> 0 Then
      hoverOff (lngCurrentHoverRow)
      lngCurrentHoverRow = 0
   End If
End Sub