Fix Crash on ContextMenu open via FilterRow

app/DD_PM_WINDREAM/frmMain.Designer.vb

@@ -158,6 +158,7 @@ Partial Class frmMain
         'ChartTopLeft
         '
         resources.ApplyResources(Me.ChartTopLeft, "ChartTopLeft")
+        Me.ChartTopLeft.Legend.Name = "Default Legend"
         Me.ChartTopLeft.Name = "ChartTopLeft"
         Me.ChartTopLeft.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {}
         '
@@ -171,6 +172,7 @@ Partial Class frmMain
         'ChartTopRight
         '
         resources.ApplyResources(Me.ChartTopRight, "ChartTopRight")
+        Me.ChartTopRight.Legend.Name = "Default Legend"
         Me.ChartTopRight.Name = "ChartTopRight"
         Me.ChartTopRight.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {}
         '
@@ -199,6 +201,7 @@ Partial Class frmMain
         'ChartBottomLeft
         '
         resources.ApplyResources(Me.ChartBottomLeft, "ChartBottomLeft")
+        Me.ChartBottomLeft.Legend.Name = "Default Legend"
         Me.ChartBottomLeft.Name = "ChartBottomLeft"
         Me.ChartBottomLeft.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {}
         '
@@ -212,6 +215,7 @@ Partial Class frmMain
         'ChartBottomRight
         '
         resources.ApplyResources(Me.ChartBottomRight, "ChartBottomRight")
+        Me.ChartBottomRight.Legend.Name = "Default Legend"
         Me.ChartBottomRight.Name = "ChartBottomRight"
         Me.ChartBottomRight.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {}
         '
@@ -523,6 +527,7 @@ Partial Class frmMain
         resources.ApplyResources(Me.NavBarGroupProfiles, "NavBarGroupProfiles")
         Me.NavBarGroupProfiles.Expanded = True
         Me.NavBarGroupProfiles.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.LargeIconsText
+        Me.NavBarGroupProfiles.ImageOptions.LargeImage = CType(resources.GetObject("NavBarGroupProfiles.ImageOptions.LargeImage"), System.Drawing.Image)
         Me.NavBarGroupProfiles.Name = "NavBarGroupProfiles"
         '
         'cmsNavPane
@@ -543,20 +548,23 @@ Partial Class frmMain
         resources.ApplyResources(Me.NavBarGroupMore, "NavBarGroupMore")
         Me.NavBarGroupMore.Expanded = True
         Me.NavBarGroupMore.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.LargeIconsText
+        Me.NavBarGroupMore.ImageOptions.LargeImage = CType(resources.GetObject("NavBarGroupMore.ImageOptions.LargeImage"), System.Drawing.Image)
         Me.NavBarGroupMore.ItemLinks.AddRange(New DevExpress.XtraNavBar.NavBarItemLink() {New DevExpress.XtraNavBar.NavBarItemLink(Me.NavBarItemOverview), New DevExpress.XtraNavBar.NavBarItemLink(Me.NavBarItemDashboard)})
         Me.NavBarGroupMore.Name = "NavBarGroupMore"
         '
         'NavBarItemOverview
         '
-        Me.NavBarItemOverview.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[False]
         Me.NavBarItemOverview.Appearance.Image = CType(resources.GetObject("NavBarItemOverview.Appearance.Image"), System.Drawing.Image)
         Me.NavBarItemOverview.Appearance.Options.UseImage = True
         resources.ApplyResources(Me.NavBarItemOverview, "NavBarItemOverview")
+        Me.NavBarItemOverview.ImageOptions.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[False]
+        Me.NavBarItemOverview.ImageOptions.LargeImage = CType(resources.GetObject("NavBarItemOverview.ImageOptions.LargeImage"), System.Drawing.Image)
         Me.NavBarItemOverview.Name = "NavBarItemOverview"
         '
         'NavBarItemDashboard
         '
         resources.ApplyResources(Me.NavBarItemDashboard, "NavBarItemDashboard")
+        Me.NavBarItemDashboard.ImageOptions.LargeImage = CType(resources.GetObject("NavBarItemDashboard.ImageOptions.LargeImage"), System.Drawing.Image)
         Me.NavBarItemDashboard.Name = "NavBarItemDashboard"
         '
         'NotifyIcon1

app/DD_PM_WINDREAM/frmMain.vb

@@ -960,13 +960,14 @@ Public Class frmMain
     End Function
     Private Sub tsmiMarkedFilesFinish_Click(sender As Object, e As EventArgs) Handles tsmiMarkedFilesFinish.Click
         Try
-            Dim selectedRows As Integer() = GridView_Docs.GetSelectedRows()
+            Dim oSelectedRows As Integer() = GridView_Docs.GetSelectedRows()
-            Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
+            Dim oHitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
-            Dim workedFiles As Integer = 0
+            Dim oSelectedRowHandle As Integer = oHitInfo.RowHandle
+            Dim oWorkedFiles As Integer = 0
 
-            Dim profileId = 0
+            Dim oProfileId = 0
 
-            If selectedRows.Count = 0 Then
+            If oSelectedRows.Count = 0 Then
                 If USER_LANGUAGE = "de-DE" Then
                     MsgBox("Bitte selektieren Sie einige 1 oder mehr Dokumente", MsgBoxStyle.Exclamation, "Massenabschluss")
                 Else
@@ -976,32 +977,11 @@ Public Class frmMain
                 Exit Sub
             End If
 
-            If GridView_Docs.IsGroupRow(hitInfo.RowHandle) Then
+            oProfileId = GridView_Docs.GetRowCellValue(oSelectedRows.First(), "PROFILE_ID")
-                Dim groupRowHandle = hitInfo.RowHandle
-
-                Dim childRows As Integer = GridView_Docs.GetChildRowCount(groupRowHandle)
-
-                If childRows > 0 Then
-                    Dim childRowHandle = GridView_Docs.GetChildRowHandle(groupRowHandle, 0)
-
-                    profileId = GridView_Docs.GetRowCellValue(childRowHandle, "PROFILE_ID")
-                Else
-                    MsgBox("This profile has no documents!")
-                End If
-            Else
-                If hitInfo.RowHandle >= 0 Then
-                    profileId = GridView_Docs.GetRowCellValue(hitInfo.RowHandle, "PROFILE_ID")
-                Else
-                    Dim parentRowHandle = GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)
-                    Dim dataRowHandle = GridView_Docs.GetDataRowHandleByGroupRowHandle(parentRowHandle)
-
-                    profileId = GridView_Docs.GetRowCellValue(dataRowHandle, "PROFILE_ID")
-                End If
-            End If
 
             If Init_windream() Then
 
-                CURRENT_ProfilGUID = profileId
+                CURRENT_ProfilGUID = oProfileId
                 CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from  TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID))
                 CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID))
                 CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("PM_VEKTOR_INDEX")
@@ -1015,16 +995,16 @@ Public Class frmMain
                 dt.Columns.Add("DOC_GUID")
                 dt.Columns.Add("FULL_PATH")
 
-                For Each rowhandle As Integer In selectedRows
+                For Each oRowHandle As Integer In oSelectedRows
                     Dim R As DataRow = dt.NewRow
-                    Dim DOC_ID = GridView_Docs.GetRowCellValue(rowhandle, "DOC_ID")
+                    Dim DOC_ID = GridView_Docs.GetRowCellValue(oRowHandle, "DOC_ID")
                     CURRENT_DOC_ID = DOC_ID
-                    Dim DOC_PATH = GridView_Docs.GetRowCellValue(rowhandle, "FULL_FILE_PATH")
+                    Dim DOC_PATH = GridView_Docs.GetRowCellValue(oRowHandle, "FULL_FILE_PATH")
                     CURRENT_DOC_PATH = DOC_PATH
-                    CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(rowhandle, "GUID")
+                    CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(oRowHandle, "GUID")
                     R("DOC_ID") = CURRENT_DOC_ID
                     R("FULL_PATH") = CURRENT_DOC_PATH
-                    R("DOC_GUID") = GridView_Docs.GetRowCellValue(rowhandle, "GUID")
+                    R("DOC_GUID") = GridView_Docs.GetRowCellValue(oRowHandle, "GUID")
                     dt.Rows.Add(R)
                 Next