Listbox Drag and drop Multiple Rows

This is API 1 but that should not make a difference… I am coding in 2019R1.1 but also tried the same project in 2023R4.

While at one time I was a listbox “expert” i have not done much with them for several years now an it’s even longer since I supposed dragging multiple rows so maybe I’m not understanding the docs about this any more.

In 2019R1 when I try to do drag rows with the code below shown below, it works fine when I try to drag one row … But does nothing happens when I try to drag multiple rows (no visible drag item).

Here is the code:


Function DragRow(drag As DragItem, row As Integer) Handles DragRow as Boolean
  If Not me.Selected(row) then Return False
  
  Dim DeltaY as Integer = me.MouseY -(me.HeaderHeight + (row-Me.ScrollPosition)*me.RowHeight) 
  
  drag.Text = Me.List(row)
  
  Dim ub As Integer = me.ListCount - 1
  

  For i  as Integer = me.ListIndex To ub
    If i = Row Then Continue
    If Me.Selected(i) Then
      drag.AddItem(0, me.HeaderHeight + (i-Me.ScrollPosition)*me.RowHeight + DeltaY,  me.Width, me.RowHeight)
      drag.Text = Me.List(i) 
    End If
  Next
  Return True // allow the drag
End Function

On 2023R4 I now see drag items for multiple rows… Too many of them!!! See below:

What am I doing wrong , or is this a bug?
Thanks,
-karen

No one else has seen this issue?

Am i doing something wrong, maybe misunderstanding the docs, or is this a xojo bug?

If it’s a bug does anyone know of a workaround (outside of having only one drag item and drawing a single picture with all the rows on it)?

(the full code draws the cell contents semi transparently so you an see the content you are dragging)

  • Karen

Yes, I’ve seen it regularly. But since I don’t know a fix, nor a cause, I’ve not had any helpful answer to give, sorry.

I think this was discussed a while ago but I wasn’t able to find the forum thread. As far as I remember the macOS functionality with the badges overrides whatever Xojo does. I use NSTableviewMBS and had to do some finagling to get a nice drag image.

IIRC I created a drag picture, and not the additem method to go around this
and yes it’s a macos change that prevent the drag from beeing the same between these xojo versions

edit: I did use drap.picture = mypicture, and not drag.text but it should not change a lot for this problem
and more I use drag.additem(0,0,0,0) for each selected item.