Discussion :

[gudul]

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



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

[sergio_is_back]

A mon avis, c'est un TTreeview

[franckcl]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[gudul]

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.