ListView MultiColumns DragBegin

Version  OpenDCL Studio ENU 6.0.0.27 with Acad2011
ListView problem

Test with OpenDCL Sample: MasterDemo -> DragNDrop.

Just a simple modification in DragNDrop.lsp ->

;---original
(defun c:DragNDrop_Form1_OnInitialize (/)
(dcl_ListView_AddColumns DragNDrop_Form1_ListView1 (list "Column 1" 0 140))
(dcl_ListView_FillList DragNDrop_Form1_ListView1
                              '(("List 1a" 0) ("List 2a" 1) ("List 3a" 2))
)
(princ)
)
;---modification : add a new column
(defun c:DragNDrop_Form1_OnInitialize (/)
(dcl_ListView_AddColumns DragNDrop_Form1_ListView1 (list "Column 1" 0 140))
(dcl_ListView_AddColumns DragNDrop_Form1_ListView1 (list "Column 2" 1 140))
(dcl_ListView_FillList DragNDrop_Form1_ListView1
                              '(("List 1a" 0 "col2 1a") ("List 2a" 1 "col2 2a") ("List 3a" 2 "col2 3a"))
)
(princ)
)

No change in DragNDrop.odcl
DragnDropAllowBegin -> t
DragnDropAllowDrop  -> t

In the dialogBox:
Just one click on ListView Cell "List 1a" => "col2 1a" in the cell off column 2 disappears...
Is this a bug or a default setting ?
Thanks

Technically this is working as designed, but only because it isn't a very robust design. I've changed the code for the next build to drag all columns of a multi-colum list. That change should make it behave the way you would expect (hopefully without any unwanted side effects).

author=owenwengerd link=topic=1302.msg6975#msg6975 date=1277603069 wrote:
(hopefully without any unwanted side effects).

I will have an eye on that  ;)

Fred