Решение проблемы с цветом шрифта в VirtualTreeView с VCL Carbon в Delphi XE7

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

Разработчики, использующие компонент VirtualTreeView в сочетании с стилями VCL, например, Carbon, могут столкнуться с проблемой, когда цвет шрифта остается белым, что делает данные нечитаемыми на фоне светлых цветов. В данной статье мы рассмотрим, как решить эту проблему, используя примеры кода на Object Pascal (Delphi).

Проблема

При использовании компонента VirtualTreeView в качестве сетки (grid) в приложении Delphi XE7 и выборе стиля оформления Carbon VCL, возникает проблема с цветом шрифта. Он остается белым, даже если фон строки выполнен в светлых тонах, что не позволяет читать данные. В случае использования стиля Iceberg Classico данная проблема не наблюдается.

Подход к решению

Изначально разработчики пытаются изменить цвет шрифта внутри обработчика события BeforeCellPaint, но это не приводит к успеху. Однако, существует библиотека, которая может помочь в решении этой задачи:

TargetCanvas.Brush.Color := aColor;
if TStyleManager.ActiveStyle.Name = 'Carbon' then
    TCustomStyleExt(TStyleManager.ActiveStyle).SetStyleFontColor(sfTreeItemTextNormal, clBlack)
else
    TCustomStyleExt(TStyleManager.ActiveStyle).SetStyleFontColor(sfTreeItemTextNormal, aFontColor);
TargetCanvas.FillRect(CellRect);

Этот код позволяет изменять цвет шрифта в зависимости от выбранного стиля. Библиотека доступна по адресу vcl-styles-utils.

Альтернативный алгоритм

Для более гибкого подхода к изменению цвета шрифта в зависимости от цвета фона можно использовать следующий алгоритм: выбирать цвет шрифта, который контрастен относительно цвета фона. Для этого можно воспользоваться следующими рекомендациями:

1. Определить цвет фона ячейки.
2. Вычислить контрастность цвета фона (например, используя формулу яркости).
3. Выбрать цвет шрифта, который будет иметь достаточный контраст относительно цвета фона (часто это черный или темно-серый, если фон светлый, и белый или светло-серый, если фон темный).

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

Использование библиотеки vcl-styles-utils позволяет изменить цвет шрифта в VirtualTreeView с VCL Carbon на Delphi XE7. Разработчики, столкнувшиеся с описанной проблемой, могут воспользоваться данной библиотекой для решения задачи с изменением цвета шрифта в зависимости от выбранного стиля.

Заключение

В данной статье мы рассмотрели проблему изменения цвета шрифта в VirtualTreeView с VCL Carbon в Delphi XE7 и предложили два способа её решения: использование библиотеки vcl-styles-utils и алгоритм выбора цвета шрифта на основе контраста с цветом фона. Применение этих методов позволит разработчикам обеспечить читаемость данных вне зависимости от выбранного стиля оформления.

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

Проблема заключается в том, что при использовании компонента VirtualTreeView с стилем оформления VCL Carbon в Delphi XE7 цвет шрифта остается белым, что делает данные нечитаемыми на светлом фоне, и описываются способы решения этой проблемы.

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

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

:: Главная :: TTreeView ::