anchor.diff:      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;
     
   
  
positive.code:     property    Selected[ListView: TfpgListView]: Boolean read GetSelected write SetSelected;
    end;
  
    { TfpgListViewSubitems }
  
    TfpgListViewSubItems = class(TStrings)
    private
  
negative.code:     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 = class(TObject)
    private
      FCaption: String;
  