[D7] Utilisation d'un TreeView

Version imprimable

Bonjour,

je veux réduire un Treeview du nœud 1 au dernier nœud et je veux qu'un fin d'opération le noeud 0 soit affiché et sélectionné en première ligne (en haut) .

J'ai essayé ceci qui ne fonctionne pas : la dernière ligne du TreeView est affichée en bas du TreeView :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 { ===================================================================== } procedure TF_Princ.Btn_ReductClick(Sender: TObject); // Réduire le Treeview Var i : Integer ; Begin TvXML.Items.BeginUpdate ; For i:=1 to TvXML.Items.Count-1 do Begin TvXML.Items.Item[i].Collapse(False) ; End ; TvXML.Items.EndUpdate ; TvXML.Selected := TvXML.Items.Item[0] ; { autres essais infructueux : TvXML.items.GetFirstNode; TvXML.Items.Item[0].Selected := True ; TvXML.Items.Item[0].Focused := True ; } End; { ===================================================================== }
Quelqu'un sait il comment faire ?
Merci
A+
Charly

11/02/2019, 13h23
Charly910

J'ai trouvé en cherchant la même chose pour un TMemo :D

Il suffit de faire :

Code:

SendMessage(TvXML.Handle, WM_VScroll, SB_TOP, 0);

A+
Charly
11/02/2019, 14h16
ALWEBER

Tu peux aussi utiliser tvXML.FullCollapse;
11/02/2019, 17h36
Charly910

Oui, merci, mais je ne crois pas que FullCollapse réaffiche la première ligne du TreeView

D'autre part je veux tout réduire sauf le nœud 0

A+
Charly

Autre possibilité en reprenant ton code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Var
  i1 : Integer ;
Begin
  TreeView1.Items.BeginUpdate ;
  For i1:=TreeView1.Items.Count-1 downto 2 do
    Begin
      TreeView1.Items.Item[i1].Collapse(False) ;
    End ;
  TreeView1.Items.Item[1].Expand(true);
  TreeView1.Items.EndUpdate ;
  TreeView1.Selected :=  TreeView1.Items.Item[0] ;

12/02/2019, 09h19
Charly910

Oui, merci cela fonctionne aussi

A+
Charly