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:   FTextColor          := clUnset;
    FInactSelColor      := clUnset;
    FInactSelTextColor  := clUnset;
  end;
  
  destructor TfpgTreeNode.Destroy;
  
negative.code:     procedure   SetHasChildren(const AValue: Boolean);
      procedure   DoTreeCheck(ANode: TfpgTreeNode);
      procedure   SetStateImageIndex(const AValue: integer);
    protected
      FTree: TfpgTreeView;
    public
      constructor Create; overload;
      constructor Create(ATreeView: TfpgTreeView; AText: TfpgString); overload;
      destructor  Destroy; override;
      // node related
      function    AppendText(AText: TfpgString): TfpgTreeNode;
  