WinAPI: GetCharWidth 和 GetCharWidth32 - 获取字符宽度
WinAPI: GetCharWidth 和 GetCharWidth32 - 获取字符宽度
涂孟超 发表于3年前
WinAPI: GetCharWidth 和 GetCharWidth32 - 获取字符宽度
  • 发表于 3年前
  • 阅读 1
  • 收藏 0
  • 点赞 0
  • 评论 0

腾讯云 十分钟定制你的第一个小程序>>>   

//声明:
GetCharWidth(
  DC: HDC;                   {设备环境句柄}
  FirstChar, LastChar: UINT; {范围内的第一个和最后一个字符值}
  const Widths               {接受每个字符宽度值的整型数组}
): BOOL;

GetCharWidth32(
  DC: HDC;                   {设备环境句柄}
  FirstChar, LastChar: UINT; {范围内的第一个和最后一个字符值}
  const Widths               {接受每个字符宽度值的整型数组}
): BOOL;

{GetCharWidth32 专用于 Win32 系统, 在这里和 GetCharWidth 没有区别}

 
 
 
 
 

 

 

  
//获取当前字体所有大写字母的宽度(用 Memo 显示) procedure TForm1.FormCreate(Sender: TObject); var arr: array[0..25] of Integer; i: Integer; begin GetCharWidth(Canvas.Handle, Ord('A'), Ord('Z'), arr); //GetCharWidth32(Canvas.Handle, Ord('A'), Ord('Z'), arr); {也可} Memo1.Clear; for i := 0 to 25 do begin Memo1.Lines.Add(Char(Ord('A')+i) + #9 + IntToStr(arr[i])); end; end;
//效果图:

共有 人打赏支持
粉丝 13
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: