anchor.diff:    FData           := nil;
     FFirstSubNode   := nil;
     FLastSubNode    := nil;
  -  FText           := '';
  +  FText := '';
  +  FTree := nil;
     FImageIndex     := -1;
     FStateImageIndex := -1;
     FCollapsed      := True;
  
positive.code:     procedure   SetHasChildren(const AValue: Boolean);
      procedure   DoTreeCheck(ANode: TfpgTreeNode);
      procedure   SetStateImageIndex(const AValue: integer);
    public
      constructor Create;
      destructor  Destroy; override;
      // node related
      function    AppendText(AText: TfpgString): TfpgTreeNode;
  
negative.code:   FTextColor          := clUnset;
    FInactSelColor      := clUnset;
    FInactSelTextColor  := clUnset;
  end;
  
  constructor TfpgTreeNode.Create(ATreeView: TfpgTreeView; AText: TfpgString);
  begin
    Create;
    FText := AText;
    FTree := ATreeView;
  end;
  
  destructor TfpgTreeNode.Destroy;
  