Можно ли у TListViewItem при добавлении его в TListView установить свойство Accessory в None?

[Aptem]

Здравствуйте.

 

Можно ли у TListViewItem при добавлении его в TListView установить свойство Accessory в None?

 

По-умолчанию, можно установить только More, Checkmark или Detail.

 

У компонента TListView реализован механизм Swipe-to-Delete и это очень удобно при работе со списками. Но вот дополнительный контрол справа совсем не нужен. У TListBox можно поставить None, но у него нет Swipe-to-Delete.

 

Спасибо.

[Aptem]

Сам же нашел ответ. В мануале меленько-меленько написано

Вот здесь: http://docwiki.embarcadero.com/Libraries/XE5/en/Talk:FMX.ListView.TListViewItem.Accessory

 

Question/Discuss: Is it possible to create a TListViewItem without an Accessory icon? There is no TAccessoryType.None, and no writeable HasAccessoryItem property. Setting TListView.ItemAppearanceObjects.ItemObjects.Accessory.Visible to False hides all Accessory icons for the entire ListView, but it may not be possible to have some items in the list display an Accessory icon, while other items do not.

 

[Antonyan]

 

Сам же нашел ответ. В мануале меленько-меленько написано

Вот здесь: http://docwiki.embarcadero.com/Libraries/XE5/en/Talk:FMX.ListView.TListViewItem.Accessory

 

Question/Discuss: Is it possible to create a TListViewItem without an Accessory icon? There is no TAccessoryType.None, and no writeable HasAccessoryItem property. Setting TListView.ItemAppearanceObjects.ItemObjects.Accessory.Visible to False hides all Accessory icons for the entire ListView, but it may not be possible to have some items in the list display an Accessory icon, while other items do not.

 

 

Как вариант, можно просто скрыть его

 

Procedure XXX;

Var

     LItem : TListViewItem;

 

begin

 

          LItem := YourListView.Items.Add;

          LItem.Objects.AccessoryObject.Visible:=false;

 

end;