Раскрашиваю 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 выделенного элемента так и не разберусь
Если это делается стилем, то покажите пожалуйста пример.