anchor.diff:    writeln('TfpgTreeNode.AppendText');
     {$ENDIF}
     h := TfpgTreeNode.Create;
  +  h.FTree := FTree;
     h.Text := AText;
     Append(h);
     result := h;
  
positive.code:   end;
  end;
  
  constructor TfpgTreeNode.Create;
  begin
    FData           := nil;
  
negative.code:     FText: TfpgString;
      FTextColor: TfpgColor;
      FHasChildren: Boolean;
      FTree: TfpgTreeView;
      procedure   SetCollapsed(const AValue: boolean);
      procedure   SetInactSelColor(const AValue: TfpgColor);
      procedure   SetInactSelTextColor(const AValue: TfpgColor);
  