当前位置：文江博客话题详情

如何获取String的像素宽度和高度？

发布于 2024-11-04 06:10:08 字数 158 浏览 0 评论 0原文

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

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

花开雨落又逢春i 2024-11-11 06:10:09

您可以执行

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 在客户区域水平和垂直居中绘制字符串。

You can do

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;

The GetTextExtentPoint32W will place the width and height in extent.cx and extent.cy, respectively.

The last line will then use TextOutW to draw the string centered both horizontally and vertically on the client area.

回复收藏 0 原文

~没有更多了~