Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Drag and Drop Question
Message
From
29/10/1997 17:17:14
Edward Crawford
City Facilities Management
Glasgow, United Kingdom
 
 
To
29/10/1997 17:11:39
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00057264
Message ID:
00057299
Views:
34
>>>>>>I have two list boxes. One list box has a list of account numbers. The second list box is made up of people associated with each account. If you move to a different account, the people change with the account. I want to be able to click on a person and drag them over to another account and drop them into a different account. The problem is when I drag the item to the other listbox, how can I find out what ListItem the cursor is over so that I know what account to assign this person in the DragDrop method?
>>>>>>
>>>>>>-Ed
>>>>
>>>>Ed
>>>>
>>>>Do I need to check for this condidtion?
>>>> >mouse click at nYCoord+20,nXCoord pixels
>>>>I am haveing no luck. If I select an item in list 2, Wait window yields the selected account number no matter where I try to drop the item. If I don't select anything in list 2, Wait window yields nothing.
>>>>
>>>>Here is what I have:
>>>>***********************
>>>>Source - MouseDown Event
>>>>
>>>>thisform.mousex = nXCoord
>>>>thisform.mousey = nYCoord
>>>>
>>>>********************
>>>>Source: MouseMove Event
>>>>
>>>>IF nButton = 1 && Left Mouse
>>>> IF ABS(nXCoord - THIS.PARENT.MouseX) > ;
>>>> THIS.Parent.DragThreshold OR ;
>>>> ABS(nYCoord - THIS.PARENT.MouseY) > ;
>>>> THIS.Parent.DragThreshold
>>>> thisform.mailbox = this.List(this.ListItemId)
>>>> THIS.Drag
>>>> ENDIF
>>>>ENDIF
>>>>
>>>>*************
>>>>SOURCE and Target: DragOver Event
>>>>
>>>>DO CASE
>>>> CASE nState = 0 && Enter
>>>> this.DragIcon = THIS.Parent.CanDropIcon
>>>> CASE nState = 1 && Leave
>>>> this.DragIcon = THIS.Parent.NoDropIcon
>>>>ENDCASE
>>>>
>>>>**************
>>>>Target: DragDrop Event
>>>>
>>>>thisform.tmr1.Enabled = .T.
>>>>
>>>>**********
>>>>
>>>>-Ed
>>>>thisform.tmr1 Timer Event
>>>>
>>>>WAIT WINDOW thisform.lst1.Value NOWAIT
>>>>this.Enabled = .F.
>>>
>>>Sorry, I cannot understand your reply. Actually I gave you two events, where List1.DragDrop 1. imitates mouse click on List1 Item right under 'dropped item'.
>>>and 2. launch timer to get List1.Value (it's necessary, because Value is not available in the same snippet).
>>
>>I think the part that I didn't understand was how you imitated the mouse click on List 1. How do I force a mouse click at those coordinated?
>>
>>-Ed
>
>Mouse Click ... is literal VFP command and use it exactly as I gave you:
>mouse click at nYCoord+20,nXCoord pixels

Got it . Thanks alot
Ed
Previous
Reply
Map
View

Click here to load this message in the networking platform