Discussion :

[lasconic]

Salut ...

Je me sers d'un TtreeView et j'aimerai avoir des noeuds grisés et non selectionnable (ou meme non ouvrable) genre enabled:=false ... Quelqu"un saurait comment faire ? ? ?

Merci!

Lasconic

PS : Si vous connaissez un tuto détaillé (qui va plus loin que ajouter enlever des noeuds) sur les treeview, je suis preneur parce que ça court pas les fils de la toile !

[xherault]

Salut,


Pour ce qui est de d'autoriser ou non l'expand de certains noeuds, tu peux utiliser l'évènement OnExpanding qui te passe le noeud en question et un varaible booléenne permettant d'autoriser ou non l'expand. A toi de savoir en traitant les informations du noeud s'il peu être déplier.

Pour ce qui est de grisé le noeud, Tu peux utiliser l'évènement On advancedcustomDrawItem. Tu pourras ainsi changer la police en dessinant certains noeuds.

J'espère que ca te convient

Bon courage

@+

[m.nico]

essaye cela pour empecher la selection

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.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var node : ttreenode;
begin
node := TreeView1.GetNodeAt(x,y);
if node = nil then exit;
if node.text  = 'toto' then
begin
button1.SetFocus;
end;
end;
 
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if node.text  = 'toto' then
begin
button1.SetFocus;
end;
end;

et cela pour griser ton noeud

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if node.text  = 'toto' then
begin
treeview1.Canvas.brush .color := clgray;
end;

[lasconic]

Meci à tous ça devrait etre bon tout ça ...

[m.nico]

et pour ne pas expander un noeud tu peux faire

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
begin
if node.text  = 'toto' then
begin
AllowExpansion := false;
end;