Article	60000473
Type	Wish
Product	Engine
Version	6011
Date Added	4/11/2008
Fixed	Yes [4/11/2008]
Submitted by	Christof Duvenbeck
Keywords

Subject

Drag 'n' Drop default implementation to be enabled by default.

Summary

Drag and Drop default implementation to be enabled by default.

For example the following code  copy all entities of activelayout as a vdInsert object:

Private Sub VDraw1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Double, ByVal y As Double)
  'Only drag to File (Explorer) works, Dragdrop in Vdraw is not working
  Dim ll_retv As Long
  If Button = 1 Then
    ll_retv = VDraw1.CommandAction.DoDragDrop("ALL", VdDropEffect_Move + VdDropEffect_Copy, VDraw1.CursorPos, 100, 100, 3)

    ll_retv = ll_retv
  End If
End Sub

NOTE: Also drag and drop drawing files (from file explorer) into the VDrawgraphics area will add this drawing as Xref.

Solution

Added in 6012