B4J Library jDragAndDrop2 - Drag and Drop

This library is an update to Andrews jDragandDrop to take advantage of the DragBorad.DragView available in JavaFX8. This allows displaying a graphic next to or behind the mouse cursor while dragging items.

It's not quite a drop in replacement, but I tried to make it as close as possible.

The differences are:

1. The DragAndDrop class needs to be initialized with the Callback module.
2. The Transfer Mode does not support strings, it needs to be a TransferMode array, which are available as variables from the TransferMode static class.
3. The e.AcceptTransferMode call has changed to e.AcceptTransferModes.
4. There are two additional SetDragModeAndData methods to cater for setting the DragView.
5. I have exposed most of the Dragboard methods which make it easier to select the data you want to accept, and get the results from the dragboard, and most of the DragEvent methods. Existing code should work as is.
6. If you use sender to get the current EventSource (as opposed to the GestureSource) you will need to change it from sender to e.GetEventSource

The demo shows drag and drop from within the app, and from outside it for text and images.

Issues:

The only issue I found, and it may be a 'feature'. Is that if an image is being dragged, a copy of that image is used in place of whatever is set in the dragview. I would have preferred to be able to set a thumbnail, but it doesn't appear to work like that.​

It's written as 4 code modules, you can compile it to a library if you prefer.
Please let me know if you find any problems with it.

For a b4xlib, see Erel's implementation in post #3

Enjoy.

 

[stevel05]

But previously worked right.

Something must have changed to cause it to stop working. Have you changed anything else in the program? Different Java Version? OS update?, Newer version of B4j?

 

[alirezahassan]

thank you dear @stevel05,
I solved my problem. The following code was originally my code.

Sub DropTarget_Text_DragDropped(e As DragEvent)
    Try
        Dim pathsss As String = File.GetFileParent(e.GetDragboard.GetFiles.Get(0))
        Dim namesss As String = File.GetName(e.GetDragboard.GetFiles.Get(0))
        TXT_Text.Visible = False
        IMG_Text.Visible = True
        Wait For (Codes.Compress(pathsss,namesss)) Complete (Completed As Image)
        IMG_Text.SetImage(Completed)
        Loadings.Loading_Show(MainForm)
-->  uploudFile(File.GetFileParent(e.GetDragboard.GetFiles.Get(0)),File.GetName(e.GetDragboard.GetFiles.Get(0)),"Text")
        e.SetDropCompleted(True)
    Catch
        Log(LastException)
    End Try
End Sub

I changed the above code

Sub DropTarget_Text_DragDropped(e As DragEvent)
    Try
        Dim pathsss As String = File.GetFileParent(e.GetDragboard.GetFiles.Get(0))
        Dim namesss As String = File.GetName(e.GetDragboard.GetFiles.Get(0))
        TXT_Text.Visible = False
        IMG_Text.Visible = True
        Wait For (Codes.Compress(pathsss,namesss)) Complete (Completed As Image)
        IMG_Text.SetImage(Completed)
        Loadings.Loading_Show(MainForm)
 --> uploudFile(pathsss,namesss,"Text")
        e.SetDropCompleted(True)
    Catch
        Log(LastException)
    End Try
End Sub

I realized that this error occurred after the (Wait For) code. After the (Wait For) code, the variable e was cleared! It is as if the inputs are empty after the (Wait For) code.
I defined two variables. And after the (Wait For) code, its value was not cleared. I think this is a bug @Erel.
Thanks for following up Mr. @stevel05

 

[Erel]

This is not a bug. The number #1 rule of resumable subs is that from the calling sub perspective, a call to Wait For or Sleep is equivalent to Return. This means that you are calling e.SetDropCompleted too late.

 

[Sergio Luchi]

Hello!
Is it possible to set not one, but two or three DragTargets for the same DragSource?

 

[stevel05]

Yes, you accept the dragged item in the _DragOver sub for each target, so you can use various methods to identify if you want to accept the drop for each target.
i.e. FileType, dragboard content type, or dataid (set in _Source_DragDetected sub) etc.

You just need to create a different DragAndDrop Class instance and call MakeDragTarget on it for each target and create the related subs. You don't need to call MakeDragSource for each class instance.