Delphi 10 Seattle中的画布上绘制字符

本文整理自网络，侵删。

 
Delphi 10 Seattle中的画布上绘制字符

使用VCL，可以使用Windows DrawText API在画布上绘制字符。

procedure TForm1.FormPaint(Sender: TObject);
const
  Text = '你好世界';
var
  R: TRect;
begin
  R := TRect.Create(0, 0, 100, 100);
  Self.Canvas.FillRect(R);
  DrawText(Self.Canvas.Handle, PChar(Text), Length(Text), R,
    DT_VCENTER Or DT_SINGLELINE or DT_CENTER);
end;
在FireMonkey中，使用TTextLayout在Canvas上绘制字符。

uses
  FMX.TextLayout;

procedure TForm1.FormPaint(Sender: TObject; Canvas: TCanvas;
  const [Ref] ARect: TRectF);
const
  Text = '你好世界';
var
  Layout: TTextLayout;
begin
  Layout := TTextLayoutManager.DefaultTextLayout.Create;
  try
    Layout.BeginUpdate;
    Layout.TopLeft := TPointF.Create(0, 0);
    Layout.MaxSize := TPointF.Create(Self.Width, Self.Height);
    Layout.Font.Size := 30;
    Layout.Color := TAlphaColorRec.Brown;
    Layout.WordWrap := False;
    Layout.HorizontalAlign := TTextAlign.Center;
    Layout.VerticalAlign := TTextAlign.Center;
    Layout.Text := Text;
    Layout.EndUpdate;
    Layout.RenderLayout(Canvas);
  finally
    Layout.Free;
  end;
end;
 

相关阅读 >>

Delphi url编码与解码工具附代码

Delphi 检测cpu内核数

Delphi做异型窗体png透明

Delphi repeat until 随机插入

Delphi 与 c/c++ 数据类型对照表

Delphi中使用directx截屏函数

Delphi tms web core messagedlg对话框 yes no

Delphi 如何在桌面添加右键菜单

Delphi 静态数组的定义方法

Delphi 7 + gdiplus 简单实现双缓冲绘制移动图形

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 10 Seattle中的画布上绘制字符