大文本报表显示自动折行疑难 - PowerBuilder - 51CTO技术论坛

社区导航: 专家门诊网络技术操作系统数据库程序设计系统应用考试认证 CIO及信息化站长交流综合交流下载基地 51CTO产品服务

【设为首页 | 收藏本站】

51CTO技术论坛» PowerBuilder » 大文本报表显示自动折行疑难 [ 打印] [ 订阅] [ 收藏] [ 推荐给朋友] [ 本帖文本页]

论坛跳转:

ribut9225

主版主

帖子 3110
精华 1
无忧币 5991
积分 4100
阅读权限 150
来自 (保密)

注册日期 2006-6-22

最后登录 2008-10-8

离线

[查看资料] [发短消息] [Blog]

发表于:2008-6-26 09:21　　标题：大文本报表显示自动折行疑难
＜上一帖 | 下一帖＞

大文本报表显示自动折行疑难
问：在大作《请教搞手，大文本报表显示自动折行问题？》中提到：
在做report时，如果显示文字超过水平边界，希望能自动折行，但控件属性无法设置，如果文本里有换行符可以，请问，有否高招，设置其显示的自动折行属性。谢谢！！！！！！
答：搞手？：）
由于只有MultiLineEidt能使大文本自动折行,所以需要将每行的数据都加到各自的mle中,这里假设浏览的行数是固定的,因此只需要知道显示的顶行行号即可实现:
dw_1.Object.DataWindow.FirstRowOnPage 属性正好可以解决这一问题.
实现方法:
在浏览窗口添加一个实例变量: string is_FirstRowOnPage = "" .用于记录顶行行号在浏览窗口加一个新的函数 integer wf_refreshtext() :
//假设dw_1为浏览数据窗口,mle_1, mle_2, mle_3为显示大文本的多行编辑框
string ls_row
long i, ll_FirstRowOnPage
ls_Row = dw_1.Object.DataWindow.FirstRowOnPage
If ls_Row = is_FirstRowOnPage then
return 0 //如果顶行行号未变,不用刷新
Else
is_FirstRowOnPage = ls_Row
ll_FirstRowOnPage = Long( ls_Row )
mle_1.text = dw_1.object.Intro_Pic[ll_FirstRowOnPage ]
mle_2.text = dw_1.object.Intro_Pic[ll_FirstRowOnPage + 1]
mle_3.text = dw_1.object.Intro_Pic[ll_FirstRowOnPage + 2]
return 1
End If
函数作好后,需要在可能改变数据窗口显示的地方调用,主要有两个地方:
数据窗口的rowfocuschanged事件和scrollvertical事件
上面说的方法其折行以单词为单位,因此在显示中文时如果不含空格就不能折行
如果只是作为显示的话,有一个变通的方法:
在需要显示大文本的地方放一个多行编辑框(MultiLineEdit):mle_1
在含有大文本数据列的数据窗口控件的rowfocuschanged事件中加入如下脚本:
mle_1.text = this.object.Intro_Pic[currentrow]