Virtual Treeview - Header Width dem Text anpassen

[schuetze09]

So, jetzt habe ich es auch selber geschafft und für alle die es interessiert, hier die Lösung:

Delphi-Quellcode:

      with VST.Header do
      begin
        for i:=0 to FieldDefList.Count -1 do
        begin
          Columns.Add;
          Columns[i].Text:=FieldDefList[i].Name;
          // Macht mir die Spalten so breit, wie der Header ist!
          Columns[i].Width:= VST.Canvas.TextWidth(Columns[i].Text) + VST.Indent + VST.Header.Columns[i].Spacing;  
          Feldliste.Add(FieldDefList[i].Name);
        end;

MfG
schuetze09