[VTV] Virtual Treeview und horizontal scrollbar

[ConnorMcLeod]

Stimmt schon; ich kann das leider nicht so lösen, weil der Tree immer gleich breit bleiben soll. Glück Auf!

Edit: die momentan beste Lösung:

Delphi-Quellcode:

procedure TMyVirtualTree.DoAfterItemPaint(
    Sender: TBaseVirtualTree
  ; TargetCanvas: TCanvas
  ; Node: PVirtualNode
  ; ItemRect: TRect
  );
begin
  if (0 < Header.Columns.Count) and IsTextClipped(Node, 0) then
  begin
    Header.AutoFitColumns(False, smaAllColumns, 0, 0);
  end;
end;