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???