Option Explicit On 
Option Strict On
 
Imports System
Imports System.Windows
Imports System.Windows.Forms
 
Namespace Components
 
    Public NotInheritable Class CDataGrid
        Inherits DataGrid
 
        Private m_HtiMouseDown As HitTestInfo           '//--- for storeing 
        ' HitTestInfo
        Private m_LastHTI As HitTestInfo                '//--- lase selected row
        Private m_ControlCollenction As New ArrayList   '//--- backup of 
        ' controlcollection
 
        Private m_FullRowSelect As Boolean              '//--- full row select 
 
        Sub New()
            MyBase.New()
        End Sub
 
 
 
        Protected Overrides Sub OnMouseDown(ByVal e As _
          System.Windows.Forms.MouseEventArgs)
            Dim ptPoint As Point = New Point(e.X, e.Y)
 
            '// first, call base event
            MyBase.OnMouseDown(e)
 
 
            Dim htInfo As HitTestInfo = Me.HitTest(ptPoint)
 
            Try
                '// check for cell type
                If htInfo.Type = HitTestType.Cell Then
 
                    m_HtiMouseDown = htInfo
 
                    '// check if it will be fullrowselect
                    If m_FullRowSelect Then
                        '// set current cell
                        Me.CurrentCell = New DataGridCell(htInfo.Row, _
                          htInfo.Column)
                        Me.Select(htInfo.Row)
                    End If
 
                End If
 
            Catch
            End Try
 
        End Sub
 
 
 
        Protected Overrides Sub OnMouseUp(ByVal e As _
          System.Windows.Forms.MouseEventArgs)
            Dim ptPoint As Point = New Point(e.X, e.Y)
 
            '// first, call base event
            MyBase.OnMouseUp(e)
 
 
                Dim htInfo As HitTestInfo = Me.HitTest(ptPoint)
 
                Try
                    '// check for cell type
                    If htInfo.Type = HitTestType.Cell Then
 
                        m_LastHTI = htInfo
 
                        '// set current cell
                        Me.CurrentCell = New DataGridCell(htInfo.Row, _
                          htInfo.Column)
 
                    '// check if it will be fullrowselect
                    If m_FullRowSelect Then
                        '// unselect row that was selected on mouse down
                        Me.UnSelect(m_HtiMouseDown.Row)
                        '// select row on witch was mouse released (mouseup)
                        Me.Select(htInfo.Row)
                    End If
 
                End If
 
            Catch
                End Try
 
        End Sub
 
 
        <System.ComponentModel.Browsable(False)> _
        Public Property FullRowSelect() As Boolean
            Get
                Return m_FullRowSelect
            End Get
            Set(ByVal Value As Boolean)
                m_FullRowSelect = Value
                If Value Then
                    If Not (m_LastHTI Is Nothing) Then
                        Me.Select(m_LastHTI.Row)
                    Else
                        Try
                            Me.Select(0)
                        Catch
                        End Try
                    End If
                Else
                    If Not (m_LastHTI Is Nothing) Then
                        Me.UnSelect(m_LastHTI.Row)
                    Else
                        Try
                            Me.UnSelect(0)
                        Catch
                        End Try
                    End If
                End If
            End Set
        End Property
 
    End Class
 
 
    Public Class CDataGridLabelColumn
        Inherits DataGridTextBoxColumn
 
        Protected Overloads Overrides Sub Edit(ByVal source As _
          System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer, ByVal _
          bounds As System.Drawing.Rectangle, ByVal [readOnly] As Boolean, _
          ByVal instantText As String, ByVal cellIsVisible As Boolean)
            '// do nothing
        End Sub
 
    End Class
 
End Namespace