This is what I get for trying to do a simple drag drop instead of my normal complicated nightmare lol...
Trying to create a drag image for plain text in a checkbox list, and this is the result:
I was just using Edanmo's tried and true code for this,
Code:
Dim tPoint As oleexp.POINT
m_lIL = SendMessage(hLVC, LVM_CREATEDRAGIMAGE, lvcCurSel, tPoint)
' Start the image dragging
ImageList_BeginDrag m_lIL, 0, 10, 10
ImageList_DragEnter 0, 0, 0
' Start the timer
If m_lColDragTmrProc = 0& Then m_lColDragTmrProc = scb_SetCallbackAddr(4, 20, , , True)
m_lTimer = SetTimer(0, 0, 1, m_lColDragTmrProc)
It's just a standard API created ListView... nothing too crazy. Not sure why it's cutting the image off? I did try grabbing the image from the main ListView... that shows the icon and no text at all. I remember this working in the past though...