delphi - 如何使虚拟Treeview控件始终按行滚动？

Question

虚拟 TreeView 按像素垂直滚动，这与标准 Delphi 网格、TListView 和 TTreeView(或我所知道的大多数其他此类控件)的方式不同。按行滚动并始终在控件顶部保持整行可见。当我使用光标键导航时，根据方向，第一行或最后一行完全可见。当用鼠标滚动时，没有任何对齐。

例如，可以通过 Delphi 2007 和 2009 中的“结构”窗口观察到此行为。

有什么方法可以设置许多属性以具有标准 Windows 控件的行为吗？或者是否有一组补丁可以实现此目的？

Answer 1

这是我在 Argalatyr 的帮助下想出的，看起来它达到了我想要的效果:

procedure TForm1.FormCreate(Sender: TObject);
begin
  VirtualStringTree1.ScrollBarOptions.VerticalIncrement :=
    VirtualStringTree1.DefaultNodeHeight;
end;

procedure TForm1.VirtualStringTree1Resize(Sender: TObject);
var
  DY: integer;
begin
  with VirtualStringTree1 do begin
    DY := VirtualStringTree1.DefaultNodeHeight;
    BottomSpace := ClientHeight mod DY;
    VirtualStringTree1.OffsetY := Round(VirtualStringTree1.OffsetY / DY) * DY;
  end;
end;

procedure TForm1.VirtualStringTree1Scroll(Sender: TBaseVirtualTree; DeltaX,
  DeltaY: Integer);
var
  DY: integer;
begin
  if DeltaY <> 0 then begin
    DY := VirtualStringTree1.DefaultNodeHeight;
    VirtualStringTree1.OffsetY := Round(VirtualStringTree1.OffsetY / DY) * DY;
  end;
end;