delphi - 如何在 Canvas 上左对齐绘制文本？

Question

我想在 Canvas 上绘制一个矩形，并用文本填充它。我尝试使用下面的代码，但只有右对齐才能成功。

有人可以帮助我吗？如何在 Canvas 上左对齐绘制文本？

{Header Table}
SetStyleHuruf(FCanvas, fsBold, 12, clWhite, 'Maiandra GD');
Brush.Color := color;
Rectangle(cx+50, cy-50, cx+370, cy - 30);
TextOut(round(cx + 215), cy-50, Name);`

Answer 1

看TextOut的定义:

procedure TextOut(X, Y: Integer; const Text: string); override;

帮助中的描述说:

Writes a string on the canvas, starting at the point (X,Y), ...

因此，修改代码以在更接近矩形左边框而不是右边框的 X 坐标处绘制文本。例如:

TextOut(round(cx + 215), cy-50, Name);

输出距离矩形左边框 5 个像素的文本

TextOut(round(cx + 55), cy-50, Name);

顺便说一句，假设cx是一个整数，你不需要使用Round()