anchor.diff:    begin
       if fold = '' then
         continue;
  -    itm := Tree.Items.AddChild(fImpsNode, shortenPath(fold));
  +    itm := Tree.Items.AddChild(fImpsNode, shortenPath(CEMainForm.expandSymbolicString(fold)));
       itm.ImageIndex := 5;
       itm.SelectedIndex := 5;
     end;
  
positive.code:     lst := TStringList.Create;
      try
        if listAsteriskPath(src, lst) then for src in lst do begin
          itm := Tree.Items.AddChild(fXtraNode, shortenPath(src));
          itm.ImageIndex := 2;
          itm.SelectedIndex := 2;
        end else begin
          itm := Tree.Items.AddChild(fXtraNode, shortenPath(src));
          itm.ImageIndex := 2;
          itm.SelectedIndex := 2;
        end;
  
negative.code:   begin
      if fold = '' then
        continue;
      itm := Tree.Items.AddChild(fInclNode, shortenPath(CEMainForm.expandSymbolicString(fold)));
      itm.ImageIndex := 5;
      itm.SelectedIndex := 5;
    end;
  