在 Virtual Treeview 中是否可以选择多列？

Question

在 Virtual Treeview 中是否可以选择多列？

delphivirtualtreeview

6

我需要添加复制节点和列的矩形选择功能，但是我找不到在虚拟树列表中实际选择多个列的方法（除了toFullRowSelect之外）。

我是否遗漏了什么？如果没有，是否有支持类似网格多列选择的后代组件呢？

- PetriW

3个回答

1

您可以尝试在TreeOptions.MiscOptions中启用/添加toGridExtensions。它可以通过光标键自由移动列，但是VT仍然会在离开时取消选择列。但我相信可以通过自定义绘制和记住起始节点和列来“修复”它。

- DiGi

我已经尝试过这个方法，但是当你想使用鼠标时它并不十分有效。不过，它可以“解决”问题，所以点赞吧。 :) - PetriW

1

另一个提示 - 查看OnStateChange事件，也许你可以使用它

procedure TSomeForm.VTreeStateChange(Sender: TBaseVirtualTree; Enter,Leave: TVirtualTreeStates);
begin
  if tsDrawSelecting in Enter then
  begin
    // Save position
  end;
end;

- DiGi

有趣，我稍后会看一下。:) 谢谢！ - PetriW

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- PetriW · Accepted Answer

经过一些测试，我得出了以下结论，感谢DiGi的额外推动。使用此解决方案无法使用DrawSelection，因此需要禁用它。由于我认为不会很快再次需要这样做，所以没有编写后代。

将toDisableDrawSelection、toExtendedFocus和toMultiSelect设置为True。

在适当的位置声明以下变量/属性：

StartSelectedColumn: integer;
FirstSelectedColumn: integer;
LastSelectedColumn: integer;
Selecting: boolean;

更新以下事件：

OnKeyDown（按键按下）

if (not Selecting) and (Key = VK_SHIFT) then
begin
  StartSelectedColumn := vtMain.FocusedColumn;
  FirstSelectedColumn := StartSelectedColumn;
  LastSelectedColumn := StartSelectedColumn;
  Selecting := true;
end;

OnKeyUp

if Key = VK_SHIFT then
  Selecting := false;

OnFocusChanged

if Selecting then
begin
  if column < StartSelectedColumn then
  begin
    FirstSelectedColumn := column;
    LastSelectedColumn := StartSelectedColumn;
  end
  else if column > StartSelectedColumn then
  begin
    FirstSelectedColumn := StartSelectedColumn;
    LastSelectedColumn := column
  end
  else
  begin
    FirstSelectedColumn := column;
    LastSelectedColumn := column;
  end;
end
else
begin
  StartSelectedColumn := column;
  FirstSelectedColumn := column;
  LastSelectedColumn := column;
end;

OnBeforeCellPaint

if vtMain.Selected[node] and InRange(column, FirstSelectedColumn, LastSelectedColumn) then
begin
  if vtMain.Focused then
    TargetCanvas.Brush.Color := vtMain.Colors.FocusedSelectionColor
  else
    TargetCanvas.Brush.Color := vtMain.Colors.UnfocusedSelectionColor;
  TargetCanvas.Brush.Style := bsSolid;
  TargetCanvas.FillRect(CellRect);
end;

OnPaintText

if vtMain.Selected[node] and InRange(column, FirstSelectedColumn, LastSelectedColumn) then
begin
  if vtMain.Focused then
    TargetCanvas.Font.Color := clHighlightText
  else
    TargetCanvas.Font.Color := vtMain.Font.Color;
end;