BUG: Xtreme Suite ListBox.OLEDragDrop and TDBGrid6

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   If you drop data from a TrueDB Grid 6.0 OLEDB (Build 6.0.0253) on a Xtreme Suite ListBox something goes wrong. With Microsoft ListBox there's no problem.

Try this code. Drag from TDBGrid to a XtremeSuiteListBox --> The data(1) is missing.  

Option Explicit

'DRAG SOURCES
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 1 Then
        Command2.OLEDrag
    End If
End Sub

Private Sub Command2_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    Data.SetData CStr(Now()), 1
    AllowedEffects = vbDropEffectCopy
End Sub

Private Sub TDBGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 1 Then
        TDBGrid1.OLEDrag
    End If
End Sub

Private Sub TDBGrid1_OLEStartDrag(ByVal Data As TrueOleDBGrid60.DataObject, AllowedEffects As Long)
    Data.SetData CStr(Now()), 1
    AllowedEffects = vbDropEffectCopy
End Sub

'DROP TARGETS
Private Sub Form_Initialize()
   List1.OLEDropMode = 1
   ListBox2.OLEDropMode = 1
End Sub

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    List1.AddItem "GetFormat(1)=" & Data.GetFormat(1)
    List1.AddItem "GetData(1)=" & Data.GetData(1)
    List1.ListIndex = List1.NewIndex
End Sub

Private Sub ListBox2_OLEDragDrop(ByVal Data As XtremeSuiteControls.DataObject, Effect As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    ListBox2.AddItem "GetFormat(1)=" & Data.GetFormat(1)
    On Error Resume Next
    ListBox2.AddItem "GetData(1)=" & Data.GetData(1)
    If Err.Number <> 0 Then
        ListBox2.AddItem "Error " & Err.Number & ": " & Err.Description
    End If
    ListBox2.ListIndex = ListBox2.NewIndex
End Sub

Is there a solution?