anchor.diff:    fpg_menu;
     
   type
  +
  +  TfpgNodeAttachMode = (naAdd, naAddFirst, naAddChild, naAddChildFirst, naInsert);
   
     PfpgTreeColumnWidth = ^TfpgTreeColumnWidth;
     TfpgTreeColumnWidth = record
  
positive.code:   aNode.parent := nil;
  end;
  
  procedure TfpgTreeNode.Clear;
  var
    n: TfpgTreeNode;
  
negative.code:     procedure   Collapse;
      procedure   Expand;
      procedure   Remove(var aNode: TfpgTreeNode);
      procedure   MoveTo(Destination: TfpgTreeNode; Mode: TfpgNodeAttachMode);
      procedure   UnregisterSubNode(aNode: TfpgTreeNode);
      // parent color settings
      function    ParentInactSelColor: TfpgColor;
  