Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Drag and drop
Message
From
19/10/2006 11:11:46
 
 
To
18/10/2006 14:28:34
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01162887
Message ID:
01163326
Views:
14
Well when I say drag-and-drop I mean the OLE version :-)
for now until I understand this thing I use standard VFP controls:

http://www.cortiel.com/pcs/form1.png

lets look at Command2

oledragmode = 1
oledragover:
LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord, nState
nEffect=1
oledropmode=1
olesetdata:
LPARAMETERS oDataObject, eFormat
DO CASE
CASE TRANSFORM(eFormat)='1'
	oDataObject.SetData("American Flag",1)
	
CASE TRANSFORM(eFormat)='Private Format'
	oDataObject.SetData(this.picture,"private format")
	

OTHERWISE

ENDCASE
olestartdrag:
LPARAMETERS oDataObject, nEffect
oDataObject.ClearData
nEffect=1
oDataObject.SetFormat(1)
oDataObject.SetFormat("Private Format")
thisform.OLEDropMode= 1
note: this american flag comes from one of the whitepages I found on this matter, I don't want to mess with the flag at all :-)

My intention is to be able to drag a button from the left sid into the white container control just lie we can do in the IDE on a form


but when I drag the cursor is a circle with a line through it telling me I cannot drop onto the container control

the container has a oledropmode of 1
>
>As I said, I think you'd be better off using OLE drag and drop. That said, how's the button configured for dragging?
>
>Tamar
Peter Cortiel
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform