From 6012ea42cce36f75681a914f99956c77dc8b8f4d Mon Sep 17 00:00:00 2001 From: OlgunR Date: Wed, 8 Apr 2026 10:48:35 +0200 Subject: [PATCH] Remove chkQuellverzeichnisLoeschen from DI Profileigenschaften, From UI + logc --- .../frmDIProfilEigenschaften.Designer.vb | 21 +++---------------- ToolCollection/frmDIProfilEigenschaften.vb | 14 ------------- 2 files changed, 3 insertions(+), 32 deletions(-) diff --git a/ToolCollection/frmDIProfilEigenschaften.Designer.vb b/ToolCollection/frmDIProfilEigenschaften.Designer.vb index 45be5e2..c4b3786 100644 --- a/ToolCollection/frmDIProfilEigenschaften.Designer.vb +++ b/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 diff --git a/ToolCollection/frmDIProfilEigenschaften.vb b/ToolCollection/frmDIProfilEigenschaften.vb index 945e39e..077d73c 100644 --- a/ToolCollection/frmDIProfilEigenschaften.vb +++ b/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()