2023-09-11 - THUMBNAILS!!!!!

EnvelopeGenerator.Form/frmMain.vb

@@ -1,11 +1,12 @@
-Imports System.Diagnostics.Eventing.Reader
+Imports System.IO
+Imports DevExpress.XtraSplashScreen
+Imports DigitalData.GUIs.Common
+Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Logging
-Imports DigitalData.Modules.Base
-Imports DigitalData.GUIs.Common
 Imports EnvelopeGenerator.Common
-Imports DevExpress.XtraSplashScreen
+Imports EnvelopeGenerator.Common.My
 
 Public Class frmMain
     Private LogConfig As LogConfig
@@ -13,6 +14,7 @@ Public Class frmMain
     Private Database As MSSQLServer
     Private ConfigManager As ConfigManager(Of Config)
     Private DbConfig As DbConfig
+    Private TempFiles As TempFiles
 
     Private GridBuilder As GridBuilder
 
@@ -24,6 +26,9 @@ Public Class frmMain
         LogConfig = New LogConfig(LogConfig.PathType.CustomPath, oLogPath, CompanyName:="Digital Data", ProductName:="Envelope Generator")
         Logger = LogConfig.GetLogger()
 
+        TempFiles = New TempFiles(LogConfig)
+        TempFiles.Create()
+
         Try
             ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath)
             Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString)
@@ -53,7 +58,6 @@ Public Class frmMain
             GridEnvelopes.DataSource = Controller.ListEnvelopes()
 
 
-
         Catch ex As Exception
             Logger.Error(ex)
         End Try
@@ -80,6 +84,7 @@ Public Class frmMain
             Dim oForm As New frmEnvelopeEditor() With {.State = State}
             oForm.ShowDialog()
             GridEnvelopes.DataSource = Controller.ListEnvelopes()
+
         Catch ex As Exception
             Logger.Error(ex)
         Finally
@@ -104,14 +109,14 @@ Public Class frmMain
     Private Sub DeleteEnvelope(pRowHandle As Integer)
         Dim oEnvelope As Envelope = ViewEnvelopes.GetRow(pRowHandle)
 
-        If MsgBox("Wollen Sie diesen Umschlag wirklich löschen?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
+        If MsgBox(Resources.Envelope.Do_you_really_want_to_delete_this_envelope, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
             Exit Sub
         End If
 
         If Controller.DeleteEnvelope(oEnvelope) Then
             GridEnvelopes.DataSource = Controller.ListEnvelopes()
         Else
-            MsgBox("Umschlag konnte nicht gelöscht werden!", MsgBoxStyle.Critical, Text)
+            MsgBox(Resources.Envelope.The_envelope_could_not_be_deleted, MsgBoxStyle.Critical, Text)
         End If
     End Sub
 
@@ -128,4 +133,9 @@ Public Class frmMain
             DeleteEnvelope(oSelectedRows.First)
         End If
     End Sub
+
+    Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
+        ' Cleanup Methods
+        TempFiles.CleanUp()
+    End Sub
 End Class