Treeview OleDragDrop changing mouse cursor

[vaxman9]

Greetings all

I am creating a simple file cabinet for one of my applications using the Treeview for the control, allowing the users to move items around via D&D and the basic functionality is in and working.

I want to change the mouse cursor to something a bit less bland than the defaults, I have done this with the native controls in the past and have had success, but the Treeview control is not cooperating or I am missing something (more likely). It doesn't help that the Help file for the Treeview control is somewhat limited. Additionally, the Ole D&D events for the Treeview have different parameters than native VFP controls, so I am not sure I can rely on the VFP Help for Ole D&D operations as a guide.

Here's my setup:

Properties:
OleDragMode = 1
OleDropMode = 1

Events
OleStartDrag - sets the data I am moving and sets AllowedEffects to 3 (move/copy) , which gives me the default cursorwhen over an accepting area or when over a non-accepting area.

OleDragOver - sets effect appropriately for what is under the dragged item.

The OleGiveFeedBack event fires and I tried many different values (from the VPF help) for defaultcursors parameter to see if I could get any change. Regardless of the value I set, the mouse pointer remains the default.

Not a show stopper, more of a "wonder what I am missing" question.

Any pointers or suggestion would be welcomed and appreciated.

thanks
msc

MS Treeview Control 6.0 (SP4)
VFP9 SP2

 

[Mike Lewis]

Have you tried setting the MouseIcon property from within the oleStartDrag event? You would set it to the name of a custom cursor file, which you can create in any decent picture editor (or use one of the cursor that come with VFP).

Mike

 

[vaxman9]

Hi Mike -

Thanks for the reply.

I tried your suggestion, but the Treeview.MouseIcon is an object and won't accept a string value, I get a Type Mismatch

I tried creating an ImageList, adding my cursor to it and then setting the Treeview.MouseIcon = ImageList.listimages[1], but I still get the Type Mismatch error.

I like what I have with the Treeview but with the poor documentation, it does make it difficult to play with.

msc

 

[strongm]

Treeview.MouseIcon = ImageList.listimages[1].ExtractIcon

 

[vaxman9]

Hello S

That did allow the Treeview.MouseIcon to get set properly, but still no change in the displayed cursor.

Thanks!
msc

 

[vaxman9]

Followup -

Being unable to let go of this, I played around some and I have been able to get custom cursors working in the Treeview D&D.

No matter what I tried with the Treeview.MouseIcon, nothing seemed to work. I decided to try using the Form.MousePointer and Form.MouseIcon and these allowed me to get it going

In OleGiveFeedBack event:
LPARAMETERS effect, defaultcursors

defaultcursors = .f.

thisform.MousePointer = 99 && Custom
if effect = 0 && No Drop
thisform.MouseIcon = <your NODROP cursor file>
else
thisform.MouseIcon = <your DROP cursor file> && I am only using 1 cursor for all 'allowable' drops
endif

Then in the OleCompleteDrag event
LPARAMETERS effect
thisform.MousePointer= 0 && Default, reset the mouse pointer

I am not 100% sure this is the correct method, but it does work. I tried setting Thisform.MousePointer in the OleStartDrag, but it did not work. Only setting it in OleGiveFeedBack would get the custom cursor to show.

Thanks Mike and Strongm for your suggestion, much appreciated.

msc

 

[Mike Lewis]

Good to hear that you have got it working. Thanks for letting us know.

When I suggested using MouseIcon, what I failed to mention was that you would also need to set MousePointer to 99. I see that you found that yourself.

Mike

 

[vaxman9]

Hey Mike,

I won't hold that against you

Thanks much for the help
msc