jj

EDMI_ClientSuite/UserControls/ProcessManagerOverview.vb

@@ -0,0 +1,20 @@
+Public Class ProcessManagerOverview
+    Public Delegate Sub RowDoubleClickedDelegate(RowView As DataRowView)
+    Public Event RowDoubleClicked As RowDoubleClickedDelegate
+
+    Public Property DataSource As DataTable
+        Get
+            Return GridMain.DataSource
+        End Get
+        Set(value As DataTable)
+            GridMain.DataSource = value
+        End Set
+    End Property
+
+    Private Sub ViewMain_RowClick(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowClickEventArgs) Handles ViewMain.RowClick
+        If e.Clicks = 2 Then
+            Dim oRow As DataRowView = ViewMain.GetRow(e.RowHandle)
+            RaiseEvent RowDoubleClicked(oRow)
+        End If
+    End Sub
+End Class