我认为我的问题很清楚,但我解释得更多。简单地说,当我们在 RenderText 过程中使用 AntiAlias 时,TextWidth 函数中得到的值是不正确的。我该怎么做才能获得正确的文本宽度?
问问题
1859 次
2 回答
4
你可以在自己的代码中寻找算法。他们还必须计算它。无论如何,这就是我的做法。
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;
于 2010-12-20T20:36:48.887 回答
1
您还可以使用 Windows API 函数GetTextExtentPoint32 做一些谷歌查找 Delphi 上的示例
于 2010-12-21T00:14:19.047 回答