Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Drag and drop nodes in Treeview
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Divers
Thread ID:
00472235
Message ID:
00476679
Vues:
38
First of all, I did not use the builder. I followed the instructions that describe to write the code into the events of the treeview object itself.
I guess when you used the builder, you should remove the object NDragger and add it again, and try to do the following:

I'm using the same versions like you.

I named the dragger object NDragger, the treeview is oTreeView.

1. The form's LOAD event has the line "=sys(2333, 0)".

2. The form's INIT event has the line "THISFORM.nDragger.m_setup(THISFORM.oTreeView)"

3. The form's DESTROY event has the line "THISFORM.NDragger.m_release()"

4. Add to the TREEVIEW MOUSEDOWN event:
LPARAMETERS button, shift, x, y
THISFORM.Ndragger.MouseDown(button, shift, x, y)
*-- while dragging disable label edit.
THIS.LabelEdit = 1

5. Add to TREEVIEW MOUSEMOVE event:
LPARAMETERS button, shift, x, y
THISFORM.Ndragger.MouseMove(button, shift, x, y)

6. Add to TREEVIEW DRAGOVER event:
LPARAMETERS oSource, nXCoord, nYCoord, nState
THISFORM.Ndragger.DragOver(oSource, nXCoord, nYCoord, nState)

7. Add to the TREEVIEW DRAGDROP event:
LPARAMETERS oSource, nXCoord, nYCoord
THISFORM.Ndragger.DragDrop(oSource, nXCoord, nYCoord)

8. Add to the TREEVIEW MOUSEUP event:
LPARAMETERS button, shift, x, y
THISFORM.Ndragger.m_reset()
*-- Enable label edit after dragging.
THIS.LabelEdit = 0

This should work.
Christian Isberner
Software Consultant
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform