Delphi TListview OwnerDraw SubItems - 更改默认字体（在画布上绘制后以某种方式变粗）

Question

如果您将 ownerdraw 与 TListView 一起使用，则子项默认情况下都是 BOLD 字体样式，即使 listview font.style 设置为 []，对于自定义绘制的子项之后的所有子项。

我发现的一种解决方法是强制在 CustomDrawSubItem 事件中设置样式：

ListView2.Canvas.Font.Style := [fsItalic];
ListView2.Canvas.Font.Style := [];

（除非默认样式设置为 [] 以外的其他内容，否则使用 [] 的简单调用将不起作用，因为 SetStyle 调用不认为样式已更改）

然而，这是一个丑陋的修复，需要额外的处理时间。有没有更好的解决方案？

演示项目：http://www.mediafire.com/?v8bsdpvpfqy47vn

Answer 1

我同意 jachguate 的 comment 的观点，即 VCL 控件似乎存在问题； TCustomListView.CNNotify 可能存在设计问题。但要遵循那里的逻辑并不容易。

一种解决方案是在 DefaultDraw 为 true 时强制更改控件的画布，以便 VCL 在自定义绘图通知返回之前再次创建并选择控件的字体到传递的 DC。示例：

procedure TForm1.LVCustomDrawSubItem(Sender: TCustomListView; Item: TListItem;
  SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);
Var R: TRect;
    bmp: TBitmap;
    x: Integer;
begin
  DefaultDraw := True;

  if SubItem = 1 then begin
    DefaultDraw := False;
    ...
      ...       
      Sender.Canvas.Draw(R.Left - 2, R.Top, Bmp);
      Bmp.Free;
    end;
  end;

  if DefaultDraw then
    Sender.Canvas.Brush.Color := ColorToRGB(clWindow);     // <--
end;

我希望尽可能避免使用控件的画布。您可以为您的情况使用临时 DC，这也避免了问题中 cmets 中提到的黑色背景问题。

uses
  commctrl;

  ...

procedure TForm1.LVCustomDrawSubItem(Sender: TCustomListView; Item: TListItem;
  SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);
Var R: TRect;
    bmp: TBitmap;
    x: Integer;
    DC: HDC;
begin
  DefaultDraw := True;

  if SubItem = 1 then begin
    DefaultDraw := False;
    ...
      ...

      DC := GetDC(Sender.Handle);
      ImageList_Draw(TypeImages.Handle, 0, DC, R.Left - 2, R.Top, ILD_NORMAL);
      ReleaseDC(Sender.Handle, DC);

      Bmp.Free;
    end;
  end;
end;

Answer 2

我没有遇到您描述的确切情况，但我遇到了类似的问题。当我使用所有者绘制的TListView 和分配OnAdvancedCustomDrawSubItem 事件以在每个子项的基础上更改Canvas.Font 时，我发现在我为一个子项更改Sender.Canvas.Font 后，后续子项将被绘制为即使我为他们更改了Sender.Canvas.Font，也会出现错误的设置。我的解决方法是在OnAdvancedCustomDrawSubItem 事件处理程序的末尾手动调用Sender.Canvas.Font.OnChange 事件处理程序。这表示TListView 向Windows 报告CDRF_NEWFONT，然后一切都会正确绘制。就好像Sender.Canvas.Font.OnChange 事件没有正确连接，而TListView 正在被所有者绘制，因此它不会检测到字体更改，因此不会正确地向Windows 报告。