MS19042016

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -621,6 +621,8 @@ Public Class frmConstructor_Main
         Me.Cursor = Cursors.WaitCursor
         Column_Row_Handler()
         Me.Cursor = Cursors.Default
+        Me.Refresh()
+        ' pnlDetails.Invoke(sender, e)
         'If dataloaded = True Then
         '    If LogErrorsOnly = False Then ClassLogger.Add(" >> grvwSelection_FocusedRowChanged - EditState: " & EDIT_STATE, False)
         '    Dim selRecID = GetSelected_RecordID()
@@ -736,6 +738,9 @@ Public Class frmConstructor_Main
                     End Try
                 End If
 
+                If TCDetails.SelectedTabPage Is Nothing Then
+                    Exit Sub
+                End If
                 If TabPos.PageVisible = True And TCDetails.SelectedTabPage.Text.StartsWith("Posi") Then
                     Clear_GridPos_View()
                     Dim POS_GRID_RECORD = Get_Focused_Row_Cell_Value_pos("Record-ID")
@@ -1987,6 +1992,14 @@ Public Class frmConstructor_Main
                 Case GetType(Windows.Forms.TextBox)
                     Dim txt As TextBox = CType(Control, TextBox)
                     txt.ReadOnly = state
+                Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
+                    Dim chlb As DevExpress.XtraEditors.CheckedListBoxControl = CType(Control, DevExpress.XtraEditors.CheckedListBoxControl)
+                    If state = True Then
+                        chlb.Enabled = False
+                    Else
+                        chlb.Enabled = True
+                    End If
+
                 Case Else
                     Control.Enabled = Not state
 
@@ -3183,15 +3196,27 @@ Public Class frmConstructor_Main
             elapsed = sw.Elapsed.TotalSeconds
             If LogErrorsOnly = False Then ClassLogger.Add(" >> GetSearchDocuments took " & Format(elapsed, "0.000000000") & " seconds", False)
             If windreamSucheErgebnisse.Count > 0 Then
-
+                Dim files_deleted As Integer = 0
                 For Each dok As WMObject In windreamSucheErgebnisse
                     Dim filename = "W:" & dok.aPath
                     Try
                         File.Delete(filename)
+                        files_deleted = +1
                     Catch ex As Exception
                         ClassLogger.Add("Unexpected Error in Delete windream-file '" & filename & "- Error: " & ex.Message)
                     End Try
+                    Dim msg = "Es wurden (" & files_deleted.ToString & ") Dateien gelöscht!"
+                    If USER_LANGUAGE <> "de-DE" Then
+                        msg = "(" & files_deleted.ToString & ") files were deleted!"
+                    End If
+                    MsgBox(msg, MsgBoxStyle.Information)
                 Next
+            Else
+                Dim msg = "Es wurden keine Dateien für diesen Datensatz gefunden!"
+                If USER_LANGUAGE <> "de-DE" Then
+                    msg = "No files found for record!"
+                End If
+                MsgBox(msg, MsgBoxStyle.Information)
             End If