如何在一个JPEG图象上绘制某一字体、颜色、透明度的文字串?(34分)

  • 主题发起人 主题发起人 ynduanlian
  • 开始时间 开始时间
Y

ynduanlian

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在一个JPEG图象上绘制某一字体、颜色、透明度的文字串?
我是Delphi新手,敬请指点?
 
self.Canvas.TextOut(10,10,'edll');
 
用Timage控件载入JPEG图像,然后在图像上放一个label。然后设置这个label的transparent属性为True, 想要什么字体,颜色,只管设置label就行了。不过这是纯透明的。 至于想要设透明度嘛,单纯字体的透明度设置,我不会。呵呵。
 
JPEG图象---->bitmap,canvas.outtext;---->jpeg
 
那么如保在一个BMP图象上绘制某一字体、颜色、透明度的文字串?
 
var
bitmap:Tbitmap
begin
……
……
with bitmap do
begin
Canvas.Brush.Style:=bsClear; //文字背静透明
Canvas.Font.Color:=clRed; //文字颜色
Canvas.TextOut(x,y,'文字内容') //绘制文字
end;
……
……
end;
 
我在DELPHIBBS上看到过您的留言,你说的控件能支持在DELPHI2005上吗,我现在用的开发工具是D2005,
关于图像的缩略图显示,我已经实现了,用的是IMAGELIST和LISTVIEW显示
效果不错,只是速度不快,200张600K的24位色2096 JPG文件要50-80秒钟才能完成,有点慢,不知道您有什么心得,
我还想在CANCAS上显示的图片上画个矩形不知道能不能实现?
请多多指教!
来信请帮助我找这个控件(最好是注册的或者是完全免费的,)
 
jpeg and bmp 都可以在上面输出文字
textout(a,b,c);//a,b是x,y坐标c为输出的字符串
 
如何在一个JPEG图象上绘制某一字体、颜色、透明度的文字串?

楼主的要求这个透明度 的话Textout就没办法完成了
但是可以用以下变通的方法来达到目的
新建一个Tbitmap
然后在上面写字
然后把这个Bmp和原来的JPG按位置逐像素设置半透明混合,而把bmp的背景颜色做为透明值不混合。
改天贴代码
 
晚起的小虫:你一改天我就等了两月。
 
可以使用PNG实现,你可以下载TPNGImages组件
1、创建一个PNG对象,在PNG的canvas上textout出你要的字符串
2、然后设置PNG对象的每个点的Alpha通道值为0-255,视你需要的透明度而定,如128
3、把PNG对象画在你要显示的控件的canvas中 x.canvas.draw(0,0,png)
 
凌霄图像批处理专家是一款图片批处理工具,它集批量图片格式转换、批量图片修改处理、批量重命名、批量调整尺寸、批量晒图导出、创建EXE文件、创建PDF文件于一体的图片批处理系统。凌霄图像批处理专家提供将近30种图片修改处理脚本命令(如调整亮度等)供您任意组合使用!她还可以让您轻松的将任意多的图像(图片)文件生成一个EXE或PDF文件,并提供多达150种的显示效果,方便您欣赏自己的图片,并轻易实现与家人、朋友分享!她支持多达11种(BMP, JPG,PNG, EXIF, GIF, WMF,ICO, TGA, PCX,TIFF, PPM )的基本图片格式输出。如果加上与他们等价的格式,则支持的打开图片类型超过30种。而且所有这些功能,您都可以在Windows资源管理器中通过右键菜单轻松使用。
下载地址:www.flyingspace.com
 
TPNGImages组件是第三方组件吗?
 
TPNGImages组件是第三方组件吗?
这个是第三方组件,很不错的,你在google上搜索一下就知道了,开源代码的.
 

Similar threads

D
回复
0
查看
934
DelphiTeacher的专栏
D
D
回复
0
查看
727
DelphiTeacher的专栏
D
D
回复
0
查看
688
DelphiTeacher的专栏
D
后退
顶部