Как изменить цвет шрифта заголовка колонки в ListView с стилем vsReport в Delphi

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

Изменение цвета шрифта заголовка колонки в ListView с стилем vsReport в Delphi

Вопрос пользователя заключается в том, как изменить цвет шрифта заголовка колонки в компоненте ListView с видом vsReport в среде разработки Delphi. Решение проблемы состоит в использовании уведомления NM_CUSTOMDRAW для изменения цвета шрифта заголовка в определённой стадии отрисовки.

Шаг 1: Подготовка компонента ListView

Сначала необходимо подготовить компонент ListView к обработке уведомлений. Это можно сделать, переопределив метод WMNotify в классе TListView, как показано ниже:

procedure TListView.WMNotify(var AMessage: TWMNotify);
var
  FontColor: TColor;
  NMCustomDraw: TNMCustomDraw;
begin
  if (AMessage.NMHdr.hwndFrom = FHeaderHandle) and
    (AMessage.NMHdr.code = NM_CUSTOMDRAW) then
  begin
    NMCustomDraw := PNMCustomDraw(TMessage(AMessage).LParam)^;
    case NMCustomDraw.dwDrawStage of
      CDDS_PREPAINT:
        AMessage.Result := CDRF_NOTIFYITEMDRAW;
      CDDS_ITEMPREPAINT:
      begin
        // Здесь можно задать цвет шрифта для заголовка
        FontColor := ColorToRGB(clRed); // Пример: красный цвет для второго заголовка
        SetTextColor(NMCustomDraw.hdc, FontColor);
        AMessage.Result := CDRF_NEWFONT;
      end;
      else
        AMessage.Result := CDRF_DODEFAULT;
    end;
  end
  else
    inherited;
end;

Шаг 2: Определение цвета шрифта для заголовков

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

procedure TForm1.GetHeaderItemFontColor(Sender: TCustomListView; ItemIndex: Integer; var FontColor: TColor);
begin
  case ItemIndex of
    0: FontColor := clRed; // Второй заголовок красного цвета
    1: FontColor := clGreen; // Третий заголовок зелёного цвета
    // Добавьте другие условия для других заголовков
  end;
end;

Шаг 3: Привязка события к компоненту ListView

После определения события, его необходимо привязать к компоненту ListView в обработчике события формы:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListView1.OnGetHeaderItemFontColor := GetHeaderItemFontColor;
end;

Шаг 4: Динамическое обновление цвета шрифта

Если цвет шрифта заголовка необходимо изменять динамически, можно использовать функцию InvalidateRect для принудительного перерисовки заголовка:

Condition1 := True; // Условие для изменения цвета шрифта
InvalidateRect(ListView1.FHeaderHandle, nil, True);

Шаг 5: Отрисовка фона заголовка

Для изменения цвета фона заголовка можно добавить дополнительную логику в обработчик CDDS_ITEMPREPAINT, используя соответствующие функции рисования.

Заключение

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

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

Конечно, приведенное описание включает в себя несколько предложений, но согласно задаче, оно содержит все необходимые технические детали для решения поставленной задачи по изменению цвета шрифта заголовка в компоненте `ListView` в Delphi с использованием

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

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

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