[6.0.0.13] OnDragnDropFromControl Event not called

[stephan_35]

Here is reults of my first try with this new event.

Depending of droppoint node.

Code (autolisp) Select Expand


(defun c:Test_Form1_TREE_OnDragOverFromControl (ProjectName FormName ControlName DropPoint /)
 (cond
   (
    (= (substr DropPoint 1 3) "(0)")
     0
     )
   (
    (= (substr DropPoint 1 3) "(1)")
     1
     )
   (
    (= (substr DropPoint 1 3) "(2)")
     2
     )
   (
    (= (substr DropPoint 1 3) "(3)")
     3
     )
   (
    (= (substr DropPoint 1 3) "(4)")
     4
     )
   (
    (= (substr DropPoint 1 3) "(5)")
     Nil
     )
   )
)


Return 0 = None > True
Return 1 = Copy > True
Return 2 = Move > True
Return 3 = Missing in documentation > Move or copy, depending of [Ctrl] or [Shift] key
Return 4 = Link > False , Nothing appening, seem like None , missing link icon ?
Return Nil (5) = Default > True, depending of Ctrl or Shift KEY !

Anyway , this is a great job owen !!! Seem to work as expected , maybe just have to correct link icon ?

Now i have to try DragnDropBegin event ...

Best regards.
Thanks a lot !  ;)
Stéphan.

[stephan_35]

Here is my try with new OnDragnDropBegin Event

Here is my code :

Code (autolisp) Select Expand


(defun c:Test_Form1_TREE_OnDragnDropBegin (/ DropPoint)
  (setq DropPoint (dcl_Tree_GetSelectedItem Test_Form1_TREE))
  (cond
    (
     (= (substr DropPoint 1 3) "(0)")
      0
      )
    (
     (= (substr DropPoint 1 3) "(1)")
      1
      )
    (
     (= (substr DropPoint 1 3) "(2)")
      2
      )
    (
     (= (substr DropPoint 1 3) "(3)")
      3
      )
    (
     (= (substr DropPoint 1 3) "(4)")
      4
      )
    (
     (= (substr DropPoint 1 3) "(5)")
      Nil
      )
    )
)


Return 0 = None > True !
Return 1 = Copy > True !
Return 2 = Move > True !
Return 3 = Missing in documentation > Move or Copy, depending of [Ctrl] or [Shift] Key
Return 4 = Link > True !
Return Nil (5) = Default > True !

Great job Owen, working fine, as expected , i ask myself, if we can use twice event together with return value ?
Best regards.

[owenwengerd]

I've got this error message ....
I don't really know if it's come from my computer or from opendcl.

The error indicates a corrupted MSI file. Clear your cache and try downloading again.