jj: fix main grid not being expandable with mouse click

app/DD_PM_WINDREAM/frmMain.vb

@@ -1285,9 +1285,11 @@ Public Class frmMain
     Private Sub GridView_Docs_MouseDown(sender As Object, e As MouseEventArgs) Handles GridView_Docs.MouseDown
         Dim view As GridView = sender
         Dim hi As GridHitInfo = view.CalcHitInfo(e.Location)
+        Dim groupRowButtonClicked = (hi.HitTest = GridHitTest.RowGroupButton)
+
         GridCursorLocation = e.Location
         ' wenn in eine Group Row Doppelt geklickt wurde..
-        If hi.InGroupRow Then
+        If hi.InGroupRow And Not groupRowButtonClicked Then
             ' Ein/Ausklappen verhindern
             DXMouseEventArgs.GetMouseArgs(e).Handled = True
             GridViewItem_Clicked = "GROUP"
@@ -1301,27 +1303,4 @@ Public Class frmMain
             GridViewItem_Clicked = Nothing
         End If
     End Sub
-
-    'Private Sub GridView_Docs_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridView_Docs.RowStyle
-    '    Dim view As GridView = TryCast(sender, GridView)
-    '    Dim row As DataRow = view.GetDataRow(e.RowHandle)
-
-    '    If IsNothing(row) Then
-    '        Exit Sub
-    '    End If
-
-    '    Dim state = row.Item("TL_STATE")
-
-    '    e.HighPriority = True
-
-    '    Select Case state
-    '        Case 1
-    '         '   e.Appearance.BackColor = Color.LightSalmon
-    '        Case 2
-    '         '   e.Appearance.BackColor = Color.LightGoldenrodYellow
-    '        Case 3
-    '            '   e.Appearance.BackColor = Color.LightGreen
-    '    End Select
-
-    'End Sub
 End Class