anchor.diff:    col: integer;
     ACenterPos: integer;
     x: integer;
  +  imgx: integer;
     y: integer;
     AImageItem: TfpgImageItem;
     AVisibleHeight: integer;
  
positive.code:     property    OnExpand: TfpgTreeExpandEvent read FOnExpand write FOnExpand;
      property    OnDoubleClick;
      property    OnShowHint;
    end;
    
  
  
negative.code: procedure TfpgTreeview.DoExpand(ANode: TfpgTreeNode);
  begin
    if Assigned(FOnExpand) then
      FOnExpand(self, ANode);
  end;
  
  function TfpgTreeview.NextVisualNode(ANode: TfpgTreeNode): TfpgTreeNode;
  