RSS订阅 | 匿名投稿
您的位置:网站首页 > 图像 > 正文

delphi xe 在图片上写字

作者:admin 来源: 日期:2018/1/18 13:46:31 人气: 标签:

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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料