|
|
|
|
|
|
|
|
- Programmed Drag and Drop: Example
Programmed Drag and Drop: Example The following code is used to copy/paste text data (CF_TEXT constant). When the data to copy/paste is text data, this data is retrieved.
//- - Initialize the target control ("EDT_Find")
EDT_Find.DndTarget = dndProgram
// Call the OnDrop procedure when the left mouse button
// is released on the target control named "EDT_Find"
DnDEvent("OnDrop", EDT_Find, dndDrop)
// Call the OnDragOver procedure when the mouse cursor
// moves between the source control and the target control ("EDT_Find")
DnDEvent("OnRollover", EDT_Find, dndDragOver)
PROCEDURE OnDragOver()
// Available type of data?
IF DnDIsDataAvailable(CF_TEXT) = True THEN
// Cursor indicating the move
DnDCursor(dndMove)
ELSE
// Cursor indicating that the move is not allowed
DnDCursor(dndNone)
END
PROCEDURE OnDrop()
ResRetrieve is string
// Available type of data?
IF DnDIsDataAvailable(CF_TEXT) = True THEN
// The move is allowed (but not the copy)
DnDAccept(dndMove)
ResRetrieve = DnDGetData(CF_TEXT)
ELSE
// No action is allowed
DnDAccept(dndNone)
END
This page is also available for…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|