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

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

我是否错过了什么？如果没有，是否有一个后裔与网格多列选择支持？

2009-01-29 PetriW

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

将其设置为不可见画面选择，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;

在FocusChanged

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;

来源

2009-01-29 14:30:01 PetriW

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

来源

2009-01-29 12:29:23 DiGi

我已经尝试过这一点，当你想使用鼠标时，它不能很好地工作。然而，它确实“解决”了问题，因此得到了满意的结果。 :) – PetriW 2009-01-29 13:05:07

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

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

来源

2009-01-30 11:17:35 DiGi

有趣，我稍后再看。：）谢谢！ – PetriW 2009-01-30 12:52:29

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

回答

相关问题