-
Похожий контент
-
- 39 ответов
- 6 260 просмотров
-
- 5 ответов
- 1 885 просмотров
-
- 5 ответов
- 1 639 просмотров
-
- 6 ответов
- 1 983 просмотра
-
- 0 ответов
- 1 296 просмотров
-
- 30 ответов
- 2 938 просмотров
-
- 17 ответов
- 4 034 просмотра
-
- 2 ответа
- 1 284 просмотра
-
- 4 ответа
- 2 012 просмотра
-
- 6 ответов
- 3 038 просмотров
-
-
Последние посетители 0 пользователей онлайн
- Ни одного зарегистрированного пользователя не просматривает данную страницу
Вопрос
Rusland
Раскрашиваю 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 выделенного элемента так и не разберусь
Если это делается стилем, то покажите пожалуйста пример.
Ссылка на комментарий
17 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.