ZooFlow: PropertyDialog, ContextMenu, Async Queries in Database

GUIs.Common/DocumentResultList/frmDocumentResultList.vb

@@ -463,6 +463,20 @@ Public Class frmDocumentResultList
         End Try
     End Sub
 
+    Private Sub OpenProperties()
+        Try
+            Dim oRow = GetActiveRow()
+
+            If oRow IsNot Nothing Then
+                Dim oObjectId = oRow.Item(COLUMN_DOCID)
+                Dim oPropertyDialog As New frmObjectPropertyDialog(_LogConfig, _Environment, oObjectId)
+                oPropertyDialog.Show()
+            End If
+        Catch ex As Exception
+            _Logger.Error(ex)
+        End Try
+    End Sub
+
     Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
         OpenFile()
     End Sub
@@ -479,6 +493,10 @@ Public Class frmDocumentResultList
         OpenFile()
     End Sub
 
+    Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenToolStripMenuItem.Click
+        OpenProperties()
+    End Sub
+
     Private Sub OrdnerÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OrdnerÖffnenToolStripMenuItem.Click
         OpenFolderPath()
     End Sub
@@ -523,5 +541,21 @@ Public Class frmDocumentResultList
         OpenFile()
     End Sub
 
+    Private Sub GridView_PopupMenuShowing(sender As Object, e As PopupMenuShowingEventArgs) Handles GridView1.PopupMenuShowing, GridView2.PopupMenuShowing, GridView3.PopupMenuShowing
+        Dim oView As GridView = sender
 
+        If e.MenuType = DevExpress.XtraGrid.Views.Grid.GridMenuType.Row Then
+            Dim oRowHandle = e.HitInfo.RowHandle
+            Dim oRow As DataRow = oView.GetDataRow(oRowHandle)
+            Dim oFilepath As String = oRow.Item(COLUMN_FILEPATH)
+            Dim oObjectId As Long = oRow.Item(COLUMN_DOCID)
+            Dim oMenu As New DocumentPropertyMenu(_LogConfig, _Environment, oFilepath, oObjectId)
+
+            e.Menu.Items.Clear()
+
+            For Each oItem In oMenu.GetMenuItems()
+                e.Menu.Items.Add(oItem)
+            Next
+        End If
+    End Sub
 End Class