anchor.diff:      Remove(tn);
       tn.Free;
     end;
  +  FHasChildren := False;
   end;
   
   function TfpgTreeNode.ParentTextColor: TfpgColor;
  
positive.code:       we want a main column covering the tree. Then extra columns for user
        text and data.
      * Implement event handlers the user can hook into and do custom drawing.
  }
  
  {.$Define Debug}
  
negative.code:     FLastSubNode.Next := ANode;
  
    FLastSubNode := ANode;
    FHasChildren := True;
  end;
  
  function TfpgTreeNode.FindSubNode(AText: string; ARecursive: Boolean): TfpgTreeNode;
  