VirtualStringTree - 多行节点和垂直居中文本

Question

如果 VirtualStringTree 中的节点是多行的（与 Node.States 中的 Multiline 相比），那么如何使该节点中所有列（多行列除外）的文本垂直居中？

我尝试使用 OnBeforeCellPaint （使用 TargetCanvas.TextOut()），但这根本不绘制文本。默认情况下，多行节点的文本始终绘制在节点的顶部。

（对于非多行节点，文本垂直居中绘制）。

Answer 1

尝试使用 DrawText(..)，

您可以在其上添加文本对齐方式，例如左、右、上、中等。

使用 Cellrect 作为矩形。

在你的情况下，我认为它可以在 OnDrawtext 上使用，设置 DefaultText := False;

Answer 2

感谢 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.pas 中的 VirtualTrees.ShortenString() 非常相似。

唯一的问题是无法在其他列上绘制多行文本。您必须指定多行列集，因此无法绘制多行和垂直居中。