Page Sets; Grid cells can now have a Tooltip and be forced to be Read-Only

Public Sub gridTest_InitialiseRow(ByVal sender As Object, ByVal e As finPageObjectInitialiseRowEventArgs) Handles gridTest.InitialiseRow

  If e.ListIndex >= 0 AndAlso e.ListIndex < mCollection.Count Then
    ' Tooltip
    e.Row.Cells("Icon").TooltipText = "My Tooltip: " & CStr(e.ListIndex)

    ' Read-Only
    Select Case e.ListIndex Mod 3
      Case 0
        e.Row.Cells("Selected").ReadOnly = iseDefaultableBoolean.True
      Case 1
        e.Row.Cells("Selected").ReadOnly = iseDefaultableBoolean.False
      Case 2
        e.Row.Cells("Selected").ReadOnly = iseDefaultableBoolean.Default
    End Select

    ' Update Fields
    With mCollection(e.ListIndex)
      e.Row.Cells("Selected").Value = .Selected
      e.Row.Cells("Icon").Value = "Edit"
    End With
  End If

End Sub