Встроенный поиск в VirtualTreeView: как выделить найденные узлы

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

Вопрос о реализации поисковой функции в компоненте VirtualTreeView является актуальным для многих разработчиков, использующих Delphi и Pascal. Особенно важно уметь не только находить узлы, соответствующие заданному критерию, но и визуально выделять их для удобства пользователя. В данной статье мы рассмотрим, как можно подчеркнуть или выделить текст в узлах VirtualTreeView, используя примеры кода на Object Pascal.

Описание проблемы

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

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

Для реализации выделения текста в узлах VirtualTreeView можно воспользоваться обработчиком события OnDrawText. В этом событии мы получаем текст узла, область, в которой он должен быть отображен, а также холст для рисования. Это позволяет нам модифицировать внешний вид текста в соответствии с нашими требованиями.

Подтвержденный ответ

Пример кода для выделения фона текста, если узел содержит искомую подстроку:

procedure TForm1.VirtualTreeDrawText(Sender: TBaseVirtualTree; TargetCanvas: TCanvas;
  Node: PVirtualNode; Column: TColumnIndex; const Text: string; const CellRect: TRect;
  var DefaultDraw: Boolean);
var
  BackMode: Integer;
begin
  // Проверяем, начинается ли текст узла с искомой подстроки
  if StartsText(Sender.SearchBuffer, Text) then
  begin
    // Сохраняем текущий режим заливки
    BackMode := GetBkMode(TargetCanvas.Handle);
    // Устанавливаем цвет заливки
    TargetCanvas.Brush.Color := clYellow;
    // Рисуем залитый прямоугольник под текст
    TargetCanvas.FillRect(Rect(
      CellRect.Left,
      CellRect.Top + 1,
      CellRect.Left + TargetCanvas.TextWidth(Copy(Text, 1, Length(Sender.SearchBuffer))),
      CellRect.Bottom - 1
    ));
    // Восстанавливаем режим заливки
    SetBkMode(TargetCanvas.Handle, BackMode);
  end;
end;

Для подчеркивания текста узла, если он содержит искомую подстроку, можно использовать следующий код:

procedure TForm1.VirtualTreeDrawText(...);
begin
  // Проверяем, начинается ли текст узла с искомой подстроки
  if StartsText(Sender.SearchBuffer, Text) then
  begin
    TargetCanvas.Pen.Color := clRed;
    // Рисуем линию под текстом
    TargetCanvas.MoveTo(CellRect.Left, CellRect.Bottom - 2);
    TargetCanvas.LineTo(
      CellRect.Left + TargetCanvas.TextWidth(Copy(Text, 1, Length(Sender.SearchBuffer))),
      CellRect.Bottom - 2
    );
  end;
end;

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

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

Заключение

В данной статье были представлены примеры кода для выделения текста в узлах VirtualTreeView с помощью изменения фона и подчеркивания. Использование обработчика события OnDrawText позволяет гибко настраивать внешний вид узлов в соответствии с требованиями пользовательского интерфейса.

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

Вопрос связан с реализацией функции поиска и выделения узлов в компоненте VirtualTreeView для языка программирования Delphi, рассматриваются примеры кода на Object Pascal для визуального выделения найденных элементов.

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

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

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