TDirect2DCanvas 的 TextOut()、TextRect() 都是简单调用了 TDirect2DCanvas.RenderTarget.DrawTextLayout()， TDirect2DCanvas.RenderTarget.DrawText() 在 Direct2D.pas 中并没有出现。 使用 TDirect2DCanvas.RenderTarget.DrawText() 主要就是通过 IDWriteTextFormat 设置文本格式。
procedure DrawText( &string: PWCHAR; //文本 stringLength: UINT; //文本长度 const textFormat: IDWriteTextFormat; //文本格式 const layoutRect: D2D1_RECT_F; //布局矩形 const defaultForegroundBrush: ID2D1Brush; //前景画刷 options: TD2D1DrawTextOptions; //见下(参数6)；默认值 D2D1_DRAW_TEXT_OPTIONS_NONE; measuringMode: TDWriteMeasuringMode //见下(参数7)；默认值 DWRITE_MEASURING_MODE_NATURAL); stdcall;{参数6}options: TD2D1DrawTextOptions {指定是禁用文本对齐还是启用剪切到布局矩形，可使用按位组合值}D2D1_DRAW_TEXT_OPTIONS_NO_SNAP = 1; //文本不垂直对齐到像素边界。建议对要进行动画处理的文本采用此设置。D2D1_DRAW_TEXT_OPTIONS_CLIP = 2; //文本剪切到布局矩形。D2D1_DRAW_TEXT_OPTIONS_NONE = 0; //文本垂直对齐到像素边界，但是不剪切到布局矩形。{参数7}measuringMode: TDWriteMeasuringMode {指示用于文本布局的度量方法}DWRITE_MEASURING_MODE_NATURAL = 0; //指定使用字符理想度量(其值与当前显示分辨率无关)对文本进行度量。DWRITE_MEASURING_MODE_GDI_CLASSIC = 1; //指定使用与字符显示兼容的度量(其值针对当前显示分辨率进行了优化)对文本进行度量。DWRITE_MEASURING_MODE_GDI_NATURAL = 2; //指定使用与 GDI 文本度量(使用通过 CLEARTYPE_NATURAL_QUALITY 创建的字体)相同的字符显示度量对文本进行度量。{IDWriteTextFormat 接口的方法}IDWriteTextFormat.GetFlowDirection //获取文本行的排列方向。IDWriteTextFormat.GetFontCollection //获取当前字体集合。IDWriteTextFormat.GetFontFamilyName //获取字体系列名称的副本。IDWriteTextFormat.GetFontFamilyNameLength //获取字体系列名称的长度。IDWriteTextFormat.GetFontSize //获取字体高度(以 em 单位)。IDWriteTextFormat.GetFontStretch //获取文本的字体拉伸方式。IDWriteTextFormat.GetFontStyle //获取文本的字体样式IDWriteTextFormat.GetFontWeight //获取文本的字体粗细IDWriteTextFormat.GetIncrementalTabStop //获取增量制表位的位置IDWriteTextFormat.GetLineSpacing //获取多行文本段落的行距调整设置IDWriteTextFormat.GetLocaleName //获取文本中区域设置名称的副本IDWriteTextFormat.GetLocaleNameLength //获取文本中区域设置名称的长度IDWriteTextFormat.GetParagraphAlignment //获取相对于布局框的顶部边缘和底部边缘的段落对齐选项IDWriteTextFormat.GetReadingDirection //获取段落中文本的当前读取方向IDWriteTextFormat.GetTextAlignment //获取相对于布局框的前端边缘和后端边缘的文本对齐选项IDWriteTextFormat.GetTrimming //获取溢出布局框的文本的剪裁选项IDWriteTextFormat.GetWordWrapping //获取自动换行选项IDWriteTextFormat.SetFlowDirection //设置段落排列方向IDWriteTextFormat.SetIncrementalTabStop //设置两个相邻制表位之间的固定距离IDWriteTextFormat.SetLineSpacing //设置行距IDWriteTextFormat.SetParagraphAlignment //设置相对于布局框的顶部边缘和底部边缘的段落对齐选项IDWriteTextFormat.SetReadingDirection //设置段落读取方向IDWriteTextFormat.SetTextAlignment //设置段落中文本的对齐选项(相对于布局框的前端边缘和后端边缘)IDWriteTextFormat.SetTrimming //设置溢出布局宽度的文本的剪裁选项IDWriteTextFormat.SetWordWrapping //设置自动换行选项 测试代码：
uses Direct2D, D2D1;procedure TForm1.FormPaint(Sender: TObject);var cvs: TDirect2DCanvas; str: string; iTextFormat: IDWriteTextFormat; iSolidColorBrush: ID2D1SolidColorBrush;begin str := 'Hello World using DirectWrite!'; {建立 IDWriteTextFormat 对象} DWriteFactory.CreateTextFormat( 'Arial Black', //字体名称 nil, //字体集合指针, nil 表示使用系统字体集合 DWRITE_FONT_WEIGHT_NORMAL, //字体粗细 DWRITE_FONT_STYLE_NORMAL, //字体样式 DWRITE_FONT_STRETCH_NORMAL, //字体拉伸 48.0, //字体逻辑大小, 单位 DIP(1/96英寸) 'en-us', //区域名称, 如 zh-CN iTextFormat //输出 IDWriteTextFormat 接口对象 ); iTextFormat.SetTextAlignment(DWRITE_TEXT_ALIGNMENT_CENTER); //水平居中 iTextFormat.SetParagraphAlignment(DWRITE_PARAGRAPH_ALIGNMENT_CENTER); //段落居中 cvs := TDirect2DCanvas.Create(Canvas, ClientRect); cvs.RenderTarget.CreateSolidColorBrush(D2D1ColorF(clRed), nil, iSolidColorBrush); cvs.RenderTarget.BeginDraw; cvs.RenderTarget.Clear(D2D1ColorF(clWhite)); cvs.RenderTarget.DrawText(PWideChar(str), Length(str), iTextFormat, ClientRect, iSolidColorBrush); cvs.RenderTarget.EndDraw(); cvs.Free;end;procedure TForm1.FormResize(Sender: TObject);begin Repaint;end; 效果图：
调整 DWriteFactory.CreateTextFormat() 个别参数的效果： 
