Изменение текста ячейки виртуального узла в VirtualTreeView без перерисовки всего дерева

Delphi , Синтаксис , Деревья

может быть выполнено путем обновления только одного узла, а не всего дерева. В этом руководстве мы рассмотрим, как это сделать с помощью VirtualTreeView в Delphi.

VirtualTreeView - это компонент, который позволяет отображать большие иерархические структуры данных в виде дерева. Он использует виртуальный метод для отображения только тех узлов, которые находятся в области просмотра, что делает его быстрым и эффективным для работы с большими данными.

При изменении текста ячейки виртуального узла может потребоваться перерисовка всего дерева, чтобы отразить изменения. Однако это может быть медленным и неэффективным, особенно если дерево содержит много узлов. В этом случае можно обновить только один узел, не перерисовывая все дерево.

Одним из способов обновить только один узел является использование функции InvalidateNode компонента VirtualTreeView. Эта функция Forces node to repaint, что запускает виртуальную цепочку событий, в том числе событие OnGetText, где можно получить новые значения в записи данных.

Вот пример кода, который демонстрирует, как это сделать:

type
  PTreeData = ^TTreeData;
  TTreeData = record
    Title: string;
    Count: Integer;
  end;

procedure TForm1.FormCreate(Sender: TObject);
var
  TreeData: PTreeData;
  TreeNode: PVirtualNode;
begin
  // this is just for memory leaks report
  ReportMemoryLeaksOnShutdown := True;
  // initialize data size for our data record
  VirtualTree.NodeDataSize := SizeOf(TTreeData);
  // add one node and store it to the TreeNode variable
  TreeNode := VirtualTree.AddChild(nil);
  // get the pointer to just created node data record
  TreeData := VirtualTree.GetNodeData(TreeNode);
  // and assign some values to that data record
  TreeData.Title := 'Count: ';
  TreeData.Count := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  TreeData: PTreeData;
  TreeNode: PVirtualNode;
begin
  // now I take the the top node just as an example
  TreeNode := VirtualTree.TopNode;
  // get the pointer to its data record
  TreeData := VirtualTree.GetNodeData(TreeNode);
  // increase the value in data record for this node
  TreeData.Count := TreeData.Count + 1;
  // and force the node to repaint, what will except
  // other events trigger also the OnGetText one
  VirtualTree.InvalidateNode(TreeNode);
end;

procedure TForm1.VirtualTreeGetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: string);
var
  TreeData: PTreeData;
begin
  // here I'll get the pointer to data of the currently refreshed cell's node
  TreeData := VirtualTree.GetNodeData(Node);
  // and return the caption of the cell
  CellText := TreeData.Title + IntToStr(TreeData.Count);
end;

procedure TForm1.VirtualTreeFreeNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode);
var
  TreeData: PTreeData;
begin
  // this is here because of VT memory leaks, so get the pointer to data
  TreeData := Sender.GetNodeData(Node);
  // and finalize them
  Finalize(TreeData^);
end;

В этом примере мы создаем форму с одним компонентом VirtualTreeView. В обработчике события FormCreate мы инициализируем размер данных для нашей записи данных и добавляем один узел. В обработчике события Button1Click мы берем верхний узел (в качестве примера) и получаем указатель на его запись данных. Мы увеличиваем значение в записи данных для этого узла и вызываем InvalidateNode для этого узла, что запускает виртуальную цепочку событий, в том числе событие OnGetText, где мы получаем новые значения в записи данных.

Таким образом, мы можем изменить текст ячейки виртуального узла без перерисовки всего дерева, просто обновив один узел и вызвав InvalidateNode. Это делает VirtualTreeView быстрым и эффективным компонентом для работы с большими данными.

Создано по материалам из источника по ссылке.

В этом руководстве показано, как изменить текст ячейки виртуального узла в VirtualTreeView без перерисовки всего дерева, используя функцию InvalidateNode для обновления только одного узла.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Деревья ::