anchor.diff:  function TfpgTreeview.GetRootNode: TfpgTreeNode;
   begin
     if FRootNode = nil then
  +  begin
       FRootNode := TfpgTreeNode.Create;
  +    FRootNode.FTree := self;
  +  end;
     FRootNode.TextColor     := clText1;
     FRootnode.SelTextColor  := clSelectionText;
     FRootnode.SelColor      := clSelection;
  
positive.code:     FText: TfpgString;
      FTextColor: TfpgColor;
      FHasChildren: Boolean;
      procedure   SetCollapsed(const AValue: boolean);
      procedure   SetInactSelColor(const AValue: TfpgColor);
      procedure   SetInactSelTextColor(const AValue: TfpgColor);
  
negative.code:     procedure   SetTextColor(const AValue: TfpgColor);
      procedure   DoRePaint;
      procedure   SetHasChildren(const AValue: Boolean);
      procedure   DoTreeCheck(ANode: TfpgTreeNode);
    public
      constructor Create;
      destructor  Destroy; override;
  