anchor.diff:    FTextColor          := clUnset;
     FInactSelColor      := clUnset;
     FInactSelTextColor  := clUnset;
  +end;
  +
  +constructor TfpgTreeNode.Create(ATreeView: TfpgTreeView; AText: TfpgString);
  +begin
  +  Create;
  +  FText := AText;
  +  FTree := ATreeView;
   end;
   
   destructor TfpgTreeNode.Destroy;
  
positive.code:     FText: TfpgString;
      FTextColor: TfpgColor;
      FHasChildren: Boolean;
      FTree: TfpgTreeView;
      procedure   SetCollapsed(const AValue: boolean);
      procedure   SetInactSelColor(const AValue: TfpgColor);
      procedure   SetInactSelTextColor(const AValue: TfpgColor);
  
negative.code:   FData           := nil;
    FFirstSubNode   := nil;
    FLastSubNode    := nil;
    FText := '';
    FTree := nil;
    FImageIndex     := -1;
    FStateImageIndex := -1;
    FCollapsed      := True;
  