Использование цветов для элементов TListView в FireMonkey без OnCustomDraw: инструкция для Delphi XE7

Delphi , Компоненты и Классы , TListView

Использование цветов для элементов TListView в FireMonkey без OnCustomDraw: инструкция для Delphi XE7

Вопрос о том, как изменить цвета элементов TListView в FireMonkey (FMX) без использования события OnCustomDraw, которое было доступно в VCL, является актуальным для разработчиков, работающих с компонентами FireMonkey в среде Delphi XE7 и выше. В данной статье мы рассмотрим, как можно применить цвета к тексту и фону элементов списка в TListView, используя возможности FireMonkey.

Описание проблемы

В компоненте TListView из библиотеки VCL существовало событие OnCustomDraw, которое позволяло пользователям изменять цвета элементов списка вручную. Однако в FireMonkey, начиная с версии XE7, это событие отсутствует. Это вызывает затруднения при попытках изменить цвета элементов списка при выполнении программы.

Подтвержденный ответ

Для изменения цвета текста элементов списка в TListView можно использовать свойство TListViewItem.Objects.DetailObject.TextColor. Однако для изменения цвета фона элементов напрямую нет встроенного свойства.

Альтернативный ответ и решение проблемы

Изменение цвета фона элементов списка

Чтобы изменить цвет фона элементов TListView, можно использовать обработчик события OnPaint, который вызывается при рисовании элемента списка. Пример кода на Object Pascal для Delphi:

procedure TForm1.ListView1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
begin
    Canvas.Fill.Color := TAlphaColorRec.Red;
    Canvas.FillRect(ARect, 0, 0, [acLeft, acTop, acRight, acBottom], 0.2);
end;

В этом примере задана прозрачность фона (0.2), чтобы текст был виден через фон. Если установить прозрачность в 1, то текст также потребуется перерисовать:

procedure TForm1.ListView1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
begin
    Canvas.Fill.Color := TAlphaColorRec.Red;
    Canvas.FillRect(ARect, 0, 0, [acLeft, acTop, acRight, acBottom], 1);
    Canvas.Fill.Color := TAlphaColorRec.Black;
    Canvas.FillText(ARect, 'Элемент списка', False, 1, [], TTextAlign.taLeading);
end;

Использование сторонних решений

Также можно использовать сторонние компоненты, например, Modern ListView для FireMonkey, который предоставляет широкие возможности для настройки цвета элементов списка, включая фон, текст и разделители.

Заключение

В данной статье мы рассмотрели, как можно изменить цвета элементов TListView в FireMonkey, используя обработчик события OnPaint и сторонние компоненты. Это позволяет разработчикам продолжать использовать цветовую стилизацию в своих приложениях, несмотря на отсутствие события OnCustomDraw в FireMonkey.

Создано по материалам из источника по ссылке.

Вопрос связан с изменением цветов элементов `TListView` в компоненте FireMonkey для Delphi XE7 без использования события `OnCustomDraw`, что ранее было доступно в VCL.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TListView ::