From the central listbox of my app rows can be dragged internally (move emails to another mailbox) or externally to Finder (create eml files from the emails).
With this code I had the internal drag working fine:
Dim theDragItem As New DragItem(Self.TrueWindow, MouseX, MouseY, DragPicture.Width, DragPicture.Height)
theDragItem.rawData(“MAXX”) = DragRecIDs
theDragItem.DragPicture = DragPicture
theDragItem.Drag
If I add another rawData type like this for the external drag then the DragOver for the internal drag listbox doesn’t fire anymore:
Dim theDragItem As New DragItem(Self.TrueWindow, MouseX, MouseY, DragPicture.Width, DragPicture.Height)
theDragItem.rawData(“MAXX”) = DragRecIDs
theDragItem.RawData(“public.file-url”) = “”
theDragItem.DragPicture = DragPicture
theDragItem.FolderItem = SpecialFolder.Temporary.Child(“test” + Format(DateTime.Now.SecondsFrom1970, “#”))
theDragItem.Drag
if theDragItem.Destination <> Nil and theDragItem.Destination isA FolderItem then
RaiseEvent ExportToEml(theRecIDs, Folderitem(theDragItem.Destination).Parent)
end if
Return True
Even adding another AcceptRawDataDrop for the listbox receiving the drag didn’t help:
me.AcceptRawDataDrop(“MAXX”)
Me.AcceptRawDataDrop(“public.file-url”
What do I need to add to get this working?