是否有可能在Virtual Treeview中选择多个列？

我需要添加功能来复制节点和列的矩形选区，但是我找不到任何方法来真正选择虚拟树视图中的多个列（在FullRowSelect旁边）。

我只是想念一些东西？ 如果没有，是否有一个后裔与网格多列选择支持？

---

所以经过一些测试后，我想出了以下内容，感谢DiGi的额外推动。 DrawSelection不适用于此解决方案，因此需要禁用它。 因为我认为我不需要很快再做这件事，所以我没有写出后代。

设置为DisableDrawSelection，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;

---

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

---

还有一点 - 看看OnStateChange事件，也许你可以使用

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

链接地址: http://www.djcxy.com/p/34977.html

上一篇: Is it possible to select multiple columns in Virtual Treeview?

下一篇: How to Chain multiple Dialogs?