Delphi 6：如何通过TextOut()方法显示大尺寸高质量文本？

例如,

var
  bm: TBitmap;

procedure InitOffscreenBitmap;
begin
  bm := TBitmap.Create;
  bm.SetSize(bmWidth,bmHeight);
end;

procedure DrawBitmap;
begin
  // Draw on bm
end;

procedure Swap;
begin
  BitBlt(Canvas.Handle,X,Y,bmWidth,bmHeight,bm.Canvas.Handle,SRCCOPY)
end;

如果您使用的是现代版本的Windows(例如Vista)或启用了ClearType的Windows XP(出于某些非常奇怪的原因,默认情况下禁用它),则文本应该是平滑的.只需确保使用现代字体.他们中的大多数都会这样做,但是使用ClearType无法平滑MS Sans Serif这样的旧字体.

此外,当然,bm必须与表单具有相同的背景颜色,因为在bm上绘制文本时会发生alpha混合.因此,如果表单是clRed(出于某些不正当的原因),您需要这样做

bm.Canvas.Brush.Color := clRed;
bm.Canvas.Brush.Style := bsSolid;
bm.FillRect(Rect(0,bmHeight));

之前

bm.TextOut(...)

我们正在谈论同样的事情：这不是很顺利吗？

procedure TForm3.FormPaint(Sender: TObject);
begin
  Canvas.Font.Name := 'Segoe UI';
  Canvas.Font.Height := 64;
  Canvas.TextOut(10,10,'This is an example.');
end;

Sample Text Output http://privat.rejbrand.se/sampletext.png(High-Res)