Центрирование текста в узлах VirtualStringTree

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

- это распространенная задача, с которой сталкиваются разработчики, работающие с компонентом VirtualStringTree в Delphi. В этой статье мы рассмотрим, как центрировать текст вертикально во всех столбцах узла (кроме многострочного столбца), когда узел является многострочным (vsMultiline в Node.States).

По умолчанию текст для многострочного узла всегда рисуется вверху узла, в отличие от не многострочных узлов, где текст рисуется вертикально по центру. Один из способов attempting решить эту проблему - использовать событие OnBeforeCellPaint и TargetCanvas.TextOut(), но этот подход не дает результатов.

После изучения различных подходов было найдено решение, которое работает для большинства случаев. Оно основано на использовании DrawText() для рисования текста в ячейке и добавлении параметра выравнивания текста, такого как лево, право, верх, середина и т.д. В нашем случае мы хотим выровнять текст по вертикали по центру, поэтому мы используем DT_VCENTER флаг.

Ниже приведен пример кода на Object Pascal (Delphi), который демонстрирует, как это можно реализовать в методе OnDrawText:

procedure TForm1.TreeDrawText(
  Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
  Column: TColumnIndex; const Text: WideString; const CellRect: TRect;
  var DefaultDraw: Boolean);
var
  DrawFormat : Cardinal;
  R : TRect;
  s : WideString;
  NodeWidth, EllipsisWidth : Integer;
  Size: TSize;
begin
  if not (Column in [yourmultilinecolumns]) then
  begin
    DefaultDraw := False;
    R := CellRect;
    GetTextExtentPoint32W(TargetCanvas.Handle, PWideChar(Text), Length(Text), Size);
    NodeWidth := Size.cx + 2 * Tree.TextMargin;
    GetTextExtentPoint32W(TargetCanvas.Handle, '...', 3, Size);
    EllipsisWidth := Size.cx;
    if ((NodeWidth - 2 * Tree.TextMargin) > R.Right - R.Left) then
      s := EllipseString(TargetCanvas.Handle, Text, R.Right - R.Left, EllipsisWidth)
    else
      s := Text;
    DrawFormat := DT_NOPREFIX or DT_VCENTER or DT_SINGLELINE;
    Windows.DrawTextW(TargetCanvas.Handle, PWideChar(s), Length(s), R, DrawFormat);
  end;
end;

В этом примере мы сначала проверяем, не является ли текущий столбец многострочным. Если нет, то мы устанавливаем DefaultDraw в False и получаем размер текста и узла. Затем мы проверяем, помещается ли текст в узел, и если нет, то обрезаем его с помощью EllipseString(). Наконец, мы рисуем текст в ячейке с помощью DrawTextW(), устанавливая флаг DT_VCENTER для вертикального выравнивания по центру.

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

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

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

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

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

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

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