anchor.diff:      // only visual (visible) nodes
       function    NextVisualNode(ANode: TfpgTreeNode): TfpgTreeNode;
       function    PrevVisualNode(ANode: TfpgTreeNode): TfpgTreeNode;
  +    procedure   BeginUpdate;
  +    procedure   EndUpdate;
       property    Font: TfpgFont read FFont;
       // Invisible node that starts the tree
       property    RootNode: TfpgTreeNode read GetRootNode;
  
positive.code:   {$IFDEF DEBUG}
    SendDebug(Classname + '.HandlePaint');
    {$ENDIF}
  //  inherited HandlePaint;
  
    Canvas.ClearClipRect;
  
negative.code:   SendDebug(Classname + '.HandleResize');
    {$ENDIF}
    inherited HandleResize(awidth, aheight);
    if (csLoading in ComponentState) then
      Exit; //==>
    if csUpdating in ComponentState then
      Exit; //==>
    if not (csLoading in ComponentState) then
      ResetScrollbar;
    RePaint;
  