☆TreeViewのアイテム高さを設定する。

TreeViewでは、使うアイコンによってノードの間隔がとても狭くなることがありますが、 そのような場合に使える処理です。

uses
  CommCtrl;

procedure SetTreeNodeHeight(TreeView: TTreeView; Height: Integer);
var
  H: Integer;
begin
  H := TreeView.Perform(TVM_GETITEMHEIGHT, 0, 0);
  if H <> Height then
    TreeView.Perform(TVM_SETITEMHEIGHT, Height, 0);
end;

※関連付けられたImageListのサイズによっても、ノードの高さは変わります。