jj

EDMI_ClientSuite/frmMain.vb

@@ -22,6 +22,22 @@ Public Class frmMain
         oDashboard.MdiParent = DocumentManager.MdiParent
         oDashboard.Show()
 
+        ' --- Process Manager Panel ---
+        Dim oDataTable = New DataTable("PMDocuments")
+        Dim oDocNameColumn = New DataColumn("DocName", GetType(String))
+        oDataTable.Columns.Add(oDocNameColumn)
+
+        Dim oRow = oDataTable.NewRow()
+        oRow.Item("DocName") = "test1.xlsx"
+
+        oDataTable.Rows.Add(oRow)
+
+        ProcessManagerOverview.DataSource = oDataTable
+        AddHandler ProcessManagerOverview.RowDoubleClicked, Sub(Row As DataRowView)
+                                                                MsgBox($"Clicked on Document {Row.Row.Item("DocName")}")
+                                                            End Sub
+
+
         LoadLayout()
     End Sub
 
@@ -71,4 +87,8 @@ Public Class frmMain
         frm.MdiParent = DocumentManager.MdiParent
         frm.Show()
     End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+
+    End Sub
 End Class