问几个RMReport的问题(whf请进) ( 积分: 50 )

  • 主题发起人 主题发起人 wrl_001
  • 开始时间 开始时间
W

wrl_001

Unregistered / Unconfirmed
GUEST, unregistred user!
1.对于TRRMemoView编辑框在设置wordwrap为True的情况下如果字符串超出一行的宽度则会追加第二行,第三行...
这时候除了最后一行之外其他的都会被拉伸填充整行,怎么做才能像Excel一样不拉伸呢?
当然设置CharWrap为True是不可以的.
2.打印gif文件的问题:
需要安装JVCL并修改rm.inc文件({$DEFINE RX},{$DEFINE RXGIF})重新编译就支持gif了
我在报表中载入了一个透明背景的gif文件想实现盖章的效果,
问题是:显示一切正常,在彩色打印机上也算正常,可是在黑白打印机上打印的时候透明的地方就被打印成了黑色(是不是因为透明的地方颜色为空,打印机解释成了$000000所以打印成了黑色?),而这个在Excel中没有问题
注:在彩色打印机上透明的地方会被打上一层白色,拿一张有字的纸打印就可以看到有些字被覆盖了,但我们平时打印都是白纸,所以可以算是正常.
 
1.对于TRRMemoView编辑框在设置wordwrap为True的情况下如果字符串超出一行的宽度则会追加第二行,第三行...
这时候除了最后一行之外其他的都会被拉伸填充整行,怎么做才能像Excel一样不拉伸呢?
当然设置CharWrap为True是不可以的.
2.打印gif文件的问题:
需要安装JVCL并修改rm.inc文件({$DEFINE RX},{$DEFINE RXGIF})重新编译就支持gif了
我在报表中载入了一个透明背景的gif文件想实现盖章的效果,
问题是:显示一切正常,在彩色打印机上也算正常,可是在黑白打印机上打印的时候透明的地方就被打印成了黑色(是不是因为透明的地方颜色为空,打印机解释成了$000000所以打印成了黑色?),而这个在Excel中没有问题
注:在彩色打印机上透明的地方会被打上一层白色,拿一张有字的纸打印就可以看到有些字被覆盖了,但我们平时打印都是白纸,所以可以算是正常.
 
1、设置TRRMemoView编辑框为“左对齐”就行了
 
左对齐?是BandAlign或是HAlign?无效
其他的话请指出.
我的rm版本是5
 
再来一个
通过设置RepeatOptions.SuppressRepeated=True;RepeatOptins.MergeRepeated=True来实现合并重复值,如果我不想合并空值的行应该怎么做?
 
不是这么惨吧,[:D]
 
对于合并重复值,在浏览RM_Class.pas的时候发现一个保护的属性MergeEmpty,把它公开,并修改了CanMergeCell方法可以了,也还没发现什么问题.
 
1.是HAlign
2.页面设置中有个"彩色打印”,设置试试看。
 
我说过了HAlign无效,看这个例子:
www.saitong.com.cn/wrl/Untitled.rmf
"彩色打印"已经选上了,我试试不选的[:D]
 
无法找到该页
您正在搜索的页面可能已经删除、更名或暂时不可用。
--------------------------------------------------------------------------------
请尝试以下操作:
确保浏览器的地址栏中显示的网站地址的拼写和格式正确无误。
如果通过单击链接而到达了该网页,请与网站管理员联系,通知他们该链接的格式不正确。
单击后退按钮尝试另一个链接。
HTTP 错误 404 - 文件或目录未找到。
Internet 信息服务 (IIS)
 
晕,不支持rmf文件的下载,
http://www.saitong.com.cn/wrl/RMT.rar
下载后请更改后缀名为:rmf即可。
 
难道是使用RMReport的人太少了?
 
"彩色打印"不选上在黑白打印机上打的更怪了,
1.gif图片下面的字没有打出来
2.gif图片打印的很正常
3.如果放入的不是白纸,gif图片的透明地方不会覆盖
在彩色打印机上也是不行的,gif图片透明的地方会被喷上白色就把下面的字覆盖了.
难道真的实现不了这个效果?
 
1.新增加属性AutoAddBlank=False时,可以实现你说的那种效果
2.gif的也请发个例子
 
gif例子:
www.saitong.com.cn/wrl/Projects.rar
 
对于合并重复值的问题也想考证一下
我把MergeEmpty属性公开,并修改:
CanMergeCell的
((FMemo1.Text = FLastValue) or (MergeEmpty and (FMemo1.Text = '')))为:
((FMemo1.Text = FLastValue) and (MergeEmpty or (Trim(FMemo1.Text) <> '')))
PlaceOnEndPage的
if FMergeEmpty and (FMemo1.Text = '') then
为:
if FMergeEmpty and (Trim(FMemo1.Text) = '') then
会带来其他什么问题吗?
 
问题未圆满解决,不过还是谢谢两位的参与.[:D]
 
后退
顶部