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:     procedure   SetTextColor(const AValue: TfpgColor);
      procedure   DoRePaint;
      procedure   SetHasChildren(const AValue: Boolean);
    public
      constructor Create;
      destructor  Destroy; override;
  
negative.code:   writeln('TfpgTreeNode.AppendText');
    {$ENDIF}
    h := TfpgTreeNode.Create;
    h.FTree := FTree;
    h.Text := AText;
    Append(h);
    result := h;
  