anchor.diff:      DoEndUpdate;
   end;
   
  +procedure TfpgLVItems.Sort(Compare: TListSortCompare);
  +begin
  +  BeginUpdate;
  +  FItems.Sort(Compare);
  +  EndUpdate;
  +end;
  +
   { TfpgLVItem }
   
   procedure TfpgLVItem.SetCaption(const AValue: String);
  
positive.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;
    
  
  
negative.code:     property    Selected[ListView: TfpgListView]: Boolean read GetSelected write SetSelected;
    end;
  
  
    TfpgListViewSubItems = class(TStrings)
    private
  