Discussion :

[MiJack]

Bonjour,

Dans un treeview, j'ai un problème lorsque l'utilisateur cliquer sur un noeud de mon arbre : si le nom est trop long, la scrollbar horizontale se déplace tout à droite de mon treeview, ce qui est assez gênant.

J'aimerais savoir s'il est possible de forcer une scrollbar à se repositionner à gauche, et que l'affichage du treeview revienne également à gauche (qu'il suive la scrollbar en fait).

J'ai essayé de manipuler les propriétés du genre EM_SCROLL, etc, mais sans résultats...

[apqmwnqmap]

J'ai le meme genre de problème, je voudrais placer l'ascenseur ou je veux. Donc si quelqu'un, en relisant ce message, a une idée...

[ShaiLeTroll]

Tout simplement

Code :

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

  SendMessage(TreeView.Handle, WM_HSCROLL, SB_TOP, 0);

EM_SCROLL, comme son E, l'indique c'est pour un EDIT !

[MiJack]

Aaah, enfin une réponse plus d'un an après avoir posé la question

Je vais pouvoir mettre le tag 'résolu'

[MiJack]

Hello,

Je réouvre ce topic car j'ai besoin d'un complément de réponse :

J'ai un long treeview qui doit être reconstruit périodiquement. Le problème est que lorsque je le reconstruis, la scrollbar verticale se remet tout au sommet du treeview. Donc j'aimerais stocker la position de la scrollbar et lorsque je reconstruit mon treeview, la repositionner à cette position.

J'ai pas mal fouiné et essayé plusieurs choses, mais impossible de forcer le déplacement de ma scrollbar comme je le souhaite. Voici mon code actuel :

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
 
var info : TScrollInfo ;
     position : Integer ;
begin
 
position := 10 ; //exemple
 
GetScrollInfo(Treeview.Handle, SB_VERT, info) ; //pour remplir les paramètres de info
with info do
begin
  cbSize := SizeOf(info) ;
  fMask := SIF_POS ;
  nTrackPos := position ;
end ;
 
SetScrollInfo(Treeview.Handle, SB_VERT, info, true) ;
end ;

Merci pour votre aide

[ShaiLeTroll]

Stocke plutôt le noeud et joue avec MakeVisible ... en général cela fonctionne assez bien

[MiJack]

Stocke plutôt le noeud et joue avec MakeVisible ... en général cela fonctionne assez bien

Malheureusement je ne peux pas car j'utilise un composant acheté comme treeview (TeeTree) et celui-ci utilise des noeuds qui n'héritent pas de TTreeNode, donc n'ont pas la fonction MakeVisible

[ShaiLeTroll]

Si c'est au moins un TreeView Windows qui est derrière tente un

Code :

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

SendMessage(TreeView.Handle, TVM_ENSUREVISIBLE, 0, Longint(Item.Handle)

Si c'est un composant entièrement dessiné, ça semble plus chiant, ... le WM_SCROLL ne fonctionnera pas ?

[MiJack]

J'ai vérifié et ce n'est pas un Treeview Windows. Mon Treeview hérite d'un TCustomPanel -> TCustomPanelNoCaption.

Pour le WM_SCROLL, il est dans une Unit ? J'ai un message "Undeclared identifier", tout comme pour le TVM_ENSUREVISIBLE, et impossible de trouver où ils se trouvent.


Je pense toutefois que le bout de code que j'ai mis un peu plus haut n'est pas loin de la solution, car j'arrive à déplacer la scrollBar vers TOP ou BOTTOM, mais pas à la positionner à un endroit personnalisé.

[ShaiLeTroll]

WM_SCROLL, c'est un nom générique pour les message de type scroll
TVM_ENSUREVISIBLE, doit être dans CommCtrl mais ne fonctionne qu'avec un TreeView Windows,

As tu essayé SetScrollPos

[MiJack]

As tu essayé SetScrollPos

SetScrollPos fonctionne ! Pourtant j'étais réticent car j'avais lu sur MSDN que :

Note The SetScrollPos function is provided for backward compatibility. New applications should use the SetScrollInfo function.

La scrollbar bouge enfin, mais le treeview ne se déplace pas en conséquence. Je vais voir si j'arrive à y remédier.