Поиск сообщества

Раскрашиваю ListView в черный цвет, цвет текста серый. Делаю это с помощью изменений от Zuby в FMX.ListView.pas в процедуре DrawItemsFill // отрисовываем кастомный цвет........................................... // procedure TListViewBase.DrawItemsFill(const StartItem................. if TListViewItem(ListItem).Data['aUseCustomColor'].AsBoolean then FBrush.Color := TListViewItem(ListItem).Data['aCustomColor'].AsInteger; // ...................................................................... При выделении Item его цвет становится светло-серым. Как изменить цвет выделяемого itema на черный? Могу изменить цвет текстовых элементов в выделенном item так: procedure TFrmMain.LsvItemClick(const Sender: TObject; const AItem: TListViewItem); var i: integer; begin TListItemText(AItem.Objects.FindDrawable('TxtNum')).SelectedTextColor:=$FF1E1E1E; // серый TListItemText(AItem.Objects.FindDrawable('TxtAdr')).SelectedTextColor:=$FF1E1E1E; // серый end; А как изменить backround выделенного элемента так и не разберусь Если это делается стилем, то покажите пожалуйста пример.