如何在 Graphics32 中检索 RenderText 的确切文本宽度答案

【问题标题】：how to retrieve exact text width for RenderText in Graphics32如何在 Graphics32 中检索 RenderText 的确切文本宽度
【发布时间】：2011-05-28 10:19:39
【问题描述】：

我认为我的问题很清楚，但我解释得更多。简单地说，当我们在 RenderText 过程中使用 AntiAlias 时，TextWidth 函数中得到的值是不正确的。如何获得正确的文本宽度？

【问题讨论】：

问题解决了吗？
是的。使用您提供的代码完美完成。再次感谢你！！我真的需要这个

标签： delphi text width graphics32

【解决方案1】：

您可以在自己的代码中查找算法。他们还必须计算它。不管怎样，我就是这样做的。

function TGR32Canvas.TextWidth(const Text: string): Integer;
var
  TempFont: TFont;
  TempWidth: Integer;
begin
  if Text <> '' then
  begin
    TempFont := TFont.Create;
    try
      TempFont.Assign(Font);
      TempFont.Size := Font.Size shl AA_MODE;
      TempWidth := GetTextWidth(Text, TempFont);
    finally
      TempFont.Free;
    end;
  end
  else
    TempWidth := 0;

  TempWidth := (TempWidth shr AA_MODE + 1) shl AA_MODE;
  Result := TempWidth shr AA_MODE;
end;

GetTextWidth 函数很简单。你可以做不同的事情。

function GetTextWidth(const Text: string; const Font: TFont): Integer;
var
  Canvas: TCanvas;
begin
  Canvas := TCanvas.Create;
  try
    Canvas.Handle := GetDC(0);
    try
      Canvas.Font.Assign(Font);
      Result := Canvas.TextWidth(Text);
    finally
      ReleaseDC(0, Canvas.Handle);
    end;
  finally
    Canvas.Free;
  end;
end;

【讨论】：

你是从哪个单位得到的？ GetTextWidth 函数不明。
忘记展示了。我编辑了答案。它可能可以做得更优雅，但想法是一样的，并且有效。
没问题，很高兴能帮上忙 :)

【解决方案2】：

您也可以使用 Windows API 函数GetTextExtentPoint32 做一些谷歌寻找德尔福的例子

【讨论】：

GR32 使用自己的绘图技术，所以我认为使用 API 不会给你准确的结果。