Ligne d'insertion dans une listbox lors d'un drag and drop

Bonjour

J'aimerai afficher une ligne d'insertion entre 2 items d'une listbox lors d'un drag and drop d'une listbox à une autre.

Quel est le composant utilisé dans Delphi pour la fenêtre de structure qui permet de déplacer un item dans la vue arborescente des composants. Elle possède la possibilité d'afficher cette ligne d'insertion

Pièce jointe 651481

Quelqu'un aurait ça dans ses archives de code ?

A mon avis, c'est un TTreeview

Pour un treeview, utilise l'évènement OnCustomDrawItem.
J'utilise cela aussi pour mon soft.

Dans l'évènement, il suffit de tester Sender.Dragging.

Voici ce que j'ai fait:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

// ----------------- if Sender.Dragging and (Sender.DropTarget=Node) then Begin var NodeRect := Node.DisplayRect(false); // textonly=false because we want the full rectangle pen.mode:=pmXor; moveto(0,NodeRect.Bottom-3); LineTo(NodeRect.right,NodeRect.Bottom-3); moveto(0,NodeRect.Bottom-2); LineTo(5,NodeRect.Bottom-2); moveto(NodeRect.right-5,NodeRect.Bottom-2); LineTo(NodeRect.right,NodeRect.Bottom-2); moveto(0,NodeRect.Bottom-1); LineTo(3,NodeRect.Bottom-1); moveto(NodeRect.right-5,NodeRect.Bottom-1); LineTo(NodeRect.right,NodeRect.Bottom-1); moveto(0,NodeRect.Bottom); LineTo(3,NodeRect.Bottom); moveto(NodeRect.right-5,NodeRect.Bottom); LineTo(NodeRect.right,NodeRect.Bottom); pen.mode:=pmCopy; End;

---

On peut certainement faire mieux en utilisant un polygone..mais bon, c'est pour l'exemple.
Pour le test tu peux te contenter de la premiere ligne:
moveto(0,NodeRect.Bottom-3); LineTo(NodeRect.right,NodeRect.Bottom-3);

Si tu veux le code complet du customdrawitem que j'utilise, dis moi, je peux te le retrouver.

Certes, c'est un Treeview mais est-ce un composant descendant du TTreeview, est-ce le TreeView classique qui aurait ces propriétés ou Embarcadero l'a customisé pour utilisation dans Delphi (Ce serait dommage de ne pas en faire un composant disponible à tous).

Merci Franck pour ton code sur le treeview. Je vais essayé de l'adapter pour la TCheckListBox.

Ca peut être intéressant d'avoir l'ensemble du code pour le DrawItem si je passe sur un TreeView.