大文本报表显示自动折行问题
问：在大作《请教搞手，大文本报表显示自动折行问题？》中提到：在做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]
页:
[1]