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 和微软的 azure 云存储

Delphi paramcount、paramstr

md5.pas

Delphi bytetype-单双字节判断

Delphi 注入不用writeprocessmemory 函数

Delphi xe8安卓下汉字转gb2312 urlencode代码

Delphi idhttp控件：get/post 请求

Delphi二分查找算法(预排序数组的查找)

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

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

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