如何在报表样式中增加listview的行高？

Question

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

改变Listview项目高度有两个好的答案,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,将其高度设置为您想要的行高度,并将其分配给listview的SmallImages.