Использование Темной Темы для TListView в Delphi 7 и Ранее: Подробная Инструкция

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

Использование Темной Темы для TListView в Delphi 7 и Ранее: Подробная Инструкция

С появлением темной темы в операционных системах многие разработчики стремятся интегрировать подобные возможности в свои приложения. Однако, если ваше приложение написано на Delphi 7 или в более старых версиях, это может представлять определенные трудности, особенно в случае изменения внешнего вида стандартных компонентов, таких как TListView. В данной статье мы рассмотрим, как изменить фоновый цвет заголовка TListView для использования темной темы.

Проблема

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

Решение

Для изменения цвета фона заголовка TListView необходимо использовать владельское рисование элементов управления. В документации по контролам заголовков Microsoft указано, что прямого способа изменить фон не существует, и разработчику придется реализовать рисование элементов самостоятельно.

Существуют различные подходы к владельскому рисованию, например, использование NM_CUSTOMDRAW или WM_DRAWITEM. Оба подхода позволяют получить доступ к контексту устройства (HDC), с помощью которого можно рисовать в заголовке.

Пример кода на Object Pascal (Delphi) для использования NM_CUSTOMDRAW и изменения цвета фона заголовка:

procedure TTntListView.WMNotify(var AMessage: TWMNotify);
var
  NMCustomDraw: TNMCustomDraw;
  r: TRect;
begin
  if (AMessage.NMHdr.hwndFrom = FHeaderHandle) and
    (AMessage.NMHdr.code = NM_CUSTOMDRAW) then
  begin
    NMCustomDraw := PNMCustomDraw(TMessage(AMessage).LParam)^;
    case NMCustomDraw.dwDrawStage of
      CDDS_ITEMPREPAINT: begin
        r := NMCustomDraw.rc;
        FillRect(NMCustomDraw.hdc, r, Sender.Canvas.Brush.Handle);
        // Остальной код...
        Message.Result := CDRF_SKIPDEFAULT;
      end;
      else AMessage.Result := CDRF_DODEFAULT;
    end;
  end
  else inherited;
end;

В данном примере используется функция FillRect для заливки фона заголовка. Цвет фона задается с помощью кисти, которая получается из Sender.Canvas.Brush.

Альтернативные Хитрости

Разработчик также столкнулся с проблемой отсутствия разделителей столбцов и неправильного выравнивания текста заголовков. Решением стало использование Message.Result := CDRF_SKIPDEFAULT и рисование текста с помощью функции DrawText. Для разделителей столбцов использовалась функция DrawEdge.

Подтвержденный Результат

Пользователь смог найти необходимые фрагменты кода, которые в совокупности позволили реализовать владельское рисование заголовков TListView с изменением цвета фона и корректным отображением разделителей столбцов и текста заголовков.

Заключение

Изменение цвета фона заголовка TListView в Delphi 7 и более ранних версиях возможно с использованием владельского рисования. Это требует дополнительных знаний и умений, но позволяет достичь желаемого результата в виде темной темы для приложения.

Приведенный пример кода является отправной точкой, и его можно дополнительно адаптировать под конкретные нужды и дизайн приложения.

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

Описание контекста: Инструкция по изменению цвета фона заголовка компонента TListView в Delphi 7 для поддержки темной темы.

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

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

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