如何在Delphi中更改RichEdit的字体平滑（抗锯齿）质量？

Question

我有一个Delphi 7应用程序，在其中将文本绘制到TBitmap 。 我需要能够控制文本的抗锯齿质量。 为此，我正在使用以下过程：

procedure SetFontQuality(Font: TFont; Quality: Byte);
var
  lf: TLogFont;
begin
  GetObject(Font.Handle, SizeOf(TLogFont), @lf);
  lf.lfQuality := Quality;
  Font.Handle := CreateFontIndirect(lf);
end;

我这样称呼我的TBitmap ： SetFontQuality(MyBitmap.Canvas.Font, ANTIALIASED_QUALITY) 。 这里的目标是设置旧的抗锯齿，而不是新的ClearType。 如果我使用DrawText在TBitmap上绘制文本，则此方法很好用。 但是，我需要在上面绘制TRichEdit的文本，因此我正在使用EM_FORMATRANGE 。 但是，无论我使用Windows抗锯齿是什么，都将绘制文本（因此，即使在Windows中启用了ClearType，即使使用ANTIALIASED_QUALITY设置了旧的抗锯齿，它也都是ClearType）。

我想我需要更改TRichEdit的字体质量，因此我对其应用了以下过程： SetFontQuality(MyRichEdit.Font, ANTIALIASED_QUALITY) ，但这并没有改变。

我做了测试的一点点-我尝试应用程序的Font各种控件的属性- TButton ， TMemo ， TEdit ， TLabel 。 它对所有人都像一种魅力。 但是当应用于TRichEdit的Font属性时，抗锯齿不会改变。

因此，我的问题是： 如何更改TRichEdit控件的抗锯齿质量？

Answer 1

Delphi TRichEdit控件是本机Windows丰富编辑控件的松散包装。 Windows丰富的编辑控件基于RTF标准。 对于文本的不同部分，丰富的编辑控件的内容可以具有不同的字体属性。 但是，RTF标准不涵盖抗锯齿。 因此，您不能将抗锯齿设置应用于文本的各个部分。 因此，控件使用系统设置来确定抗锯齿。