图片上添加图标图片 各位大虾 怎么在一张用TIMAGE加载的图片上再添加一个图标,图片(ICON,BMP,GIF)等 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 不行,我试过了 我现在是共用一个TIMAGE 之前已经在TIMAGE组件中绘了一张JPG的图片,我现在还想在JPG图片上在绘一张图标 相当于叠加,不知道怎么做? 这个是JPG的问题。你改成BMP就没问题了。 var jpg: TJpegImage;begin //绘背景 jpg := TJpegImage.Create; jpg.LoadFromFile('d:\test.jpg'); Image1.Canvas.StretchDraw(Rect(0,0,Image1.Width,Image1.Height),jpg); jpg.Free; //以下可根据自己需要绘其他图片或者文字 Image1.Canvas.Draw(...); FASTREPORT4 人民币大写函数转合计函数时出错 关于StarUml的介绍的翻译问题 delphi 中不知道什么 问题的问题,急~~~~~~~ 为什么 findwindow(nil,'美容院管理系统') 总是不等于0呢?代码如下 杭州+招聘delphi开发人员 .dcu,.mskn,.dpk这些都是什么文件啊? 大量client和server连接的问题 找工作---广东或厦门 关于日期的存储和查询!急!急! 紧急求救:要从右边的21个数字中找出哪几个数的和为左边值,数字个数不确定,大约10个以内 winexec的问题 delphi程序运行后,还可以进入设计器调整窗体界面字段的属性
绘一张图标 相当于叠加,不知道怎么做?
你改成BMP就没问题了。
jpg: TJpegImage;
begin
//绘背景
jpg := TJpegImage.Create;
jpg.LoadFromFile('d:\test.jpg');
Image1.Canvas.StretchDraw(Rect(0,0,Image1.Width,Image1.Height),jpg);
jpg.Free;
//以下可根据自己需要绘其他图片或者文字 Image1.Canvas.Draw(...);