8

我编写了一个小应用程序，它在内存图像上绘制文本并将它们写入文件。基本的 Delphi 代码类似于：

var
   Canvas : tCanvas;
   Text : WideString;
   TextRect : tRect;
begin
   Canvas := Bitmap.Canvas;
   Canvas.Brush.Color := clBlack;
   Canvas.Pen.Color := clBlack;
   Canvas.Font.Name := 'Courier New';
   Canvas.Font.Size := 11;
   Canvas.Font.Color := clWhite;

   TextRect := ...;  // calculate text position
   DrawTextW(Canvas.Handle, PWideChar(Text), Length(Text), TextRect, DT_NOCLIP or DT_NOPREFIX or DT_SINGLELINE or DT_CENTER or DT_VCENTER);
end;

不幸的是，根据运行应用程序的计算机的 ClearType 设置，绘制的文本会有所不同。无论本地 ClearType 设置如何，我都希望在我的应用程序中获得一致的输出（无论如何，输出都不会直接显示到屏幕上）。是否有一些 Win32 API 选项可以覆盖本地 ClearType 设置？

4

2 回答 2

12

文本的字体平滑由您在设备中选择的字体决定。要了解原始 Win32 界面提供的选项，请阅读LOGFONT文档。

在 Delphi 中，底层的 Win32 API 字体 API 由TFont类封装。与这个问题相关的性质是Quality。默认值是fqDefault使用系统范围的字体平滑设置。您想设置Quality为fqAntialiased或fqNonAntialiased。

旧版本的 Delphi 没有这个属性。在这种情况下，您将需要调用CreateFontIndirect以创建HFONT具有所需质量设置的。您可以在开始绘制文本之前立即调用此函数：

procedure SetFontQuality(Font: TFont; Quality: Byte);
var
  LogFont: TLogFont;
begin
  if GetObject(Font.Handle, SizeOf(TLogFont), @LogFont) = 0 then
    RaiseLastOSError;
  LogFont.lfQuality := Quality;
  Font.Handle := CreateFontIndirect(LogFont);
end;

通过NONANTIALIASED_QUALITY或ANTIALIASED_QUALITY根据您的需要。

于 2013-02-25T15:56:14.007 回答
6

我相信您可以创建一种不使用任何 ClearType 的新逻辑字体。确保将NONANTIALIASED_QUALITY标志作为fdwQuality参数传递CreateFont：

字体从不抗锯齿，即不进行字体平滑。

于 2013-02-25T15:55:10.510 回答