Hello everybody:
I can't make a drag and drop in a image, when i put set step on in a drag method the drag function well, but if i don't put set step, the drag don't function, what happend?
The DragMode is set to Automatic but if i change to manual the drag don't fuction
Drag Method:
LPARAMETERS nAction
SET STEP ON
IF nAction = 2
thisform.image1.Move(x_top,x_left,10,10)
endif
DragDrop Method:
LPARAMETERS oSource, nXCoord, nYCoord
PUBLIC x_top,x_left
x_top = nXCoord
x_left = nyCoord
thisform.image1.Drag(2)
DragOver Method:
LPARAMETERS oSource, nXCoord, nYCoord, nState
thisform.image1.Drag(1)
Thanks in advance !!!
Fabian A. Borghi
Xenon Information Technology
Itaparica - BA - Brasil