delphi xe 之路（18）在图片上写字

最新推荐文章于 2025-06-30 12:51:15 发布

5201314

最新推荐文章于 2025-06-30 12:51:15 发布

阅读量2.5k

点赞数 1

分类专栏： DELPHI XE

DELPHI XE 专栏收录该内容

32 篇文章

订阅专栏

本文介绍了一个使用 Delphi XE2 在图片上绘制文字的方法。通过设置字体、大小及颜色等属性，并利用 FillText 方法将指定的文字绘制到图片中。此过程涉及图片加载、文字布局及渲染等步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。