如何增加报表样式中列表视图的行高？

Question

我需要将 2px :) 添加到列表视图中的行高度（自定义绘制的进度条现在太窄了）。

有两个很好的答案更改列表视图项目高度，http://www.delphipages.com/forum/showthread.php?t=49939，但我做不到。

我知道可以使用图像列表，但我已经有 16x16 图像:)

有人可以帮助我吗？ 我会很感激的。

Answer 1

响应CN_MEASUREITEM控件通知消息，如下：

type
  TListView = class(ComCtrls.TListView)
  private
    procedure CNMeasureItem(var Message: TWMMeasureItem); message CN_MEASUREITEM;
  end;

  TForm1 = class(TForm)
    ...

procedure TListView.CNMeasureItem(var Message: TWMMeasureItem);
begin
  inherited;
  Inc(Message.MeasureItemStruct.itemHeight, 2);
end;

注意：只有当OwnerDraw属性为true时才会发送该消息。

Answer 2

一个无需编写任何代码的快速而肮脏的替代方案是添加一个 TImageList，将其宽度设置为 1，将其高度设置为您想要的行高，并将其分配给列表视图的 SmallImages。