delphi - 如何获得String的像素宽度和高度？

Question

在输出之前，如何在Delphi 7中使用GetTextExtentPoint32W来获取宽字符串的像素宽度和高度？

Answer 1

你可以做

procedure TForm1.FormPaint(Sender: TObject);
var
  extent: TSize;
  S: WideString;
begin
  S := 'This is the integral sign: '#$222b;
  if not GetTextExtentPoint32W(Canvas.Handle, PWideChar(S), length(S), extent) then
    RaiseLastOSError;
  TextOutW(Canvas.Handle, (Width - extent.cx) div 2, (Height - extent.cy) div 2,
    PWideChar(S), length(S));
end;

GetTextExtentPoint32W将宽度和高度分别放在 extent.cx和 extent.cy中。

然后，最后一行将使用 TextOutW在工作区中水平和垂直居中绘制字符串。