Оптимизация работы TTreeView с автопрокруткой при перетаскивании узлов

Delphi , Компоненты и Классы , TTreeView

Когда в TTreeView содержится большое количество узлов, особенно если все они развернуты, может возникнуть проблема, когда при перетаскивании узла, расположенного в нижней части компонента, становится невозможно увидеть верхнюю его часть. В таких случаях пользователь не может физически переместить узел в верхнюю часть TTreeView, так как не видит эту область. Решением этой проблемы может служить автоматическая прокрутка компонента во время перетаскивания узла.

Решение проблемы

Для реализации автоматической прокрутки TTreeView во время перетаскивания узлов можно использовать следующий подход. Создадим компонент TAutoScrollTimer, который будет отслеживать положение курсора мыши и при необходимости инициировать прокрутку.

type
  TAutoScrollTimer = class(TTimer)
  private
    FControl: TWinControl;
    FScrollCount: Integer;
    procedure InitialiseTimer;
    procedure Timer(Sender: TObject);
  public
    constructor Create(Control: TWinControl);
  end;

{ Конструктор TAutoScrollTimer }
constructor TAutoScrollTimer.Create(Control: TWinControl);
begin
  inherited Create(Control);
  FControl := Control;
  InitialiseTimer;
end;

procedure TAutoScrollTimer.InitialiseTimer;
begin
  FScrollCount := 0;
  Interval := 250;
  Enabled := True;
  OnTimer := Timer;
end;

procedure TAutoScrollTimer.Timer(Sender: TObject);
var
  WindowEdgeTolerance: Integer;
  Pos: TPoint;
begin
  WindowEdgeTolerance := Min(25, FControl.Height div 4);
  GetCursorPos(Pos);
  Pos := FControl.ScreenToClient(Pos);
  if not InRange(Pos.X, 0, FControl.Width) then
    Exit;
  if Pos.Y < WindowEdgeTolerance then begin
    SendMessage(FControl.Handle, WM_VSCROLL, SB_LINEUP, 0);
  end else if Pos.Y > FControl.Height - WindowEdgeTolerance then begin
    SendMessage(FControl.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
  end else begin
    InitialiseTimer;
    Exit;
  end;
  // Дополнительный код для управления скоростью прокрутки
end;

Чтобы использовать TAutoScrollTimer, необходимо добавить обработчик события OnStartDrag для TTreeView и создать экземпляр TAutoScrollTimer в этом обработчике:

procedure TMyForm.TreeViewStartDrag(Sender: TObject; var DragObject: TDragObject);
begin
  TAutoScrollTimer.Create(Sender as TWinControl);
end;

Альтернативный подход

Существует альтернативный подход, который заключается в изменении логики перетаскивания узлов таким образом, чтобы при перемещении курсора в определенную область компонента, выбранный узел автоматически перемещался в эту область, а TTreeView прокручивался соответственно.

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    // ...
    procedure TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    // ...
  end;

procedure TForm1.TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
  Pt: TPoint;
  DropNode: TTreeNode;
begin
  Accept := Source is TTreeView;
  if Accept then
    with TTreeView(Source) do
    begin
      if Sender <> Source then
        Pt := ScreenToClient(Mouse.CursorPos)
      else
        Pt := Point(X, Y);
      if Pt.Y < FNodeHeight then
        DropNode := Selected.GetPrevVisible
      else if Pt.Y > (ClientHeight - FNodeHeight) then
        DropNode := Selected.GetNextVisible
      else
        DropNode := GetNodeAt(Pt.X, Pt.Y);
      if DropNode <> nil then
        Selected := DropNode;
      // При необходимости здесь можно добавить код для прокрутки
    end;
end;

Этот подход требует более тонкой настройки и может потребовать дополнительных действий для оптимизации пользовательского опыта, например, включения задержки прокрутки или управления скоростью прокрутки в зависимости от движения курсора.

Заключение

Автоматическая прокрутка TTreeView при перетаскивании узлов может значительно улучшить пользовательский опыт, особенно когда в компоненте содержится большое количество узлов. Существует несколько подходов к реализации такой прокрутки, и выбор между ними зависит от конкретных требований и предпочтений разработчика.

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

Оптимизация работы TTreeView с автопрокруткой во время перетаскивания узлов для улучшения взаимодействия пользователя с компонентом, содержащим большое количество развернутых узлов.

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

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

:: Главная :: TTreeView ::