VirtualStringTree - Fontgrösse hochdrehen

[ralfiii]

Beim verträumten Durchlesen vom VirtualTreeView Quellcode über die Lösung gestolpert. Man muss die Nodes als "noch nicht Höhenvermessen" markieren:

Delphi-Quellcode:

procedure TForm1.butNewFontClick(Sender: TObject);
var Node : PVirtualNode;
begin
     if FontDialog1.Execute then
     begin
          VST.Font.Assign(FontDialog1.Font);

          Node:=VST.GetFirst;
          while Node<>nil do
          begin
               exclude(Node.States, vsHeightMeasured);
               Node:=VST.GetNext(Node)
          end;

          VST.Invalidate;
     end;
end;