Можно ли выбрать несколько столбцов в Virtual Treeview? - PullRequest
Новая
       12

Можно ли выбрать несколько столбцов в Virtual Treeview?

6 голосов
/ 29 января 2009

Мне нужно добавить функциональность, чтобы скопировать прямоугольный выбор узлов и столбцов, но я не могу найти способ фактически выбрать несколько столбцов в виртуальном древовидном представлении (кроме toFullRowSelect).

Я просто что-то упустил? А если нет, то есть ли потомок с поддержкой выбора из нескольких столбцов в виде сетки?

Ответы [ 3 ]

6 голосов
/ 29 января 2009

Итак, после некоторого тестирования я придумал следующее, спасибо 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;
1 голос
/ 30 января 2009

Еще один совет - посмотрите на OnStateChange событие, возможно, вы можете использовать 

procedure TSomeForm.VTreeStateChange(Sender: TBaseVirtualTree; Enter,Leave: TVirtualTreeStates);
begin
  if tsDrawSelecting in Enter then
  begin
    // Save position
  end;
end;
1 голос
/ 29 января 2009

Вы можете попробовать включить / добавить toGridExtensions в TreeOptions.MiscOptions . Он позволяет свободно перемещаться в столбцах с помощью клавиш курсора, но VT по-прежнему отменяет выбор столбца при выходе. Но я уверен, что это можно «исправить» путем пользовательского рисования и запоминания начального узла и столбца.

...