哪位老大知道字体大小和显示所占像素的换算关系?

heifei 2001-07-10 01:47:26
请教!
...全文
478 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
lpf78 2001-08-29
  • 打赏
  • 举报
回复
错!!!!大错特错!!!!!!!竟然给分了!!!!!!!
font的大小 以 磅记:1磅=1/72英寸;
font所占像素数:=round(font.pixelsPerInch*font.size/72);
Happyledian 2001-07-10
  • 打赏
  • 举报
回复
Var
TextStr :PChar;
TextWidth:TPoint;
...
Begin
...
TextStr := PChar('好');
GetTextExtentPoint(Canvas.Handle, TextStr,StrLen(TextStr), TSize(TextWidth));
ShowMessage('宽度:'+IntToStr(TextWidth.X)+#13#10+_
'高度:'+IntToStr(TextWidth.Y));
...
End;
Apollo47 2001-07-10
  • 打赏
  • 举报
回复
Canvas.Font.PixelsPerInch

BCB 2001-07-10
  • 打赏
  • 举报
回复
对于同一个字体,不同的字符所占象素可能不一样
Fairton 2001-07-10
  • 打赏
  • 举报
回复
Function GetTextWidth(ACanvas:TCanvas):Integer;
Begin
Result:=ACanvas.TextWidth('W');
End;

Function GetTextHeight(ACanvas:TCanvas):Integer;
Bein
Result:=ACanvas.TextHeight('W');
End;
Fairton 2001-07-10
  • 打赏
  • 举报
回复
Function GetTextWidth(ACanvas:TCanvas);
Begin
Result:=ACanvas.TextWidth('W');
End;

Function GetTextHeight(ACanvas:TCanvas);
Bein
Result:=ACanvas.TextHeight('W');
End;
heifei 2001-07-10
  • 打赏
  • 举报
回复
up
enlightenment 2001-07-10
  • 打赏
  • 举报
回复
关注!

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧