Many many moons ago I did some drag and drop code, but I have forgotten completely and it's no longer in my possession anyway. I want to drag names amongst a screen full of listboxes: https://www.screencast.com/t/6M8XxvSFV
I know I need to code in the OLEDragDrop event and native VFP Help sucks, not really showing me anything.
I was thinking the oDataObject was the listbox where the drag started but no. I tried to SET STEP ON but VFP says "CANCEL or SUSPEND is not allowed."
LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord LOCAL loLB as ListBox loLB = oDataObject wait window loLB.ListCount && this fails
SET STEP ON && this doesn't work either
I have the properties set correctly to allow me to drag from one list to another but now I'm stuck. Going to search the archives next but throwing this out there in the meantime. Was hoping to have drag/drop implemented by the time I had a ZOOM call with my fellow hockey captains to set the teams tonight!
tia, --Michael
Might help you with the debugging:
OLE Drag and Drop | Hacker’s Guide to Visual FoxPro (hackfox.github.io) https://hackfox.github.io/section4/s4g830.html
Might help with specifics:
Using Drag and Drop In Visual FoxPro (aksel.com) http://www.aksel.com/whitepapers/DragDrop.htm
Frank.
Frank Cazabon
On 03/05/2021 3:43 pm, MB Software Solutions, LLC wrote:
Many many moons ago I did some drag and drop code, but I have forgotten completely and it's no longer in my possession anyway. I want to drag names amongst a screen full of listboxes: https://www.screencast.com/t/6M8XxvSFV
I know I need to code in the OLEDragDrop event and native VFP Help sucks, not really showing me anything.
I was thinking the oDataObject was the listbox where the drag started but no. I tried to SET STEP ON but VFP says "CANCEL or SUSPEND is not allowed."
LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord LOCAL loLB as ListBox loLB = oDataObject wait window loLB.ListCount && this fails
SET STEP ON && this doesn't work either
I have the properties set correctly to allow me to drag from one list to another but now I'm stuck. Going to search the archives next but throwing this out there in the meantime. Was hoping to have drag/drop implemented by the time I had a ZOOM call with my fellow hockey captains to set the teams tonight!
tia, --Michael
--- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---
Funny you should mention the latter (http://www.aksel.com/whitepapers/DragDrop.htm).%C2%A0 I found that on Google search right after firing this post into the group here. His example fails
LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord, nState
IF oDataobject.getformat(1) Lc = oDataobject.GetData(1) THIS.AddItem(lc) ENDIF
IF oDataobject.getformat("VFP Source Object") lo = oDataobject.GetData("VFP Source Object") ** lo is now a pointer to the object itself
FOR lni = 1 TO lo.ListItems && <------ this fails saying "Property ListItems is not found."
IF lo.Selected(lni) MESSAGEBOX(lo.ListItems(lni)) ENDIF ENDFOR ENDIF
Off to Debug .....
On 5/3/2021 3:50 PM, Frank Cazabon wrote:
Might help you with the debugging:
OLE Drag and Drop | Hacker’s Guide to Visual FoxPro (hackfox.github.io) https://hackfox.github.io/section4/s4g830.html
Might help with specifics:
Using Drag and Drop In Visual FoxPro (aksel.com) http://www.aksel.com/whitepapers/DragDrop.htm
Frank.
Frank Cazabon
On 03/05/2021 3:43 pm, MB Software Solutions, LLC wrote:
Many many moons ago I did some drag and drop code, but I have forgotten completely and it's no longer in my possession anyway. I want to drag names amongst a screen full of listboxes: https://www.screencast.com/t/6M8XxvSFV
I know I need to code in the OLEDragDrop event and native VFP Help sucks, not really showing me anything.
I was thinking the oDataObject was the listbox where the drag started but no. I tried to SET STEP ON but VFP says "CANCEL or SUSPEND is not allowed."
LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord LOCAL loLB as ListBox loLB = oDataObject wait window loLB.ListCount && this fails
SET STEP ON && this doesn't work either
I have the properties set correctly to allow me to drag from one list to another but now I'm stuck. Going to search the archives next but throwing this out there in the meantime. Was hoping to have drag/drop implemented by the time I had a ZOOM call with my fellow hockey captains to set the teams tonight!
tia, --Michael
--- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html
[excessive quoting removed by server]
-
Frank Cazabon -
MB Software Solutions, LLC