From ff80b485219e8a217c60e00989e0d6a749ef56fd Mon Sep 17 00:00:00 2001
From: Digital Data - Marlon Schreiber <m.schreiber@digitaldata.works>
Date: Tue, 14 Jun 2022 15:47:14 +0200
Subject: [PATCH] MS

---
 .../My Project/Application.Designer.vb            |  2 +-
 app/DD_PM_WINDREAM/My Project/Application.myapp   |  2 +-
 app/DD_PM_WINDREAM/frmMain.vb                     | 15 ++++++++++-----
 3 files changed, 12 insertions(+), 7 deletions(-)

diff --git a/app/DD_PM_WINDREAM/My Project/Application.Designer.vb b/app/DD_PM_WINDREAM/My Project/Application.Designer.vb
index e9b8c9b..515756a 100644
--- a/app/DD_PM_WINDREAM/My Project/Application.Designer.vb	
+++ b/app/DD_PM_WINDREAM/My Project/Application.Designer.vb	
@@ -27,7 +27,7 @@ Namespace My
             Me.IsSingleInstance = false
             Me.EnableVisualStyles = true
             Me.SaveMySettingsOnExit = true
-            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterAllFormsClose
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
         End Sub
         
         <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
diff --git a/app/DD_PM_WINDREAM/My Project/Application.myapp b/app/DD_PM_WINDREAM/My Project/Application.myapp
index 918f158..739ea6f 100644
--- a/app/DD_PM_WINDREAM/My Project/Application.myapp	
+++ b/app/DD_PM_WINDREAM/My Project/Application.myapp	
@@ -3,7 +3,7 @@
   <MySubMain>true</MySubMain>
   <MainForm>frmMain</MainForm>
   <SingleInstance>false</SingleInstance>
-  <ShutdownMode>1</ShutdownMode>
+  <ShutdownMode>0</ShutdownMode>
   <EnableVisualStyles>true</EnableVisualStyles>
   <AuthenticationMode>0</AuthenticationMode>
   <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb
index bc64dc7..1e8756a 100644
--- a/app/DD_PM_WINDREAM/frmMain.vb
+++ b/app/DD_PM_WINDREAM/frmMain.vb
@@ -2614,8 +2614,7 @@ Public Class frmMain
                 GridViewWFItems.ViewCaption = "Overview"
             End If
             GridViewWFItems.ViewCaption += $"|{objectCount_Descr}"
-            ' tslblObjectCount.Text = objectCount_Descr
-            'tslblObjectCount.ForeColor = Color.DarkOrange
+
             SaveGridLayout()
         Catch ex As Exception
             LOGGER.Error(ex.Message)
@@ -2623,7 +2622,7 @@ Public Class frmMain
     End Sub
 
     Sub Grid_Export()
-        XtraSaveFileDialog1.FileName = "OverviewProcessManager.xlsx"
+        XtraSaveFileDialog1.FileName = "Overview.xlsx"
         XtraSaveFileDialog1.DefaultExt = ".xlsx"
 
         If XtraSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
@@ -2707,7 +2706,6 @@ Public Class frmMain
 
     Private Sub bbtniCW_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniCW.ItemClick
         Try
-
             If File.Exists(bbtniCW.Tag) Then
                 Dim MyProcess As New Process()
                 MyProcess.StartInfo.FileName = bbtniCW.Tag
@@ -2725,7 +2723,7 @@ Public Class frmMain
     Private Sub GridView_Docs_ColumnPositionChanged(sender As Object, e As EventArgs) Handles GridViewWFItems.ColumnPositionChanged
         GridLayout_Changed()
     End Sub
-    Sub GridLayout_Changed()
+    Private Sub GridLayout_Changed()
         If FormShown = False Then
             Exit Sub
         End If
@@ -2951,7 +2949,14 @@ Public Class frmMain
         Catch ex As Exception
             LOGGER.Error(ex)
         End Try
+    End Sub
 
+    Private Sub frmMain_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
+        Try
+            'System.Diagnostics.Process.GetCurrentProcess().Kill()
+        Catch ex As Exception
+
+        End Try
 
     End Sub
 End Class
\ No newline at end of file