AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS 04.09.2015 1

Browse Source
This commit is contained in:
SchreiberM
2015-09-04 08:12:24 +02:00
parent d5baaf7398
commit 1a45e34d72
41 changed files with 2746 additions and 2078 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD-Record-Organiser/ClassDragDrop.vb
View File

@@ -102,7 +102,7 @@ Public Class ClassDragDrop
Else
'otherwise, do not handle
e.Effect = DragDropEffects.None
frmForm_Constructor_OLD.tsstatus_Detail_show(True, "DragEnter ... Other FileFormat")
frmForm_Constructor.tsstatus_Detail_show(True, "DragEnter ... Other FileFormat")
If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... Other FileFormat", False)
End If
@@ -153,20 +153,20 @@ Public Class ClassDragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.All
If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... SimpleFileDrop", False)
frmForm_Constructor_OLD.tslblStatusMain_show(True, "DragEnter ... SimpleFileDrop")
frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... SimpleFileDrop")
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
'handle a message dragged from Outlook
e.Effect = DragDropEffects.Copy
frmForm_Constructor_OLD.tslblStatusMain_show(True, "DragEnter ... OutlookMessage")
frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... OutlookMessage")
If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... OutlookMessage", False)
ElseIf e.Data.GetDataPresent("aryFileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then
e.Effect = DragDropEffects.Copy
frmForm_Constructor_OLD.tslblStatusMain_show(True, "DragEnter ... Attachment from Outlook")
If LogErrorsOnly = True Then frmForm_Constructor_OLD.tsstatus_Detail_show(True, "DragEnter ... Attachment from Outlook")
frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... Attachment from Outlook")
If LogErrorsOnly = True Then frmForm_Constructor.tsstatus_Detail_show(True, "DragEnter ... Attachment from Outlook")
Else
'otherwise, do not handle
e.Effect = DragDropEffects.None
frmForm_Constructor_OLD.tslblStatusMain_show(True, "DragEnter ... Other FileFormat")
frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... Other FileFormat")
If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... Other FileFormat", False)
End If
Catch ex As Exception