This commit is contained in:
2022-06-01 11:33:07 +02:00
parent 770450044b
commit d7a54bc71a
3 changed files with 47 additions and 33 deletions

View File

@@ -2874,7 +2874,7 @@ Public Class frmMain
Private Sub RibbonControl1_SelectedPageChanged(sender As Object, e As EventArgs) Handles RibbonControl1.SelectedPageChanged
Dim ribbon As RibbonControl = TryCast(sender, RibbonControl)
Timer_Inactivity_Reset_Disable("RibbonControl1_SelectedPageChanged")
If ribbon.SelectedPage Is RibbonPage4 Then
If ribbon.SelectedPage Is RibbonPageAktionen Then
Select Case GridViewItem_Clicked
Case "GROUP"
BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
@@ -2903,4 +2903,18 @@ Public Class frmMain
Private Sub GridViewWFItems_SelectionChanged(sender As Object, e As DevExpress.Data.SelectionChangedEventArgs) Handles GridViewWFItems.SelectionChanged
Timer_Inactivity_Reset_Disable("GridViewWFItems_SelectionChanged")
End Sub
Private Sub GridViewWFItems_Click(sender As Object, e As MouseEventArgs) Handles GridViewWFItems.Click
Try
If e.Button = Windows.Forms.MouseButtons.Right Then
RibbonControl1.SelectedPage = RibbonPageTabelle
Else
RibbonControl1.SelectedPage = RibbonPageStart
End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
End Sub
End Class