Discussion :

[Charly910]

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 :

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
{ ===================================================================== }
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

[Charly910]

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

Il suffit de faire :

Code :

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

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

A+
Charly

[ALWEBER]

Tu peux aussi utiliser tvXML.FullCollapse;

[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

[ALWEBER]

Autre possibilité en reprenant ton code :

Code :

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

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] ;

[Charly910]

Oui, merci cela fonctionne aussi

A+
Charly