delphi xe 在图片上写字

本文整理自网络，侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
var
LRect: TRectF;
begin
LRect.Create(0, 0, 500, 200);
myimage.Bitmap.Canvas.Font.Family:='宋体';
myimage.Bitmap.Canvas.Font.Size:=25;
myimage.Bitmap.Canvas.Fill.Color:=claBlack;
myimage.Bitmap.Canvas.FillText(LRect, 'Delphi XE2 by 小新排骨', True, 255, [],TTextAlign.taLeading,TTextAlign.taCenter);
myimage.Bitmap.BitmapChanged;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//读取图片
myimage.Bitmap.LoadFromFile('C:\skype.bmp');
end;
 

相关阅读 >>

Delphi 收集了比较全的字符串进制转换

Delphi savedialog覆盖询问

Delphi 关于多语言：如何获取当前系统语言

Delphi判断ip地址是否正确

Delphi 获取memo的行数与列数

Delphi遍历文件目录

Delphi inc () 计数用法

Delphi 获取随机字符串的方法 getrandomstring

Delphi 开发中遇到的dll问题思考及解决方法

Delphi中二进制文件数据存文件方法

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

转载请注明出处：木庄网络博客 » delphi xe 在图片上写字