DELPHI XE 10.2.1 FMX平台 在图片上写字方法

本文整理自网络，侵删。

 
unit Unit1;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
  FMX.Controls.Presentation, FMX.StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.fmx}
 
procedure TForm1.Button1Click(Sender: TObject);
var
   Rect: TRectF;
begin
   Rect.Create(0, 0, 500, 300);
   Image1.Bitmap.Canvas.BeginScene;
   Image1.Bitmap.Canvas.Font.Family:='宋体';
   Image1.Bitmap.Canvas.Font.Size:=80;
   Image1.Bitmap.Canvas.Fill.Color:=TAlphaColors.Red;
   Image1.Bitmap.Canvas.FillText(Rect, '我是LQEN', False, 1, [], TTextAlign.Center, TTextAlign.Center );
   Image1.Bitmap.Canvas.EndScene;
end;
 
 
end.

――――――――――――――――

原文链接：https://blog.csdn.net/lqena/article/details/78732313
 

相关阅读 >>

Delphi 学习使用资源文件 - 字符串资源

Delphi 一个高效的正整数排序函数

Delphi 记事本与计算器的调用

Delphi 在目录后面加上一个 "\"

Delphi 删除文件的函数

Delphi 判断一个颜色是否是亮色

Delphi直接插入法排序示例

Delphi 将image组件的图片保存为jpg格式图片方法

Delphi 采用 tidhttp 访问 https 的网站，采用 tidtcpclient 访问 https 的网站

Delphi firedac 获取mysql 数据库databases 列表

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

转载请注明出处：木庄网络博客 » DELPHI XE 10.2.1 FMX平台 在图片上写字方法