delphi - 是否可以在虚拟 TreeView 中选择多个列？

Question

我需要添加功能来复制节点和列的矩形选择，但我找不到任何方法来实际选择虚拟 TreeView 中的多个列(除了 toFullRowSelect)。

我是不是错过了什么？如果没有，是否有后代具有类似网格的多列选择支持？

Answer 1

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

将 toDisableDrawSelection、toExtendedFocus 和 toMultiSelect 设置为 True。

在合适的地方声明以下变量/属性:

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

更新以下事件:

按下按键

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

按键向上

if Key = VK_SHIFT then
  Selecting := false;

焦点更改

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;