anchor.diff:      fImageID: Word; //Image that is using this bin (0 if unused)
       fRect: TBinRect; //Our dimensions
       fPad: Byte;
  +    fNotFit: Word; //Minimum size that does not fit
     public
       constructor Create(aRect: TBinRect; aPad: Byte; aImageID: Word);
       destructor Destroy; override;
  
positive.code:   if fChild2 <> nil then fChild2.Free;
  
    inherited;
  end;
  
  
  
negative.code:     function Width: Word;
      function Height: Word;
      procedure GetAllItems(var aItems: TBinItem);
  
      procedure DidNotFit(aItem: TIndexItem);
      function CanFit(aItem: TIndexItem): Boolean;
    end;
  
    TBinManager = class
  