Author: Jonas Bilinkevicius

How to change the TreeView item height?

Answer:

1   uses CommCtrl;
2   
3   { .... }
4   
5   procedure SetTreeViewItemHeight(aTreeView: TTreeView; aItemHeight: Word);
6   begin
7     aTreeView.Perform(TVM_SETITEMHEIGHT, aItemHeight, 0);
8   end;
9   
10  // Example:
11  
12  procedure TForm1.Button1Click(Sender: TObject);
13  begin
14    SetTreeViewItemHeight(TreeView1, 30);
15  end;