MS

app/DD_PM_WINDREAM/frmMain.vb

@@ -421,16 +421,17 @@ Public Class frmMain
     End Sub
     Public Sub Timer_Inactivity_Reset_Disable(pTrigger As String)
         Try
-            If Timer5Mins_running = True Or TimerRefresh_running = True Then
+            If Timer5Mins_running = True Or TimerRefresh_running = True Or FormShown = False Then
                 Exit Sub
             End If
             If INACTIVITY_DURATION <> 0 Then
+                TimerInactivity.Enabled = False
                 TimerInactivity.Stop()
                 TimerInactivity.Interval = INACTIVITY_DURATION * 60000
+                TimerInactivity.Enabled = True
                 TimerInactivity.Start()
                 bsiInactivityCheck.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
                 Dim StartTime As DateTime = #12:00:00 AM#
-                'load combo box
 
                 Dim oStarttime As DateTime = Now
                 oStarttime = oStarttime.AddMinutes(INACTIVITY_DURATION)
@@ -535,6 +536,7 @@ Public Class frmMain
     End Function
 
     Private Sub SaveGridLayout()
+        Timer_Inactivity_Reset_Disable("SaveGridLayout")
         If NO_WORKFLOWITEMS = True Then
             Exit Sub
         End If
@@ -565,6 +567,7 @@ Public Class frmMain
 
     Private Sub ResetLayout()
         Try
+            Timer_Inactivity_Reset_Disable("ResetLayout")
             Dim xml As String = GetXML_OverviewLayoutName()
             IO.File.Delete(xml)
             Try
@@ -1993,7 +1996,6 @@ Public Class frmMain
 
     Private Async Sub GridLayout_Reset()
         FRONTEND_ACTION = "RESET_LAYOUT"
-        Timer_Inactivity_Reset_Disable("TabellenlayoutZurücksetzenToolStripMenuItem")
         Await Reset_GridLayout(False)
         Await Decide_Load(False, True)
         SaveGridLayout()
@@ -2248,6 +2250,7 @@ Public Class frmMain
         CurrNavBarGroup = NavBarControl1.Groups(1)
 
         FormShown = True
+        Timer_Inactivity_Reset_Disable("Decide_Load")
         Await Decide_Load(True)
         Handling_DEBUG_USER()
 
@@ -2691,7 +2694,6 @@ Public Class frmMain
         If FRONTEND_ACTION <> "NONE" Then
             Exit Sub
         End If
-        Timer_Inactivity_Reset_Disable("GridLayout_Changed")
         SaveGridLayout()
     End Sub
 
@@ -2897,5 +2899,7 @@ Public Class frmMain
         End Try
     End Sub
 
-
+    Private Sub GridViewWFItems_SelectionChanged(sender As Object, e As DevExpress.Data.SelectionChangedEventArgs) Handles GridViewWFItems.SelectionChanged
+        Timer_Inactivity_Reset_Disable("GridViewWFItems_SelectionChanged")
+    End Sub
 End Class