delphi - 使用 Delphi 在 Canvas 上每行一个字符绘制居中和中间文本

Question

我需要在框的中心绘制文本。文本必须水平对齐，每行一个字符。

我附上了一个带有字符串“class”的示例。

我可以绘制单个字符，但我希望有一种更快的方法。

Answer 1

procedure DrawVert(Canvas: TCanvas; Box: TRect; const Text: string);
var
  i: Integer;
  s: string;
  R: TRect;
begin
  s := '';
  for i := 1 to Length(Text) do
    s := s + Text[i] + ' ';
  R := Rect(0, 0, 1, 0);
  Canvas.TextRect(R, s, [tfCalcRect, tfNoClip, tfWordBreak]);
  Box.Left := Box.Left + (Box.Right - Box.Left - R.Right) div 2;
  Box.Top := Box.Top + (Box.Bottom - Box.Top - R.Bottom) div 2;
  Box.Right := Box.Left + R.Right;
  Box.Bottom := Box.Top + R.Bottom;
  Canvas.TextRect(Box, s, [tfWordBreak]);
end;

为了测试，让 PaintBox1 是我们要绘画的盒子

procedure TForm1.Button1Click(Sender: TObject);
begin
  DrawVert(PaintBox1.Canvas, PaintBox1.Canvas.ClipRect, 'CLASS TEST');
end;