Virtual Treeview - Header Width dem Text anpassen

[schuetze09]

Hallo,

die Header Infos in meinen VirtualTreeview lade ich über ein SQL, die Daten für die Treeview ebenso.
Leider wieß ich nicht, wie ich den Header anpassen kann.

So hole ich mir den Header:

Delphi-Quellcode:

      with VST.Header do
      begin
        for i:=0 to FieldDefList.Count -1 do
        begin
          Columns.Add;
          Columns[i].Text := FieldDefList[i].Name;
          Feldliste.Add(FieldDefList[i].Name);
        end;
      end;

das Problem bei der Sache ist, ich weiß nie, wieviel Header-Spalten ich brauche und was in diesen dann steht, da sich das Select im Query ändern kann.

MfG
schuetze09

[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