TDirect2DCanvas 提供了两种输出文本的方法:TextOut()、TextRect(),因太过高级,基本没有实用价值。
TDirect2DCanvas.RenderTarget 有三种输出文本的方法:DrawText()、DrawTextLayout()、DrawGlyphRun()。
DrawText() 对文本格式的控制能力类似 TMemo;
DrawTextLayout() 对文本格式的控制能力类似 TRichEdit;
DrawGlyphRun() 可以完成更复杂的字形输出。
另外 DirectWrite 还有其它文本输出方法,如回调 IDWriteTextRenderer 接口。
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() 个别参数的效果: