anchor.diff:        we want a main column covering the tree. Then extra columns for user
         text and data.
       * Implement event handlers the user can hook into and do custom drawing.
  +    * TfpgTreeNode.HasChildren property is not fully implemented yet. The
  +      property is not update when you do .Append() or .AppendText() calls. It
  +      such cases .Count is prefered.
   }
   
   {.$Define Debug}
  
positive.code:     Remove(tn);
      tn.Free;
    end;
  end;
  
  function TfpgTreeNode.ParentTextColor: TfpgColor;
  
negative.code:     FLastSubNode.Next := ANode;
  
    FLastSubNode := ANode;
    FHasChildren := True;
  end;
  
  function TfpgTreeNode.FindSubNode(AText: string; ARecursive: Boolean): TfpgTreeNode;
  