VirtualStringTree - многострочные узлы и центральный текст по вертикали - PullRequest
Новая
       22

VirtualStringTree - многострочные узлы и центральный текст по вертикали

2 голосов
/ 10 августа 2011

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

Я пытался использовать OnBeforeCellPaint (используя TargetCanvas.TextOut()), но это не рисует текст вообще. По умолчанию текст многострочного узла всегда отображается в верхней части узла.

(для не многострочных узлов текст закрашивается по центру).

Ответы [ 2 ]

3 голосов
/ 10 августа 2011

Попробуйте использовать DrawText (..)

. Вы можете добавить выравнивание текста, например, слева, справа, сверху, по центру и т. Д.

используйте Cellrect для Rect.

в вашем случае я думаю, что это работает на OnDrawtext, установите DefaultText: = False;

2 голосов
/ 10 августа 2011

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

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;

Метод EllipseString () очень похож на VirtualTrees.ShortenString () в VirtualTrees.pas.

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

...