Измените стиль шрифта только из заголовка в TListView в режиме vsReport - PullRequest
Новая
       71

Измените стиль шрифта только из заголовка в TListView в режиме vsReport

0 голосов
/ 10 июля 2019

У меня есть 3 столбца в режиме TListView в режиме vsReport, с включенным свойством Checkboxes.Я хотел бы сделать только шрифт заголовка жирным, когда элемент отмечен.Я попытался использовать событие OnCustomDrawItem, но оно выделяет все строки жирным шрифтом. 

procedure TfrmMain.lvwCompsCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if (Item.Checked) then
    Sender.Canvas.Font.Style := [fsBold]
  else
    Sender.Canvas.Font.Style := [];
end;

Я не могу найти в методе OnCustomDrawItem как выделить первый столбец (подпись).Поэтому я также попытался использовать событие OnCustomDrawSubItem, чтобы «удалить» жирный стиль из подпунктов, но безуспешно. 

procedure TfrmMain.lvwCompsCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  if (SubItem > 0) then
    Sender.Canvas.Font.Style := [];
end;

Пожалуйста, кто-нибудь может мне помочь?

...