anchor.diff:    col: integer;
     ACenterPos: integer;
     x: integer;
  +  imgx: integer;
     y: integer;
     AImageItem: TfpgImageItem;
     AVisibleHeight: integer;
  
positive.code:     procedure   DoRePaint;
      procedure   SetHasChildren(const AValue: Boolean);
      procedure   DoTreeCheck(ANode: TfpgTreeNode);
    public
      constructor Create;
      destructor  Destroy; override;
  
negative.code:   end;
    
    
    TfpgTreeView = class(TfpgWidget)
    private
      FImageList: TfpgImageList;
      FStateImageList: TfpgImageList;
      FColumnHeight: integer; // height of the column header
      FDefaultColumnWidth: word;
      FIndentNodeWithNoImage: boolean;
  