Discussion :

[Galet]

Bonjour à tous,
Dans un tTreeView (VCL) sur lequel j'ai ajouté des CheckBox, je cherche à répercuter le changement d'un noeud vers ses descendants.
Mon code fonctionne presque sauf que le nœud sélectionné correspond toujours à celui en surbrillance mais pas à celui qui vient d'être coché ou décoché.
Y a-t-il une solution pour récupérer le nœud modifié ? Utilisation du Handle ?

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
 
function IsChecked(Node: tTreeNode): Boolean;
var
  tvItem: tTvItem;
begin
  tvItem.mask := tvIf_State;
  tvItem.hItem := Node.ItemId;
  TreeView_GetItem(Node.TreeView.Handle, tvItem);
  result := tvItem.state and tvIs_Checked > 0;
end;
 
procedure CheckTvNode(Node: tTreeNode; bState: Boolean);
var
  tvItem: tTvItem;
begin
  tvItem.mask := tvIf_State;
  tvItem.StateMask := tvIs_StateImageMask;
  tvItem.hItem := Node.ItemId;
  if bState then
    tvItem.state := tvIs_Checked
  else
    tvItem.state := tvIs_unChecked;
  TreeView_SetItem(Node.TreeView.Handle, tvItem);
end;
 
procedure TfrmMain.tvDirectoryClick(Sender: TObject);
var
  pDirectoryTmp: pDirectory;
  NodeTmp: tTreeNode;
  bChecked: Boolean;
 
  { ---------------------------------------------- }
  procedure UpdateChild(NodeAct: tTreeNode);
  begin
    NodeAct := NodeAct.getFirstChild;
    if NodeAct <> nil then
      repeat
        CheckTvNode(NodeAct, bChecked);
        UpdateChild(NodeAct);
        NodeAct := NodeAct.GetNextSibling;
      until NodeAct = nil;
  end;
 
{ ---------------------------------------------- }
begin
  if tvDirectory.Selected.Data = nil then
    exit;
 
  NodeTmp := tvDirectory.Selected;
  pDirectoryTmp := NodeTmp.Data;
  bChecked := IsChecked(tvDirectory.Selected);
  pDirectoryTmp.edSelected := bChecked;
  UpdateChild(NodeTmp); // Child ?
  tvDirectory.Refresh;
end;

Merci par avance...

[ShaiLeTroll]

n'utilise pas Selected mais plutôt un Tree.GetNodeAt, Mouse.CursorPos et ScreenToClient

[Galet]

Merci ShailLeTroll,
La solution n'était pourtant pas si loin...

Pour ceux qui chercheraient à créer une fonction semblable, le code corrigé qui fonctionne :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
function IsChecked(Node: TTreeNode): Boolean;
var
  tvItem: tTvItem;
begin
  with tvItem do
  begin
    mask := tvIf_State;
    hItem := Node.ItemId;
  end;
  TreeView_GetItem(Node.TreeView.Handle, tvItem);
  result := tvItem.state and tvIs_Checked > 0;
end;
 
procedure CheckTvNode(Node: TTreeNode; bState: Boolean);
var
  tvItem: tTvItem;
begin
  with tvItem do
  begin
    mask := tvIf_State;
    StateMask := tvIs_StateImageMask;
    hItem := Node.ItemId;
    if bState then
      state := tvIs_Checked
    else
      state := tvIs_unChecked;
  end;
  TreeView_SetItem(Node.TreeView.Handle, tvItem);
end;
 
procedure TfrmMain.tvDirectoryClick(Sender: TObject);
var
  pDirectoryTmp: pDirectory;
  NodeTmp: TTreeNode;
  bChecked: Boolean;
  pt: TPoint;
 
  { ---------------------------------------------- }
  procedure UpdateChild(NodeAct: TTreeNode);
  begin
    NodeAct := NodeAct.getFirstChild;
    if NodeAct <> nil then
      repeat
        CheckTvNode(NodeAct, bChecked);
        if NodeAct.Data <> nil then
        begin
          pDirectoryTmp := NodeAct.Data;
          pDirectoryTmp.edSelected := bChecked;
        end;
 
        UpdateChild(NodeAct); // Recursif : Child
        NodeAct := NodeAct.GetNextSibling; // Next node
      until NodeAct = nil;
  end;
 
{ ---------------------------------------------- }
begin
  pt := tvDirectory.ScreenToClient(Mouse.CursorPos);
  NodeTmp := tvDirectory.GetNodeAt(pt.X, pt.Y);
 
  if NodeTmp = nil then
    exit;
  pDirectoryTmp := NodeTmp.Data;
 
  bChecked := IsChecked(NodeTmp);
  pDirectoryTmp.edSelected := bChecked;
 
  UpdateChild(NodeTmp); // Child ?
  tvDirectory.Refresh;
end;

avec :

Code :

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

1
2
3
 
 tvIs_Checked = $2000;
  tvIs_Unchecked = $1000;

et dans le Form.create :

Code :

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

1
2
3
4
 
  // For CheckBox in tTreeView
  SetWindowLong(tvDirectory.Handle, gwl_Style, GetWindowLong(tvDirectory.Handle,
    gwl_Style) or tvs_CheckBoxes);

Résolu