delphi – 以公制单位精确计算文本宽度

概述我想以给定字符串的公制单位计算确切的文本宽度.我的伪代码看起来像这样： Bitmap.Canvas.Assign(Font);PixelWidth := Bitmap.Canvas.TextWidth(Font)MetricWidth := PtToMM * (PixelWidth * 72.0 / GetScreenDPI); PtToMM是一个常量,定义为0.352777778.对于某些字 我想以给定字符串的公制单位计算确切的文本宽度.我的伪代码看起来像这样：

Bitmap.Canvas.Assign(Font);PixelWIDth := Bitmap.Canvas.TextWIDth(Font)MetricWIDth := PtToMM * (PixelWIDth * 72.0 / GetScreenDPI);

PtToMM是一个常量,定义为0.352777778.对于某些字体和字体大小,这是非常准确的,但对于其他字体和字体大小,它太小或太大.我尝试了很多其他可能性,如GetCharWIDth32和GetCharaBCWIDths,也使用映射模式MM_LOMETRIC,但我无法让它工作.这个问题困扰着我,所以请任何人帮忙,告诉我哪里错了.非常感谢你！

编辑我检查了一个字符串：公制宽度计算为4.17厘米,实际打印输出的宽度(在纸上测量)是4.4厘米(字体Times New Roman,大小12).

解决方法 我没有广泛测试它,但它似乎给出了正确的结果.结果是文本的宽度以毫米为单位.此功能不支持worDWrapPing和其他特殊注意事项.

另请注意,使用打印机时,不正确的打印注册可以“拉伸”文本.

此外,请注意,对于打印机,例如,将打印分辨率从300 ppp更改为1200 ppp也会更改结果.

uses  ConvUtils,stdConvs ;function CalcrequiredTextWIDth(aDC : HDC; aFont : TFont; const asText: string): Double;var vCanvas : TCanvas;    iPixelsWIDth : Integer;    dInchWIDth : Double;    iFontSize : Integer;begin  vCanvas := TCanvas.Create;  try    vCanvas.Handle := aDC;    vCanvas.Font.Assign(aFont);    iFontSize := vCanvas.Font.Size;    vCanvas.Font.PixelsPerInch := GetDeviceCaps(aDC,LOGPIXELSY);    vCanvas.Font.Size := iFontSize;    iPixelsWIDth := vCanvas.TextExtent(asText).cx;    dInchWIDth := iPixelsWIDth / GetDeviceCaps(vCanvas.Handle,LOGPIXELSX);    Result := Convert(dInchWIDth,duInches,duMicrons);  finally    vCanvas.Free;  end;end;

总结

以上是内存溢出为你收集整理的delphi – 以公制单位精确计算文本宽度全部内容，希望文章能够帮你解决delphi – 以公制单位精确计算文本宽度所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。