Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
DragIcon questin in VFP 5.0
Message
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
DragIcon questin in VFP 5.0
Miscellaneous
Thread ID:
00080972
Message ID:
00080972
Views:
85
I have a form with an Activex control in it, and a command button.
For the command buttons DragIcon property I have: cross03.cur

When the user drags the icon over the activex control I want the
cursor to change to a nodrop01 cursor if it is not at the right place,
and cross03.cur when they at at a place they are allowed to drop. I
have the following code in the DragOver Property of the activeX
control:

LPARAMETERS oSource, nXCoord, nYCoord, nState
if upper(osource.name)='BTN_MEMORY'
mN_Resource=thisform.SchedOCX1.PointToResource(nXCoord,
nYCoord)
if mn_Resource < 0
osource.dragicon='nodrop01.cur'
else
osource.dragicon='cross03.cur'
endif
endif

Any help with this would be appreciated.

Kirk
Reply
Map
View

Click here to load this message in the networking platform