Можно ли выбрать несколько столбцов в Virtual Treeview?
-
20-08-2019 - |
Вопрос
Мне нужно добавить функциональность для копирования прямоугольной выборки узлов и столбцов, но я не могу найти никакого способа фактически выбрать несколько столбцов в виртуальном Treeview (кроме toFullRowSelect).
Я просто что-то упускаю?И если нет, есть ли потомок с поддержкой выбора в виде сетки с несколькими столбцами?
Решение
Итак, после некоторого тестирования я пришел к следующему, спасибо DiGi за дополнительный толчок.DrawSelection не будет работать с этим решением, поэтому его необходимо отключить.Поскольку я не думаю, что мне скоро понадобится делать это снова, я не писал потомка.
Установите для значений disabledrawselection, 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;
Onfocus Изменен
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 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;
Onpaintтекст
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;
Другие советы
Вы можете попробовать включить / добавить Объединение расширений в Варианты дерева.Неправильные варианты.Это позволяет свободно перемещаться по столбцам с помощью клавиш курсора, но VT по-прежнему отменяет выбор столбца при выходе.Но я уверен, что это можно "исправить" с помощью пользовательского рисования и запоминания начального узла и столбца.
Еще один совет - посмотрите на onStateChange ( Изменение состояния ) событие, может быть, вы сможете использовать
procedure TSomeForm.VTreeStateChange(Sender: TBaseVirtualTree; Enter,Leave: TVirtualTreeStates);
begin
if tsDrawSelecting in Enter then
begin
// Save position
end;
end;