treeview, clx, eigene farben und schriftart

[semo]

also: die breite habe ich jetzt folgendermassen angepasst:

für den rootNode einfach den Text erweitern.
die anderen unterelemente werden dann daran angepasst:

Code:

while Canvas.TextWidth(sNodeText) < aTreeView.Width - 2*aTreeView.Indent do
sNodeText := sNodeText + ' ';

aber wie kann ich die höhe anpassen???

habe was für die vcl gefunden, das sich aber in der clx nicht anwenden kann:

Code:

{ .... }

uses CommCtrl;

{ .... }

procedure SetTreeViewItemHeight(aTreeView: TTreeView; aItemHeight: Word);
begin
  aTreeView.Perform(TVM_SETITEMHEIGHT, aItemHeight, 0);
end;


// Example:
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetTreeViewItemHeight(TreeView1, 30);
end;

Wer kann da helfen???