From 0889281c22bc7d3364918ddccfd4bc31a6466098 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Fri, 17 Sep 2010 05:24:44 +0000
Subject: [PATCH] Let priv tree track the node's checkstate itself, and
 initialize all nodes in Tree.OnPaint, so there is no node left out when
 AutoOptions.toAutoTristateTracking is doing its job. Further, check/uncheck
 parent priv nodes manually in OnInitNode as this is not done by
 auto-tracking. Fixes issue #2163 again.

---
 source/usermanager.pas | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/source/usermanager.pas b/source/usermanager.pas
index a19f9ca0..b996e359 100644
--- a/source/usermanager.pas
+++ b/source/usermanager.pas
@@ -640,6 +640,7 @@ begin
     VT.RootNodeCount := 0
   else
     VT.RootNodeCount := Users[listUsers.FocusedNode.Index].Privileges.Count;
+  VT.ReinitNode(nil, True);
 end;
 
 
@@ -648,17 +649,9 @@ var
   u: TUser;
   p: TPrivilege;
   i: Integer;
-  Child: PVirtualNode;
 begin
   case Sender.GetNodeLevel(Node) of
-    0: begin
-      Child := Sender.GetFirstChild(Node);
-      while Assigned(Child) do begin
-        Child.CheckState := Node.CheckState;
-        Child := Sender.GetNextSibling(Child);
-      end;
-      Sender.Expanded[Node] := True;
-    end;
+    0: Sender.Expanded[Node] := True;
     1: begin
       u := Users[listUsers.FocusedNode.Index];
       p := u.Privileges[Node.Parent.Index];
@@ -778,6 +771,13 @@ begin
       // Display plus/minus button
       Include(InitialStates, ivsHasChildren);
       p := Users[listUsers.FocusedNode.Index].Privileges[Node.Index];
+      // AutoOptions.toAutoTristateTracking does a good job but it does not auto-check parent nodes when initializing
+      if p.SelectedPrivNames.Count = 0 then
+        Node.CheckState := csUncheckedNormal
+      else if p.SelectedPrivNames.Count < p.PrivNames.Count then
+        Node.CheckState := csMixedNormal
+      else
+        Node.CheckState := csCheckedNormal;
     end;
     1: begin
       p := Users[listUsers.FocusedNode.Index].Privileges[Node.Parent.Index];