是否有可能在虚拟树视图选择多列？

Question

我需要将功能添加到复制节点和列的一个矩形选区，但我找不到任何方式实际选择在虚拟树视图（toFullRowSelect旁）多列。

我是不是失去了一些东西？如果没有，是否有与网格状多列的后裔在那里选择支持？

Answer 1

所以经过一些测试，我想出了下面，感谢的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;

Answer 2

您可以尝试启用/中的 TreeOptions.MiscOptions 的补充的 toGridExtensions 的。它能够通过光标键在列自由移动，但仍然VT在离开取消列。但我敢肯定这是可能的“修理”它通过自定义绘制和记忆起始节点和列。

Answer 3

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

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