Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/uDocTree.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/uDocTree.pas (modified) (2 diffs)

cprs/branches/foia-cprs/CPRS-Chart/uDocTree.pas

@@ -247 +247 @@
 
   procedure MakeBold(ANode: TORTreeNode);
+  var
+    LookingForAddenda: boolean;
   begin
+    LookingForAddenda := (Pos('ADDENDUM', UpperCase(CurrentContext.Keyword)) > 0);
     with ANode do
       begin
@@ -253 +256 @@
         if Parent <> nil then
           begin
-            Parent.Expand(False);
+            if (ImageIndex <> IMG_ADDENDUM) or ((ImageIndex = IMG_ADDENDUM) and LookingForAddenda) then
+              Parent.Expand(False);
             if Parent.Parent <> nil then
               begin
-                Parent.Parent.Expand(False);
+                if (Parent.ImageIndex <> IMG_ADDENDUM) or ((Parent.ImageIndex = IMG_ADDENDUM) and LookingForAddenda) then
+                  Parent.Parent.Expand(False);
                 if Parent.Parent.Parent <> nil then
-                  Parent.Parent.Parent.Expand(False);
+                  if (Parent.Parent.ImageIndex <> IMG_ADDENDUM) or ((Parent.Parent.ImageIndex = IMG_ADDENDUM) and LookingForAddenda) then
+                    Parent.Parent.Parent.Expand(False);
               end;
           end;