Discussion :

[Superstivix]

Bonjour à tous,

Voila le problème, j'ai réalisé un drag & drop sur un TTreeview, le problème est que lorsque je prends un noeud et que le pointeur de la souris dépasse le cadre supérieur de l'arbre il ne se passe, or je souhaiterais que les noeuds de l'arbre défilent de manière à pouvoir afficher les noeuds supérieurs.

J'ai cherché une fonction du style autoscoll sans succès.
J'espère que quelqu'un sait faire ça.

Steve

[Invité]

Bonjour,

Effectivement, avoir un défilement de l'arbre de vue quand on survole le haut ou le bas de l'arbre est intéressant (comme dans l'explorateur Windows par exemple).

J'ai déjà fait des recherches sur ce problème ici :
http://www.developpez.net/forums/vie...518&highlight=

Je n'ais malheureusuement pas trouvé de solution satisfaisante.

J'espère que tu trouveras...

Bon courage !

[Invité]

Ah, j'ai vu dans un sujet précédent pour un TListView que l'on pouvait utiliser la propriété TopItem, je vais essayer...

[Superstivix]

Bonjour,

Effectivement, avoir un défilement de l'arbre de vue quand on survole le haut ou le bas de l'arbre est intéressant (comme dans l'explorateur Windows par exemple).

J'ai déjà fait des recherches sur ce problème ici :
http://www.developpez.net/forums/vie...518&highlight=

Je n'ais malheureusuement pas trouvé de solution satisfaisante.

J'espère que tu trouveras...

Bon courage !

J'avais déja trouvé ce sujet mais malheureusement ça ne marche pas, j'essaye de l'adapter mais pour l'instant sans succès

Si quelqu'un connait la solution je suis preneur, d'ici là je continue les recherches

Steve

[Superstivix]

Rebonjour à tous,

voila j'ai résolu mon problème, je donne le code pour ceux que ça peut intéresser.

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
16
17
18
19
20
21
22
 
TTreeView *Organigramme;
...
if (State == dsDragMove && Y > 0 && Y < Organigramme->Height)
{
  TTreeNode * NoeudTampon;
  TTreeNode * DernierVisible;
  NoeudTampon = Organigramme->GetNodeAt(X,Y);
  DernierVisible = Organigramme->GetNodeAt(X,Organigramme->Height - 10);
  if(NoeudTampon != NULL)
  {
    if( NoeudTampon == Organigramme->TopItem )
    {
       Organigramme->TopItem = Organigramme->TopItem->GetPrev();
       Organigramme->Repaint();
    }
    else if( NoeudTampon == DernierVisible && DernierVisible->GetNext() != NULL)
    {
      Organigramme->TopItem = Organigramme->TopItem->GetNext();
      Organigramme->Repaint();
    }
  }

C'est assez simple je pense mais si quelqu'un a la moindre question qu'il n'hésite pas, ce code est à mettre dans l'événement DragOver de l'arbre.

A plus
Steve

[totof42]

Salut,

une toute petite remarque : si jamais ton TreeView a une scrollbar horizontale (d'une épaisseur supérieure à 10), par exemple quand tu étends plusieurs sous-noeuds, il ne scrollera plus !

Il vaut mieux utiliser

Code :

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

 DernierVisible = Organigramme->GetNodeAt(X,Organigramme->ClientHeight - 10);

plutôt que

Code :

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

DernierVisible = Organigramme->GetNodeAt(X,Organigramme->Height - 10);

Voili, j'avais dit que c'était un détail

Merci en tout cas pour ton code, ça ma permis d'ajouter cette facilité avant que le client ne me la demande !
A++

[Superstivix]

Merci de ta précision,
je n'y avais pas prété attention car dans les arbres que j'ai dans mon projet je ne peut pas avoir de ScrollBar horizontale, donc pas de souci pour moi.
Par contre le code risque d'être réutilisé pour d'autres projets et la configuration pourra être différente donc mieux vaut prévenir que guérir comme on dit.

De rien pour le code
Vraiment ravi que ça puisse servir à d'autres.
Bon courage
A plus
Steve