Remove chkQuellverzeichnisLoeschen from DI Profileigenschaften, From UI + logc

ToolCollection/frmDIProfilEigenschaften.Designer.vb

@@ -62,7 +62,6 @@ Partial Class frmDIProfilEigenschaften
         Me.btnRegeln = New System.Windows.Forms.Button()
         Me.boxImportoptionenLoeschen = New System.Windows.Forms.GroupBox()
         Me.chkUVloeschen = New System.Windows.Forms.CheckBox()
-        Me.chkQuellverzeichnisLoeschen = New System.Windows.Forms.CheckBox()
         Me.chkDateienLoeschen = New System.Windows.Forms.CheckBox()
         Me.boxImportoptionenBackup = New System.Windows.Forms.GroupBox()
         Me.txtBackupordner = New System.Windows.Forms.TextBox()
@@ -464,12 +463,11 @@ Partial Class frmDIProfilEigenschaften
         'boxImportoptionenLoeschen
         '
         Me.boxImportoptionenLoeschen.Controls.Add(Me.chkUVloeschen)
-        Me.boxImportoptionenLoeschen.Controls.Add(Me.chkQuellverzeichnisLoeschen)
         Me.boxImportoptionenLoeschen.Controls.Add(Me.chkDateienLoeschen)
         Me.boxImportoptionenLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.boxImportoptionenLoeschen.Location = New System.Drawing.Point(584, 110)
         Me.boxImportoptionenLoeschen.Name = "boxImportoptionenLoeschen"
-        Me.boxImportoptionenLoeschen.Size = New System.Drawing.Size(345, 99)
+        Me.boxImportoptionenLoeschen.Size = New System.Drawing.Size(345, 73)
         Me.boxImportoptionenLoeschen.TabIndex = 46
         Me.boxImportoptionenLoeschen.TabStop = False
         Me.boxImportoptionenLoeschen.Text = "Löschen"
@@ -478,7 +476,7 @@ Partial Class frmDIProfilEigenschaften
         '
         Me.chkUVloeschen.AutoSize = True
         Me.chkUVloeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.chkUVloeschen.Location = New System.Drawing.Point(8, 65)
+        Me.chkUVloeschen.Location = New System.Drawing.Point(8, 47)
         Me.chkUVloeschen.Name = "chkUVloeschen"
         Me.chkUVloeschen.Size = New System.Drawing.Size(230, 17)
         Me.chkUVloeschen.TabIndex = 2
@@ -486,23 +484,11 @@ Partial Class frmDIProfilEigenschaften
         Me.chkUVloeschen.UseVisualStyleBackColor = True
         Me.chkUVloeschen.Visible = False
         '
-        'chkQuellverzeichnisLoeschen
-        '
-        Me.chkQuellverzeichnisLoeschen.AutoSize = True
-        Me.chkQuellverzeichnisLoeschen.Enabled = False
-        Me.chkQuellverzeichnisLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.chkQuellverzeichnisLoeschen.Location = New System.Drawing.Point(8, 42)
-        Me.chkQuellverzeichnisLoeschen.Name = "chkQuellverzeichnisLoeschen"
-        Me.chkQuellverzeichnisLoeschen.Size = New System.Drawing.Size(217, 17)
-        Me.chkQuellverzeichnisLoeschen.TabIndex = 1
-        Me.chkQuellverzeichnisLoeschen.Text = "Quellverzeichnis nach Import löschen"
-        Me.chkQuellverzeichnisLoeschen.UseVisualStyleBackColor = True
-        '
         'chkDateienLoeschen
         '
         Me.chkDateienLoeschen.AutoSize = True
         Me.chkDateienLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.chkDateienLoeschen.Location = New System.Drawing.Point(8, 19)
+        Me.chkDateienLoeschen.Location = New System.Drawing.Point(8, 23)
         Me.chkDateienLoeschen.Name = "chkDateienLoeschen"
         Me.chkDateienLoeschen.Size = New System.Drawing.Size(200, 17)
         Me.chkDateienLoeschen.TabIndex = 0
@@ -666,7 +652,6 @@ Partial Class frmDIProfilEigenschaften
     Friend WithEvents Label5 As System.Windows.Forms.Label
     Friend WithEvents btnRegeln As System.Windows.Forms.Button
     Friend WithEvents boxImportoptionenLoeschen As System.Windows.Forms.GroupBox
-    Friend WithEvents chkQuellverzeichnisLoeschen As System.Windows.Forms.CheckBox
     Friend WithEvents chkDateienLoeschen As System.Windows.Forms.CheckBox
     Friend WithEvents boxImportoptionenBackup As System.Windows.Forms.GroupBox
     Friend WithEvents txtBackupordner As System.Windows.Forms.TextBox

ToolCollection/frmDIProfilEigenschaften.vb

@@ -138,7 +138,6 @@ Public Class frmDIProfilEigenschaften
             Me.txtBackupordner.Text = Me.selectedProfile.Backupordner
             Me.chkDateienUeberschreiben.Checked = Me.selectedProfile.Overwrite
             Me.chkDateienLoeschen.Checked = Me.selectedProfile.DateiLöschen
-            Me.chkQuellverzeichnisLoeschen.Checked = Me.selectedProfile.VerzeichnisLöschen
 
             If CBool(Me.selectedProfile.Aktiv) = True Then
                 Me.chkbxAktiv.Checked = True
@@ -167,7 +166,6 @@ Public Class frmDIProfilEigenschaften
         Me.txtBackupordner.Enabled = Me.chkImportoptionenBackup.Checked
         Me.btnBackupordner.Enabled = Me.chkImportoptionenBackup.Checked
         Me.chkDateienUeberschreiben.Enabled = Me.chkImportoptionenBackup.Checked
-        Me.chkQuellverzeichnisLoeschen.Enabled = Me.chkDateienLoeschen.Checked
         'End If
     End Sub
     Sub rbBoxenenablen()
@@ -293,7 +291,6 @@ Public Class frmDIProfilEigenschaften
                 Me.chkDateienLoeschen.Checked = Me.selectedProfile.DateiLöschen
                 Me.chkDateienUeberschreiben.Checked = Me.selectedProfile.Overwrite
                 Me.chkImportoptionenBackup.Checked = Me.selectedProfile.Backup
-                Me.chkQuellverzeichnisLoeschen.Checked = Me.selectedProfile.DateiLöschen
             End If
 
         End If
@@ -540,17 +537,6 @@ Public Class frmDIProfilEigenschaften
         End If
     End Sub
 
-    Private Sub chkQuellverzeichnisLoeschen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkQuellverzeichnisLoeschen.CheckedChanged
-        If Me.selectedProfile IsNot Nothing Then
-            Me.selectedProfile.VerzeichnisLöschen = Me.chkQuellverzeichnisLoeschen.Checked
-            If Not Me.chkQuellverzeichnisLoeschen.Checked = Me.selectedProfile.OriginalVerzeichnisLöschen Then
-                Me.btnSpeichern.Enabled = True
-            Else
-                Me.btnSpeichern.Enabled = False
-            End If
-        End If
-    End Sub
-
     Private Sub btnRegeln_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegeln.Click
 
         'Dim regelverwaltung As Control = New pnlDateiimportRegelverwaltung()