frmDragDrop - BUG?

Hi,

In the latest v15 samples:
ReportControl Sample
- additional Samples -> Drag and Drop Test (frmDragDrop.frm)

The drag and drop works, but if you click on column then drag and drop do not work again?

This is the code (same as included in the latest package):
http://www.codejock.com/support/articles/com/reportcontrol/rp_1.asp

Is this a bug, how to workaround it (i dont care about bug just workarounds) ; )

Regards
Developerx

Thanks!!!

So simple i wonder why i did not figure it out, anyway i managed to use this workaround and used following.

Private sortx As Boolean

Private Sub ReportControl1_SortOrderChanged()
sortx = True
End Sub

Private Sub ReportControl1_OLEDragOver(ByVal Data As XtremeReportControl.DataObject, Effect As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single, ByVal state As Integer)
If sortx = True Then refreshcol
End Sub

Private Sub refreshcol()
Me.ReportControl1.Columns.DeleteAll
 With ReportControl1.Columns
  
       .Add 0, "xx1", 500, True
        .Add 1, "xx2", 50, True
        .Add 2, "xx3", 40, True
        .Add 3, "xx4", 150, True
    End With
    sortx = False
End Sub


i use the refreshcol when reportcontrol is grouped and the reportcontrol needs to get exported (i call it before exporting to textfile since it cant export if reportcontrol is in group mode.

regards
Developerx