+ -
当前位置:首页 → 问答吧 → 紧急!!!如何在TImgEdit控件上的图像上添加文本

紧急!!!如何在TImgEdit控件上的图像上添加文本

时间:2011-09-07

来源:互联网

需求就是在图片上添加文本。
我尝试了一些方法,就做不到满意的效果,如下:

1,使用文本功能,就是将AnnotationType设置成7,这样会出现要输入的文本框,没法填写上已知道的文本,这种方法可以实现文本的自动换行(如果文本比较多的话)

2,使用文本戳,他可以直接将已有文本添加上,但是问题是只能使用一行,文本比较多的话不会自动换行,只能缩小

我需要的是,可以把指定文本直接放到图片上,然后直接保存。如果文档多的话,可以自动换行。
我考虑过使用第一种方法,使用复制粘贴的方法,但是这个是自动程序,用户稍一操作,文本就不知道粘贴到哪里去了!

请高手解决下,紧急啊

作者: zzn007   发布时间: 2011-09-07

用个透明label,自动换行为true,宽高自己写文本的时候换算一下赋值

作者: funxu   发布时间: 2011-09-07

保存的话直接把form的相应canvas区域复制到image上就可以了

作者: funxu   发布时间: 2011-09-07

我用的TImgEdit控件,图片是固定的模板图片,怎么向控件复制?
请提供下复制方法的代码,这个没有研究过,不会啊!
你的意思是将图片加载到form上???

作者: zzn007   发布时间: 2011-09-07

LZ可以查一下canvas绘图
实际上你在内存申请一个tbitmap,然后把form的相应区域绘制到bitmap的canvas上,然后再把这个bitmap赋给你的图像控件,即完成绘图

作者: funxu   发布时间: 2011-09-07

例子
http://www.programfan.com/article/302.html
另外主要研究canva画布之间的绘图
可以用

作者: funxu   发布时间: 2011-09-07

TImgEdit控件没有相关的属性或方法能完成这个简单的功能?

作者: zzn007   发布时间: 2011-09-07

刚才发言被吞了,悲摧的
canvas之间可以用
CopyRect 拷贝指定矩形区域

作者: funxu   发布时间: 2011-09-07

引用 6 楼 zzn007 的回复:
TImgEdit控件没有相关的属性或方法能完成这个简单的功能?

这已经很简单了......囧,我还没说调用api计算文字宽度,自己用画笔textout呢

作者: funxu   发布时间: 2011-09-07

没看明白,
你做个例子的代码给我,看看看,或许能帮上忙。。

作者: DelphiTeacher   发布时间: 2011-09-07

热门下载

更多