Discussion :

[Jipété]

Hello, it's me again.

Je suis au bord du désespoir : j'ai besoin d'un TShellTreeView, à qui je demande bêtement de m'afficher les fichiers des dossiers, un truc tout simple -- enfin, je croyais...

Au début ça commence bien : je clique sur test1, il s'ouvre et je vois son contenu. Bien.
Je clique sur test2, ça referme test1 et ça m'affiche le contenu de test2, encore bien.
Je clique sur test3, ça referme test2 et ça m'affiche le contenu de test3, toujours bien.
Je clique sur test4, ça referme test3 et là, bim bam boum, au lieu de sélectionner le nom du dossier (comme les fois précédentes), ça sélectionne le premier fichier de sa liste...



Pourquoi ? Mais my God pourquoi ?

Il y a peut-être une blagounette dans le code ci-dessous, mais je n'arrive pas à la trouver, d'autant plus qu'en cliquant juste sur les triangles à gauche des noms des dossiers, ça a un comportement bizarre : des fois ça s'ouvre du 1^er coup, des fois non.
Et j'ai mis ce bout de code car le comportement automatique ne fonctionne pas comme je le voudrais (pas de collapsing automatique, par ex.)

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
procedure TForm1.tvListMouseDown(Sender: TObject; Button: TMouseButton; // tvList c'est le TShellTreeView
  Shift: TShiftState; X, Y: Integer);
var
  aNode: TTreeNode;
begin 
  PreviousNode := CurrentNode;
  aNode := TTreeview(sender).GetNodeAt(X, Y);
  // il en manque mais ça n'a rien à voir
  CurrentNode  := aNode;
  if CurrentNode <> PreviousNode then begin
    tvList.BeginUpdate;
    if not CurrentNode.Expanded then begin
      CurrentNode.Selected := True;
      CurrentNode.Expand(False);
      if PreviousNode <> nil then
        if PreviousNode.Expanded then PreviousNode.Collapse(False);
    end;
    tvList.EndUpdate;
  end;

Testé avec la wonderful 1.8.2...

Ah, ça ne se voit pas sur ces copies d'écran réduites à l'essentiel, mais j'ai positionné les scrollbars à ssAutoBoth dans l'EDI et si j'en parle, c'est parce que je ne les vois jamais...

EDIT : j'ai enlevé "et peut-être" dans le tag du titre, le problème est présent également dans XP sp2...
Par contre, le ssAutoBoth des scrollbars du TShellTreeView a l'air d'y fonctionner correctement.
/EDIT

[jurassic pork]

hello,
tu peux essayer d'utiliser l'événement OnExpanding (au lieu d'utiliser l'événement OnMouseDown) du TshellTreeView comme ceci par exemple:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.ShellTreeView1Expanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
begin
   PreviousNode := CurrentNode;
   CurrentNode := Node;
   if (PreviousNode <> nil) And (PreviousNode <> Node.Parent) then
      PreviousNode.Collapse(True);
end;

Cela a l'air de fonctionner sauf quand il y a plusieurs niveaux dans le noeud (voir Niveau2 dans l'animation qui suit ) :



Ami calmant J.P (sans T)

[Jipété]

Bonjour,

tu peux essayer d'utiliser l'événement OnExpanding (au lieu d'utiliser l'événement OnMouseDown) du TshellTreeView

merci de ton test, et de ton temps.

Une chose m'ennuie, c'est l'obligation de viser juste pour choper le triangle pour ouvrir le nœud, à tel point que dans les options j'ai choisi tvoRowSelect à True et tvoShowButtons à False, et du coup bye-bye l'événement OnExpanding, retour au OnMouseDown, bien obligé.
Mais je trouve ce RowSelect plus joli.

Ensuite, comme j'avais le souvenir de grosses misères avec le TShellTreeView de D7, déjà !, j'ai basculé mon projet sur un TTreeview et j'allais presque crier "Victoire !" quand, paf !, le problème se remanifeste...
Quelque part je préfère, je n'aurais pas bien compris que le TShelltv ait un problème qui ne serait pas présent dans son ancêtre.
Mais du coup, rien n'est réglé,

En repartant des exemples donnés, je constate qu'après quelques clics ici et là de bon fonctionnement répétitif, d'un coup et sans raison un clic sur test4diddl l'ouvre mais sélectionne le premier nœud enfant et ça, pour moi, c'est inconcevable.
J'ai rajouté un point d'exclamation orange pour bien montrer le 'blème.

Cela a l'air de fonctionner sauf quand il y a plusieurs niveaux dans le noeud (voir Niveau2 dans l'animation qui suit ) :

Thx God, il n'y a pas plusieurs niveaux (tu veux ma mort ou quoi ? )

EDIT : une seule image pour résumer : la barre de titre de la fenêtre est remplie au OntvListMouseDown par Caption := aNode.Text +' '+IntToStr(aNode.Level); et c'est parfaitement correct.

Alors pourquoi est-ce que j'ai un nœud de niveau 2 sélectionné ?
/EDIT

EDIT2 :
Bonne nouvelle : le problème a l'air de disparaître (en tout cas je ne l'ai pas reproduit) en utilisant OntvListSelectionChanged; au lieu de OntvListMouseDown. J'attends un peu avant de cliquer sur , ces choses sont tellement capricieuses,
/EDIT2

[Jipété]

Bonne nouvelle : le problème a l'air de disparaître (en tout cas je ne l'ai pas reproduit) en utilisant OntvListSelectionChanged; au lieu de OntvListMouseDown. J'attends un peu avant de cliquer sur , ces choses sont tellement capricieuses,

Confirmé, et bien fonctionnel également en réactivant le TShellTreeView

Allez hop,