Can someone tell me how to do drag and drop inside an app, on Windows?
It works on the Mac, but not on PC.
I'm using this code:
Function DragEnter
dim b as Boolean
b = ( obj.text = "delete" or obj.PrivateRawData( "ALFI" ) =
"delete" )
if b <> me.HighLighted then
me.HighLighted = b
Refresh
end if
Return b
End Function
Drag over is similar. I've tested both, they always return TRUE.
And guess what? Despite that they return true, (and draw as
highlighted)... the mouse cursor always has a stop sign. So I can't
release!!!!!! OMG! Argh. If I release, RB just ignores it.
So despite that everything seems to be working, it's not. The
DropObject event never gets called.
Does anyone have a workign drag and drop example for Windows??? Thanks.
Also, I didn't really get any good help on the PC fillroundrect bug.
But I suppose at least that one I'm capable of working around, by
myself.
--
http://elfdata.com/plugin/
"String processing, done right"
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>
|