anchor.diff:    col: integer;
     ACenterPos: integer;
     x: integer;
  +  imgx: integer;
     y: integer;
     AImageItem: TfpgImageItem;
     AVisibleHeight: integer;
  
positive.code:   TfpgTreeNode = class;
    
    TfpgTreeNodeFindMethod = procedure(ANode: TfpgTreeNode; var AFound: boolean) of object;
  
  
    TfpgTreeNode = class(TObject)
  
negative.code:   node: TfpgTreeNode;
    cancel: boolean;
    OldSel: TfpgTreeNode;
    lNodeXOffset: integer;
  begin
    inherited HandleLMouseUp(x, y, shiftstate);
  
  