AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

jj: fix main grid not being expandable with mouse click

Browse Source
This commit is contained in:
Jonathan Jenne 2018-08-28 12:13:56 +02:00
parent a87ce4deec
commit 658569dfe9
1 changed files with 3 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -1285,9 +1285,11 @@ Public Class frmMain
Private Sub GridView_Docs_MouseDown(sender As Object, e As MouseEventArgs) Handles GridView_Docs.MouseDown Private Sub GridView_Docs_MouseDown(sender As Object, e As MouseEventArgs) Handles GridView_Docs.MouseDown
Dim view As GridView = sender Dim view As GridView = sender
Dim hi As GridHitInfo = view.CalcHitInfo(e.Location) Dim hi As GridHitInfo = view.CalcHitInfo(e.Location)
Dim groupRowButtonClicked = (hi.HitTest = GridHitTest.RowGroupButton)
GridCursorLocation = e.Location GridCursorLocation = e.Location
' wenn in eine Group Row Doppelt geklickt wurde.. ' wenn in eine Group Row Doppelt geklickt wurde..
If hi.InGroupRow Then If hi.InGroupRow And Not groupRowButtonClicked Then
' Ein/Ausklappen verhindern ' Ein/Ausklappen verhindern
DXMouseEventArgs.GetMouseArgs(e).Handled = True DXMouseEventArgs.GetMouseArgs(e).Handled = True
GridViewItem_Clicked = "GROUP" GridViewItem_Clicked = "GROUP"
@ -1301,27 +1303,4 @@ Public Class frmMain
GridViewItem_Clicked = Nothing GridViewItem_Clicked = Nothing
End If End If
End Sub 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 End Class