anchor.diff:    sfi: SHFILEINFO;
   begin
     inherited;
  +  FHeaderInstance := MakeObjectInstance(HeaderWndProc);
     // Load header image into an image list;  the header's hbm property
     // doesn't support transparency
     FHeaderImages := TImageList.Create(Self);
  
positive.code: { -------------------------------------------------------------------------- }
  destructor TAbCustomListView.Destroy;
  begin
    if FSortUpBmp <> 0 then
      DeleteObject(FSortUpBmp);
    if FSortDownBmp <> 0 then
  
negative.code:     procedure DoChange(Sender : TObject);
        virtual;
      function GetListItems: TAbListItems;
      procedure HeaderWndProc(var Msg: TMessage);
        virtual;
      procedure Notification(aComponent : TComponent; aOperation : TOperation);
        override;
      procedure SetArchive(aValue : TAbBaseBrowser);
  