delphi - レポート スタイルでリストビューの行の高さを増やす方法は?

Question

リスト ビューの行の高さを 2px だけ追加する必要があります (現在、カスタム描画されたプログレス バーは狭すぎます)。

Change Listview item height、http://www.delphipages.com/forum/showthread.php?t=49939という2つの良い答えがありますが、できませんでした。

画像リストを使用できることは知っていますが、すでに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 に割り当てることです。