anchor.diff:      procedure   InsertItem(AItem: TfpgLVItem; AIndex: Integer);
       procedure   BeginUpdate;
       procedure   EndUpdate;
  +    procedure   Sort(Compare: TListSortCompare);
       property    Capacity: Integer read GetCapacity write SetCapacity;
       property    Columns: TfpgLVColumns read FColumns;
       property    Item[AIndex: Integer]: TfpgLVItem read GetItem write SetItem;
     end;
     
     
  -  { TfpgLVItem }
  -
     TfpgLVItem = class(TObject)
     private
       FCaption: String;
  
positive.code:     property    Selected[ListView: TfpgListView]: Boolean read GetSelected write SetSelected;
    end;
  
    { TfpgListViewSubitems }
  
    TfpgListViewSubItems = class(TStrings)
    private
  
negative.code:     procedure   Insert(Index: Integer; const S: string); override;
      property    ImageIndex[ASubIndex: Integer]: Integer read GetImageIndex write SetImageIndex;
      property    OnChange: TNotifyEvent read FOnChange write FOnChange;
    end;
    
  
  