anchor.diff:      FText: TfpgString;
       FTextColor: TfpgColor;
       FHasChildren: Boolean;
  +    FTree: TfpgTreeView;
       procedure   SetCollapsed(const AValue: boolean);
       procedure   SetInactSelColor(const AValue: TfpgColor);
       procedure   SetInactSelTextColor(const AValue: TfpgColor);
  
positive.code: function TfpgTreeview.GetRootNode: TfpgTreeNode;
  begin
    if FRootNode = nil then
      FRootNode := TfpgTreeNode.Create;
    FRootNode.TextColor     := clText1;
    FRootnode.SelTextColor  := clSelectionText;
    FRootnode.SelColor      := clSelection;
  
negative.code:   end;
  end;
  
  procedure TfpgTreeNode.DoTreeCheck(ANode: TfpgTreeNode);
  begin
    if ANode.FTree <> FTree then
      raise Exception.Create('Nodes must be of the same tree');
  end;
  
  constructor TfpgTreeNode.Create;
  begin
    FData           := nil;
  